Помогите пожалуйста.Составьте 2 программы на языке Pascal,используя в одном случае оператор While,в др. случае Repeat.Вывести на печать положит. значения ф-ии y=sin(x)=cos(5x) для х, изменяющегося на отрезке {-5;5} с шагом 1,2.
В функции ошибки нет? Между синусом и косинусом точно знак "равно"?
есть ошибка. должно быть так y=sin(x)+cos(5x)
Хорошо, сейчас сделаю
1 var x,y:real; begin writeln('Положительные значения:'); x:=-5; while x<=5 do<br> 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.