Задание на Free Pascal. Даны вещественные x, y, z. Вычислить a, b, если
Приложения:
Ответы на вопрос
Ответил Alphaeus
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.
Новые вопросы
Алгебра,
6 лет назад
История,
6 лет назад
Алгебра,
9 лет назад
Химия,
9 лет назад
Математика,
9 лет назад