Pascal abc, задача на операторы цикла (вычисление суммы ряд), программа
Напишите программу нахождения суммы ряда. Суммирование прекращается, когда слагаемое становится меньше . В программе может использоваться максимум один цикл и не могут использоваться
собственные подпрограммы, а так же встроенные подпрограммы для
вычисления степеней с целым показателем. Обозначения: fi – последовательность Фибоначчи (f1 = 1, f2 = 1, fn+1 = fn + fn−1), n! –
факториал числа n (произведение всех целых чисел от 1 до n), n!! –
двойной факториал n (если n нечетно, то произведение всех нечетных
чисел от 1 до n; если n четно, то произведение четных чисел от 1 до
n)
По дате
По рейтингу
Цикл здесь делается так:
12345
a := 0; b := 1; p := 8; s := 0;
for n := 3 to 1000 do begin
p := p * 4 / n; c := a + b;
e := c * p * sqrt(n); a := b;
b := c; if e < 1e-17 then break end; Более-менее точная сумма этого ряда получается равной 433,462852939523.