Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Задание на Free Pascal. Даны вещественные x, y, z. Вычислить a, b, если

Ответ оставил Гость

Program imaiytarowo;
uses crt;
var
  x,y,z:real;
begin
  writeln(+---------------------------+);
  writeln(|        ВЫЧИСЛЯЛКА         |);
  writeln(+---------------------------+);
  write(   Введите число x: ); readln(x);
  write(   Введите число y: ); readln(y);
  write(   Введите число z: ); readln(z);
  writeln();
  writeln(+---------------------------+);
  writeln(|        Результат:         |);
  writeln(+---------------------------+);
  writeln(|      a= ,(sqrt(abs(y+z))-power(abs(x*x-z),1/4))/(exp(x)+exp(y)):11:3,       |);
  writeln(|      b= ,ln(abs(cos(x+y)*(cos(x+y))+x*x/4-z*z/3)):11:3,       |);
  writeln(+---------------------------+);
end.