Вычислить сумму ряда - Turbo Pascal (28950)

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

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

Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

Решение задачи: «Вычислить сумму ряда»

textual
Листинг программы
var S,d:real;
    i:integer;
begin
S:=0;
repeat
write('Введите d>=0 d=');
readln(d);
until d>=0;
for i:=2 to 15 do
S:=S+sqrt(i*d);
writeln(S:0:2);
end.

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

  1. Создаются переменные S, d и i типа real и integer соответственно.
  2. Переменная S инициализируется значением 0.
  3. Запускается цикл repeat-until, который продолжается до тех пор, пока значение переменной d больше или равно 0.
  4. Внутри цикла запрашивается ввод значения переменной d с помощью функции readln.
  5. После того как значение d получено, происходит вычисление суммы S с использованием формулы S = sqrt(i * d) для i от 2 до 15.
  6. Значение суммы S сохраняется в переменной S.
  7. Выводится значение S с помощью функции writeln.
  8. Конец программы.

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

14   голосов , оценка 4 из 5