Вывести таблицу значений функции y=-2,4x2+5x-3 в диапазоне от -5 до 5 с шагом 1 - PascalABC.NET

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

Нужна срочно).

Решение задачи: «Вывести таблицу значений функции y=-2,4x2+5x-3 в диапазоне от -5 до 5 с шагом 1»

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

program ее;
 
uses
  crt;
 
const
  a = -5;
  b = 5;
  h = 1;
 
var
  x, y: real;
 
begin
  clrscr;
  x := a;
  repeat
    y := -2.4 * x * 2 + 5 * x - 3;
    writeln('x=', x:4:2, '    y=', y:4:2 );
    x := x + h;
  until x > b + h / 2;
  readln;
end.

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

Список элементов кода с объяснениями:

program ее; - Объявление программы на языке PascalABC.Net
uses crt; - Подключение модуля для работы с консолью
const a = -5; b = 5; h = 1; - Объявление констант для задания диапазона и шага
var x, y: real; - Объявление переменных для хранения значений x и y
clrscr; - Очистка экрана
x := a; - Инициализация переменной x значением a
repeat - Начало цикла
y := -2.4 x 2 + 5 * x - 3; - Вычисление значения функции y
writeln('x=', x:4:2, ' y=', y:4:2 ); - Вывод значения x и y на экран
x := x + h; - Увеличение значения переменной x на шаг h
until x > b + h / 2; - Цикл выполняется пока значение x меньше или равно конечному значению
readln; - Ожидание нажатия клавиши для завершения программы
end. - Конец программы Таким образом, данный код на языке PascalABC.Net выводит таблицу значений функции y=-2,4x2+5x-3 в диапазоне от -5 до 5 с шагом 1.