Значение функции y - Turbo Pascal

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

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

Возможно ли при каких по значения функция не определена: Y=G(x+15*sgrt(x*x*x+G*G)) при а=1,2 в=4,8 G=-2,5 H=0,4 (шаг)

Решение задачи: «Значение функции y»

textual
Листинг программы
const a=1.2;
      b=4.8;
      g=-2.5;
      h=0.4;
var x,y:real;
begin
x:=a;
repeat
y:=g*(x+15*sqrt(x*x*x+g*g));
writeln('x=',x:4:1,' y=',y:8:3);
x:=x+h;
until x>b;
readln
end.

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

  1. В первой строке объявляются константы a, b, g и h, которые присваиваются определенные числовые значения.
  2. Далее, с помощью var x, y: real; объявляются две переменные типа real - x и y.
  3. Затем, в блоке begin начинается выполнение программы.
  4. В первой строке цикла repeat устанавливается начальное значение переменной x равное значению константы a.
  5. Далее, в каждой итерации цикла вычисляется значение переменной y по формуле g(x+15sqrt(xxx+g*g)).
  6. Вычисленное значение переменной y выводится на экран с помощью writeln('x=',x:4:1,' y=',y:8:3);.
  7. После вывода значения переменной y, значение переменной x увеличивается на значение переменной h.
  8. Цикл повторяется до тех пор, пока значение переменной x не станет больше значения переменной b.
  9. По завершении цикла, программа ожидает ввода пользователя с помощью readln.
  10. В конце программы нет оператора end.

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

9   голосов , оценка 3.667 из 5
Похожие ответы