Предмет: Информатика,
автор: imaiytarowo
Задание на Free Pascal. Даны вещественные x, y, z. Вычислить a, b, если
Приложения:

Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Алгебра,
автор: n413399
Предмет: Химия,
автор: svetanyli
Предмет: Физкультура и спорт,
автор: pomagipzzzz
Предмет: Математика,
автор: kateKateriNO4KA