Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal]Вычисление суммы членов ряда

Автор: ramos1337 30.3.2011, 14:59

Помогите написать программку...

Найти сумму членов ряда:
S=1/(1+1^2)+2/(1+2^2)+3/(1+3^2)...
с точностью 10^-3

Автор: Corelacia 30.3.2011, 22:12

Могу помочь corelacia@mail.ru

Автор: flashkpi 31.3.2011, 14:30

Пишите, выполню
icq: 588002847
email: flash_1989@ukr.net
skype: rfhfcerf

Автор: ramos1337 31.3.2011, 17:00

А бесплатно никто не может помочь?(

Автор: v4v4n 3.4.2011, 10:37

Код


var S,E:Extended; i : integer;
Begin
    S:=0; i:=1; E:=0.5;
    repeat
        S:=S+E;
        inc(i);
        E:=i/(i+sqr(i));
    until E<0.001;
    write('Summ:',S:18:12);
    Readln;
End.

Автор: ramos1337 3.4.2011, 11:13

Спасибо))