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

1+2/2!+3/4!+4/6!+5/8!…Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности Е

  1. Ответ
    Ответ дан petyaGavrikov
    Программа на паскале:
    const e=0.0001;
    var a,s,f:real; n:integer;
    begin
    a:=1;s:=1;n:=0;f:=1;
    while abs(a)>e do
     begin
     n:=n+1;
     f:=f*(2*n-1)*(2*n);
     a:=(n+1)/f;
     s:=s+a
     end;
    writeln('s=',s:7:5);
    end.
Самые новые вопросы