Thetanrad
7 год назад
Дан изначальный код на паскале
Program abc;
var
x,y:real;
i: integer;
begin
x: = 2;
for i: = 2 to 8 do
begin
y: = (1-x)+2.5*(x*x*x)+(x*x*x*x);
writeln ('x = '+x);
writeln ('y = '+y);
x: = x+1.5;
end
end.
заппишите значения x и y в 2 строчки и чтобы сначала шли целые значения а потом дробный
ОТВЕТЫ
Kievizom
Jul 17, 2019
Var
x,y:real;
i: integer;
a,b:array [2..8] of real;
begin
x:=2;
for i:= 2 to 8 do begin
y:=(1-x)+2.5*(x*x*x)+(x*x*x*x);
a[i]:=a[i]+x;
b[i]:=b[i]+y;
x:=x+1.5;
end;
write(x );
for i:= 2 to 8 do
write(a[i], );
writeln();
write(y );
for i:= 2 to 8 do
write(b[i], );
end.
x,y:real;
i: integer;
a,b:array [2..8] of real;
begin
x:=2;
for i:= 2 to 8 do begin
y:=(1-x)+2.5*(x*x*x)+(x*x*x*x);
a[i]:=a[i]+x;
b[i]:=b[i]+y;
x:=x+1.5;
end;
write(x );
for i:= 2 to 8 do
write(a[i], );
writeln();
write(y );
for i:= 2 to 8 do
write(b[i], );
end.
219
Смежные вопросы:
