Составьте 2 программы на языке pascal,используя в одном случае оператор while,в др. случае repeat.вывести на печать положит. значения ф-ии y=sin(x)=cos(5x) для х, изменяющегося на отрезке {-5; 5} с шагом 1,2.
126
299
Ответы на вопрос:
1var 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.2var x,y: real; beginwriteln('положительные значения: '); x: =-5; repeat y: =sin(x)+cos(5*x); if y> 0 then writeln(y); x: =x+1.2; until x> 5; end.
Популярно: Информатика
-
ппво03.07.2022 14:36
-
gudroonnp010ou02.09.2020 12:01
-
savannah118.12.2022 02:04
-
lizalist050601.02.2021 01:42
-
fkffjfjfjfj18.09.2021 05:46
-
sonyaway1209.07.2020 20:53
-
dashavr104.09.2021 20:49
-
Annaaa6387913.12.2022 20:52
-
Polinka21a30.09.2020 13:12
-
podvorskij07.04.2023 22:12