Question

Вычислить значение функции y=2*sqr(x)+5, для значений Х, изменяющихся от -3 до 1 с шагом 0,1. выводить результат и значение Х на каждом шаге, используя операторы While и Repeat

Answer 1

//PascalABC.NET v3.3 1633

begin

var x: real;

x:=-3.0;

while x < 1.1 do

begin

 var y:=2*sqr(x)+5;

 writeln('X = ' + (x:0:1) + '; Y = ' + (y:0:2));

 x += 0.1;

end;

writeln();

x:=-3.0;

repeat

 var y:=2*sqr(x)+5;

 writeln('X = ' + (x:0:1) + '; Y = ' + (y:0:2));

 x += 0.1;

until x > 1.1;

end.