Нужна блок-схема!Помогите! var x,y:real; begin x:=-3; while x меньше =3 do begin if x меньше -1 then y:=sqr(sin(x)) else if x больше 1 then y:=cos(x/2) else y:=xx(x-1)/4; Writeln('X=',x:5:2,', Y=',y); x:=x+0.25 end end.

Question

Нужна блок-схема!Помогите! var x,y:real; begin x:=-3; while x меньше =3 do begin if x меньше -1 then y:=sqr(sin(x)) else if x больше 1 then y:=cos(x/2) else y:=xx(x-1)/4; Writeln('X=',x:5:2,', Y=',y); x:=x+0.25 end end.

Нужна блок-схема!Помогите! var x,y:real; begin x:=-3; while x<=3 do begin if x<-1 then y:=sqr(sin(x)) else if x>1 then y:=cos(x/2) else y:=x*x*(x-1)/4; Writeln('X=',x:5:2,', Y=',y); x:=x+0.25 end end.

Гость

Ответ(ы) на вопрос:

Accepted Answer

Гость

Ответ в приложении>>>>>>>>>>

Нужна блок-схема!Помогите! var x,y:real; begin x:=-3; while x меньше =3 do begin if x меньше -1 then y:=sqr(sin(x)) else if x больше 1 then y:=cos(x/2) else y:=x*x*(x-1)/4; Writeln('X=',x:5:2,', Y=',y); x:=x+0.25 end end.

Нужна блок-схема!Помогите! var x,y:real; begin x:=-3; while x меньше =3 do begin if x меньше -1 then y:=sqr(sin(x)) else if x больше 1 then y:=cos(x/2) else y:=xx(x-1)/4; Writeln('X=',x:5:2,', Y=',y); x:=x+0.25 end end.