Вычисление суммы косинусов - PascalABC.NET
Формулировка задачи:
Составьте,пожалуйста, программу для вычисления суммы cos(1)+cos(2)+…+cos(n)
Решение задачи: «Вычисление суммы косинусов»
textual
Листинг программы
begin
var N := ReadLnInteger('N = ');
var S := 0.0;
for var i := 1 to N do
S += cos(i);
WriteLn('S = ', S);
end.
Объяснение кода листинга программы
В этом коде выполняется следующие действия:
- Ввод числа N с клавиатуры.
- Инициализация переменной S значением 0.0.
- Цикл от 1 до N.
- На каждой итерации цикла значение i (которое является текущим индексом) прибавляется к переменной S.
- Косинус i вычисляется встроенной функцией cos(i).
- После завершения цикла выводится значение S.