ПОМОГИТЕ ПЖ, ДАМ 35 БАЛЛОВ!!!
Разработать программу на языке программирования ПАСКАЛЬ, скомпилировать и получить результат.
Разработать программу на языке программирования ПАСКАЛЬ, скомпилировать и получить результат.
Ответ
0
(0 оценок)
0
var
x,y:real;
begin
x:=-2;
while x<=3 do
begin
if x < 0 then
begin
y:=x+1;
writeln('y=',y,' x=',x)
end;
if x>2.0 then
begin
y:=(2.5*power(x,3))+(6*power(x,2))-30;
writeln('y=',y,' x=',x)
end;
if (x <= 3.5) and (x >= 1.5) then
begin
y:=x+3;
writeln('y=',y,' x=',x)
end;
x:=x+0.5;
end;
end.