(Pascal abc/turbo)

В результате выполнения программы должны быть выведены значения функции y=x3+2x для значений x, лежащих в диапазоне [1; 3], с шагом 0,2. Программу составьте двумя способами: используя цикл с предусловием и цикл с постусловием.

var

x, y: real;

begin

x := 1;

while x <= 3.01 do

begin

y := x * (x * x + 2);

Writeln(x:3:1, y:10:3);

x := x + 0.2;

end;

end.

var

x, y: real;

begin

x := 1;

repeat

y := x * (x * x + 2);

Writeln(x:3:1, y:10:3);

x := x + 0.2;

until x > 3.01;

end.