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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.06.2017, 17:49   #1
Vladislav125
Пользователь
 
Регистрация: 27.09.2016
Сообщений: 66
По умолчанию Итерационные циклические алгоритмы.

Даны числовой ряд и некоторое число E. Найти сумму тех членов ряда, модуль которых больше или раве заданному E.Общий член ряда имеете вид на рис 1:
Пример программы:
Код:
Var E,A,Am,Sm:real;
       N,i:integer;
BEGIN
Writeln('Введите количество повторений числового ряда');
Readln(N);//5
Writeln('Введите число E');
Readln(E);//0.035
Writeln();
Sm:=0;
i:=1;
repeat
                A:=Power(-1,i-1)/Power(i,i);
                If Abs(A)>=E then
                                 begin
                                 Am:=A;
                                 Sm:=Sm+Am;
                                 //Writeln(Sm);
                                 end;
                i:=i+1;
until i=N;
Writeln(Sm);
END.
Изображения
Тип файла: png рис 1.png (3.2 Кб, 11 просмотров)
Vladislav125 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Итерационные алгоритмы W1nterSS Помощь студентам 0 23.12.2015 21:52
итерационные алгоритмы yurets17 Помощь студентам 3 07.10.2013 21:36
Циклические конструкции и итерационные алгоритмы Vitaly409 Помощь студентам 5 03.12.2010 11:13
Циклические конструкции и итерационные алгоритмы На С++ Vitaly409 Помощь студентам 2 03.12.2010 00:14
Циклические конструкции и итерационные алгоритмы. на Visual C++ 2008 Vitaly409 Помощь студентам 1 02.12.2010 21:48