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

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

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

Помогите написать в Паскаль

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

textual
Листинг программы
var x,y,a:real;
begin
repeat
write('Введите x>0 x=');
readln(x);
until x>0;
a:=cos(x)-(sqr(sqr(sin(x*x))))/x-(x*x*x*x+0.96*x-1)/(x*x*x*x+x*x*x-2.37);
y:=sqr(sin(x))+a*a*a+sqrt(x);
y:=y*y*y*y;
write('y=',y:0:4);
end.

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

  1. Создается переменная x типа real, и присваивается ей значение 0.
  2. Создается переменная y типа real, и присваивается ей значение 0.
  3. Создается переменная a типа real, и присваивается ей значение 0.
  4. В цикле repeat, выводится сообщение для ввода значения x>0.
  5. Считывается значение x с помощью функции readln().
  6. Проверяется, что значение x больше 0. Если нет, то цикл повторяется.
  7. Вычисляется значение a по формуле cos(x)-(sqr(sqr(sin(x*x))))/x-(x*x*x*x+0.96*x-1)/(x*x*x*x+x*x*x-2.37).
  8. Вычисляется значение y по формуле sqr(sin(x))+a*a*a+sqrt(x).
  9. Значение y возводится в квадрат y=y*y*y.
  10. Выводится значение y с точностью до 4 знаков после запятой.
  11. Цикл repeat завершается, когда значение x становится больше 0.
  12. Программа завершается.

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

14   голосов , оценка 4.071 из 5