Question

ПОМОГИТЕ ПЖ, ДАМ 35 БАЛЛОВ!!!
Разработать программу на языке программирования ПАСКАЛЬ, скомпилировать и получить результат.

Answer 1

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.