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