Задание:
Решить вот это y=cos (x)+cos в квадрате (x)+… cos в десятой (x) с помощью REPEAT И FOR НАПРИМЕР НАЧИНАЕТСЯ С PROGRAMназвание;
Решение:
Это турбо паскаль) кстати тут не все условие задачи я так понял) program aaa; var y: real; X: integer; beginreadln (x); y: =cos (x)+sqr (cos (x)+exp (10*ln (cos (x); writeln (y: 1:2); readln; end. А с фором оно должно выглядеть так program aaa; var y: real; x: integer; beginfor x: =начало промежутка to конец промежуткаbegin y: =cos (x)+sqr (cos (x)+exp (10*ln (cos (x); writeln (y: 1:2); end; readln; end. Вот с repeat program aaa; var y: real; x: integer; beginx: =начало промежутка; repeat y: =cos (x)+sqr (cos (x)+exp (10*ln (cos (x); writeln (y: 1:2); x: =шаг; until x=конец промежутка; readln; end.
Знаете другой ответ?