Найти сумму ряда - Pascal (80429)

Узнай цену своей работы

Формулировка задачи:

Программирование алгоритмов циклической структуры с заданным числом повторений. Найти сумму ряда

Решение задачи: «Найти сумму ряда»

textual
Листинг программы
var k: integer;
    s: real;
begin
  s := 0;
  for k := 1 to 50 do s := s + 1 / k / k / k;
  write('S = ', s);
  readln
end.

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

  1. Создается переменная k типа integer для хранения индекса последовательности.
  2. Создается переменная s типа real для хранения суммы ряда.
  3. Устанавливается начальное значение переменной s равное 0.
  4. Начинается цикл, в котором переменная k последовательно принимает значения от 1 до 50.
  5. На каждом шаге цикла к значению переменной s прибавляется выражение 1 / k / k / k, то есть значение из ряда.
  6. Выводится значение переменной s с помощью команды write.
  7. Чтение ввода для ожидания завершения программы с помощью команды readln.

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

13   голосов , оценка 3.846 из 5