Вычислить сумму, используя циклы WHILE и REPEAT - Pascal ABC
Формулировка задачи:
Помогите, плз, фото прикрепил
WHILE и REPEAT
Решение задачи: «Вычислить сумму, используя циклы WHILE и REPEAT»
textual
Листинг программы
var n,i:integer; sm,zn:real; begin write('n='); readln(n); sm:=0; zn:=0; for i:=1 to n do begin zn:=zn+sin(i); sm:=sm+cos(i)/zn; end; write('summa=',sm:0:3); end.
Объяснение кода листинга программы
- Создаются переменные n, i, sm и zn типа integer и real соответственно.
- Выводится запрос на ввод значения переменной n.
- Создается переменная sm типа real и инициализируется значением 0.
- Создается переменная zn типа real и инициализируется значением 0.
- Запускается цикл for, который выполняется от 1 до n.
- Внутри цикла переменная i и переменная zn обновляются согласно формуле sin(i) + cos(i)/zn.
- Переменная sm также обновляется согласно формуле sm = sm + cos(i)/zn.
- После завершения цикла выводится значение переменной sm.