Протабулировать функцию - Pascal (81279)

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

Вычислить множество значений функции y=x^2+b для x, изменяющегося от –a до a с постоянным шагом, равным 0,1, при b=5. Использовать циклы While или repeat.

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

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

program abc;
var y,x,a:real;
begin
writeln ('Введите a');
readln(a);
x:=-a;
While (x<>a) do
begin
y:=x*x+5;
x:=x+0.1;
writeln ('y= ',y:4:3);
end;
readln;
end.

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

Создается программа с именем abc.
Объявляются три переменные: y, x и a типа real.
Выводится сообщение Введите a и считывается значение переменной a.
Значение переменной x устанавливается равным -a.
Запускается цикл While, который будет выполняться до тех пор, пока значение переменной x не станет равным значению переменной a.
Внутри цикла вычисляется значение переменной y как сумма квадрата x и 5.
Значение переменной x увеличивается на 0.1.
Выводится значение переменной y с приставкой y=.
Цикл While повторяется, пока значение переменной x не станет равным значению переменной a.
По завершении цикла выводится сообщение readln.
Программа завершается.