Табулирование функции - Pascal ABC (14106)

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

протабулювати функцию на отрезке (1,5) з шагом 0.5

Решение задачи: «Табулирование функции»

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

program TAB1; {Пример для y=5x2-7x+8}
 var xn,xk,dx,x,y:real;
begin
 readln(xn,xk,dx);
 writeln('     x      y');
 x:=xn;
 while x<=xk do
  begin 
   y:=5*x*x-7*x+8;
   writeln(x:6:3,y:6:3);
   x:=x+dx;
  end
end.

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

Программа начинается с объявления переменных xn, xk, dx, x и y типа real.
Затем с помощью функции readln считываются значения переменных xn, xk и dx из стандартного ввода.
Выводится заголовок x y для отображения осей координат.
Значение переменной x устанавливается равным xn.
В цикле while выполняется следующая строка кода:
- y вычисляется как 5xx - 7*x + 8.
- Выводится значение x и y с использованием функции writeln.
- Значение переменной x увеличивается на dx.
Цикл while продолжается до тех пор, пока x не станет больше или равно xk.