Elya16
Опубликовано 6 лет назад по предмету Информатика от Elya16


Вычислите частичную сумму ряда S=1+1/2+1/4+1/8+..... вычисления прекратите,когда модуль очередного слагаемого станет меньше 0,001.

  1. Ответ
    Ответ дан anti

    используем рекурентную формулу, чтобы упростить программу

    а[n+1]=1/4

    a[n]=1/2

    t=(1/4)/(1/2)=1/2

    a[n+1]=a[n]*1/2

    Program;

    var  n:integer;abs,s,a:real;

    begin

    a:=1;

    eps:=1;

    s:=1;

    repeat

    a:=a*1/2;

    abs:=abs(a);

    s:=s+a;

    until abs<0.001;

    writeln(s);

    end;

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц