Вычисление суммы косинусов - 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.

Объяснение кода листинга программы

В этом коде выполняется следующие действия:

  1. Ввод числа N с клавиатуры.
  2. Инициализация переменной S значением 0.0.
  3. Цикл от 1 до N.
  4. На каждой итерации цикла значение i (которое является текущим индексом) прибавляется к переменной S.
  5. Косинус i вычисляется встроенной функцией cos(i).
  6. После завершения цикла выводится значение S.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы