Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2010, 23:04   #1
boxxxer
 
Регистрация: 13.10.2010
Сообщений: 5
По умолчанию Циклы

Найти сумму ряда с точностью e = 0,01, общий член которого



формула an=1/((3*n-2)*(3*n+1))



Люди ,прошу,помогите пожайлуста,буду бесконечно благодарен
boxxxer вне форума Ответить с цитированием
Старый 16.12.2010, 23:20   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Мож так?
Код:
program forum;
uses crt;
var
    f, f1: real;
    n: integer;
    e: real;
begin
    f := 0;
    n :=1;
    e := 0.01;
    repeat
        f1 := (1/((3*n-2)*(3*n+1)));
        f := f + f1;
        n := n + 1;
    until (f1 < e);
    Writeln (f:4:3);
    ReadKey;
end.
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Циклы Chuvak ot dushi Помощь студентам 2 14.10.2010 21:03
Циклы oksik_777 Паскаль, Turbo Pascal, PascalABC.NET 2 19.05.2010 20:57
Циклы oksik_777 Паскаль, Turbo Pascal, PascalABC.NET 3 19.05.2010 20:43
Циклы - вложенны циклы? tigga Microsoft Office Excel 5 19.02.2010 23:36
Циклы <DefendeR> Общие вопросы C/C++ 1 17.12.2009 20:41