Вычислить значения функции на интервале - Pascal

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

Вычислить значения функции a=1.6x³-1.5 на интервале (-1,1) с шагом изменения аргумента 0.5. Выдать на печать отрицательные значения функции с соответствующими им значениями аргумента. проделать это в трех циклах : for, repeat, while

Решение задачи: «Вычислить значения функции на интервале»

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

var x,a:real;
    n,i:byte;
begin
//цикл while
x:=-1;
while x<=1 do
 begin
  a:=1.6*x*x*x-1.5;
  if a<0  then writeln('x=',x:4:1,' a=',a:6:3);
  x:=x+0.5;
 end;
writeln;
//цикл repeat
x:=-1;
repeat
a:=1.6*x*x*x-1.5;
if a<0  then writeln('x=',x:4:1,' a=',a:6:3);
x:=x+0.5;
until x>1;
writeln;
//цикл for
n:=round(2/0.5)+1;
x:=-1;
for i:=1 to n do
 begin
  a:=1.6*x*x*x-1.5;
  if a<0  then writeln('x=',x:4:1,' a=',a:6:3);
  x:=x+0.5;
 end;
end.

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

Объявление переменных:
- x и a - вещественные числа (действительные числа)
- n и i - беззнаковые целые числа (байты)
Начало цикла while:
- Значение переменной x устанавливается как -1
- Пока x меньше или равно 1, выполняются следующие действия:
  - Вычисляется значение функции a=1.6xx*x-1.5
  - Если значение a меньше 0, то выводится сообщение x= и значение x с точностью до 1 десятичной знака, а также a= и значение a с точностью до 3 десятичных знаков
  - Значение x увеличивается на 0.5
Конец цикла while
- Разрыв строки
Начало цикла repeat:
- Значение переменной x снова устанавливается как -1
- Повторять следующие действия, пока x больше 1:
  - Вычисление значения функции a=1.6xx*x-1.5
  - Если значение a меньше 0, то выводится сообщение x= и значение x с точностью до 1 десятичной знака, а также a= и значение a с точностью до 3 десятичных знаков
  - Значение x увеличивается на 0.5
Конец цикла repeat
- Разрыв строки
Начало цикла for:
- Значение переменной n вычисляется как ближайшее целое к результату деления 2 на 0.5, прибавленное на 1.
- Переменная x устанавливается как -1
- Для каждого значения i от 1 до n выполняются следующие действия:
  - Вычисляется значение функции a=1.6xx*x-1.5
  - Если значение a меньше 0, то выводится сообщение x= и значение x с точностью до 1 десятичной знака, а также a= и значение a с точностью до 3 десятичных знаков
  - Значение x увеличивается на 0.5
Конец программы.