Вычислить значение выражения - Pascal ABC (14519)

Узнай цену своей работы

Формулировка задачи:

Даны x,y,z. Вычислить u,v, если

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
var x,y,z,u,v:real;
begin
writeln('Введите x,y,z');
readln(x,y,z);
u:=sin(abs((y-sqrt(abs(x)))*(x-y/(x*x+x*x/4))));
v:=cos(z*z+x*x/4);
write('u=',u:0:3,'  v=',v:0:3);
end.

Объяснение кода листинга программы

  1. Создается переменная x, которая представляет собой тип real.
  2. Создается переменная y, которая представляет собой тип real.
  3. Создается переменная z, которая представляет собой тип real.
  4. Создается переменная u, которая представляет собой тип real.
  5. Создается переменная v, которая представляет собой тип real.
  6. Выводится сообщение Введите x,y,z.
  7. Считываются значения переменных x, y и z с помощью функции readln().
  8. Вычисляется значение переменной u с использованием функций sin() и abs(), а также формулы (y-sqrt(abs(x)))*(x-y/(x*x+x*x/4)).
  9. Вычисляется значение переменной v с использованием функции cos() и значения переменной z.
  10. Выводится сообщение u=, с помощью функции write() с аргументом 'u=', а затем выводятся значения переменных u, x, y, z с помощью функции print().
  11. Выводится сообщение v=, с помощью функции write() с аргументом 'v=', а затем выводятся значения переменных v, x, y, z с помощью функции print().
  12. Конец программы.

Оцени полезность:

7   голосов , оценка 3.714 из 5