Составить программу табулирования функции на данном отрезке с данным шагом - Turbo Pascal (29173)

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

подпрограммы функций y=sqrt(x^2+5*x+8) на интервале 0,2 с шагом 0,1

Решение задачи: «Составить программу табулирования функции на данном отрезке с данным шагом»

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

uses crt;
function f(x:real):real;
begin
f:=sqrt(x*x+5*x+8);
end;
const a=0;
      b=2;
      h=0.2;
var x:real;
begin
clrscr;
x:=a;
while x<b+h/2 do{h/2 для того чтобы не проскочить b
                 за счет компьютерногоокругления }
 begin
  writeln('x=',x:4:1,' y=',f(x):6:3);
  x:=x+h;
 end;
readln
end.

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

В начале кода подключается библиотека crt, которая используется для работы с числовыми значениями.
Создается функция f, которая принимает аргумент x типа real и возвращает значение типа real. Внутри функции выполняется вычисление квадратного корня из суммы квадрата x и 5*x и 8.
Далее определяются три константы: a, b и h. Значение переменной h равно 0.2.
Переменная x инициализируется значением a.
Запускается цикл while, который выполняется до тех пор, пока значение переменной x не станет больше или равно b плюс h/2.
Внутри цикла выводится значение переменной x и результат вызова функции f(x) с помощью функции writeln.
После окончания внутреннего цикла значение переменной x увеличивается на h.
Программа завершается вызовом функции readln для чтения пользовательского ввода.