1. const a0=-5; ak=5; b=2; var x,y,i:integer; begin x:=a0-b; writeln(' x y'); for i:=0 to round((ak-a0)/b) do begin x:=x+b; y:=5*x*x-2*x+1; writeln(x:3,' ',y:4); end; end.
2. const a0=-5; ak=5; b=2; var x,y,i:integer; begin x:=a0-b; writeln(' x y'); repeat x:=x+b; y:=5*x*x-2*x+1; writeln(x:3,' ',y:4); until x>=ak; end.
const a0=-5; ak=5; b=2;
var x,y,i:integer;
begin
x:=a0-b;
writeln(' x y');
for i:=0 to round((ak-a0)/b) do
begin
x:=x+b;
y:=5*x*x-2*x+1;
writeln(x:3,' ',y:4);
end;
end.
2.
const a0=-5; ak=5; b=2;
var x,y,i:integer;
begin
x:=a0-b;
writeln(' x y');
repeat
x:=x+b;
y:=5*x*x-2*x+1;
writeln(x:3,' ',y:4);
until x>=ak;
end.
Результат:
x y
-5 136
-3 52
-1 8
1 4
3 40
5 116
Внимание! Если программа не работает, обновите версию!
1. Цикл for
begin
for var i:=1 to (5-(-5)) div 2+1 do begin
var x:=2*(i-1)-5;
Writeln(x:2,1+x*(-2+5*x):5)
end
end.
Результат
-5 136
-3 52
-1 8
1 4
3 40
5 116
2. Цикл repeat
begin
var x:=-5;
repeat
Writeln(x:2,1+x*(-2+5*x):5);
x+=2
until x>5
end.