var
x, y: real;
begin
x := -5;
writeln(' x y ');
while x <= 5 do begin
y := 5 - x*x/2;
writeln(x:4:1,' | ',y:5:2);
x := x + 0.5
end;
end.
Задание: из цикла while в цикл for
Ответы
Ответ дал:
0
Ответ:
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад