Помогите пожалуйста.Составьте 2 программы на языке Pascal,используя в одном случае оператор While,в др. случае Repeat.Вывести на печать положит. значения ф-ии y=sin(x)=cos(5x) для х, изменяющегося на отрезке {-5;5} с шагом 1,2.
1 var x,y:real; begin writeln('Положительные значения:'); x:=-5; while x<=5 do begin y:=sin(x) cos(5*x); if y>0 then writeln(y); x:=x 1.2; end; end.
2 var x,y:real; begin writeln('Положительные значения:'); x:=-5; repeat y:=sin(x) cos(5*x); if y>0 then writeln(y); x:=x 1.2; until x>5; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
