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

Ответы 1

  • 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.

    • Автор:

      adam75
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years