Вычисление значений функции - Turbo Pascal (248219)

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

Составить таблицу значений функции Y при изменении аргумента X на интервале от А до В с шагом Н, если при некоторых значениях аргумента функции не определена, то вывести соответствующее сообщение. y=x^2+cos⁡(c+sqrt(x^3-G)) при А=4.6 В=5.8 С=12.1 G=122.3 H=0.2

Решение задачи: «Вычисление значений функции»

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

алг функция y
нач
вещ x, y, c, a, b, g, h
  вывод "значение а="
  ввод a 
  вывод "значение b="
  ввод b 
  вывод "значение c="
  ввод c
  вывод "значение g="
  ввод g
  вывод "с шагом ="
  ввод h 
  вывод "x ", " |", "y", нс 
  вывод "-----------------",нс
  нц пока a<=b 
     x:=a 
если x*x*x<g то вывод "функция не определена"
 иначе y:=x*x+cos(c+sqrt(x*x*x-g))
все
    вывод x, " |" 
    вывод y, нс 
    a:=a+h 
  кц 
кон

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

В данном коде реализован вычислительный процесс функции y. Вот список действий, которые происходят в коде:

Ввод значений переменных a, b, c, g и h с помощью функции ввода.
Вывод значений переменных a, b, c, g и h на экран.
Вывод шага (значение переменной h).
Вывод границы определения функции (от a до b).
Вывод значения переменной x.
Вывод значения переменной y.
Вывод значений переменных x и y.
Обновление значения переменной a с помощью функции вывода.
Проверка условия xxx<g. Если условие истинно, то выводится сообщение функция не определена.
Иначе, вычисляется значение функции y как xx+cos(c+sqrt(xx*x-g)).
Вывод значения переменной y.
Обновление значения переменной a с помощью функции вывода.
Обновление значения переменной h с помощью функции вывода.
Выполнение цикла, пока значение переменной a не станет больше или равным значению переменной b.
Внутри цикла происходит обновление значения переменной x.
Если xxx<g, то выводится сообщение функция не определена.
Иначе, вычисляется значение функции y как xx+cos(c+sqrt(xx*x-g)).
Вывод значения переменной x.
Вывод значения переменной y.
Обновление значения переменной a с помощью функции вывода.