Для шага 1 var x,y:integer; begin for x:= -7 to 7 do begin y:=5*x-3 writeln(x,' ',y); end; end. Для шага 0.5 var x,y:real; begin x:= -7; while x<=7 do begin y:=5*x - 3; writeln(x,' ',y); x:=x+0.5; end; end. Если шаг 1.05, то во втором варианте пишем x:=x+1.05 (вместо x:=x+0.5; )
Для шага 1
var x,y:integer;
begin
for x:= -7 to 7 do begin
y:=5*x-3
writeln(x,' ',y);
end;
end.
Для шага 0.5
var x,y:real;
begin
x:= -7;
while x<=7 do begin
y:=5*x - 3;
writeln(x,' ',y);
x:=x+0.5;
end;
end.
Если шаг 1.05, то во втором варианте пишем x:=x+1.05 (вместо x:=x+0.5; )