Составить таблицу значений функции Y при изменении аргумента Х на интервале от А до В с шагом Н - Turbo Pascal

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

Составить таблицу значений функции Y при изменении аргумента Х на интервале от А до В с шагом Н, если при некоторых значениях аргумента функция не определена, то вывести соответствующее сообщение.

Формула	A	B	C	G	H
	1	2.2	3.2	1.25	0.2

Решение задачи: «Составить таблицу значений функции Y при изменении аргумента Х на интервале от А до В с шагом Н»

Листинг программы

uses crt;
const a=1;
      b=2.2;
      c=3.2;
      g=1.25;
      h=0.2;
var x,y:real;
begin
clrscr;
x:=a;
while x<=b do
 begin
  if x>g then writeln('x=',x:4:1,'  y не определено')
  else
   begin
    y:=g*(x*x*x+c*c*c)*sin(x)/cos(x)/sqrt(g*g*g-x*x*x);
    writeln('x=',x:4:1,' y=',y:6:3);
   end;
  x:=x+h;
 end;
readln
end.

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

В этом коде используется язык программирования Turbo Pascal.

Строка uses crt; указывает на использование библиотеки для работы с экраном.
Строки const a=1; и const b=2.2; определяют границы интервала изменения аргумента Х.
Строки const c=3.2; и const g=1.25; определяют константы, которые используются в формуле для вычисления значения функции Y.
Строка var x,y:real; объявляет две переменные типа real (с плавающей точкой) для хранения значений аргумента Х и функции Y.
Цикл while x<=b do начинается с инициализации переменной x значением a и выполняется до тех пор, пока x не станет больше b.
Внутри цикла проверяется условие x>g. Если это условие истинно, то выводится сообщение x=1 y не определено, иначе выполняется блок кода.
В блоке кода вычисляется значение функции Y по формуле и выводится сообщение x=1.0000 y=1.0000, где x и y являются текущими значениями переменных.
После выполнения блока кода значение x увеличивается на h и цикл продолжается до тех пор, пока x не станет больше b.
В конце программы ожидается ввод данных с помощью функции readln.