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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2009, 19:55   #1
Driver_09
Пользователь
 
Регистрация: 11.10.2009
Сообщений: 61
По умолчанию Не получается правильное выполнение проги (рекурсия)

Задача:
Используя оператор цикла, вычислить с заданной точностью ε приближенное значение
функции, указав количество элементов в вычисленной сумме, с использованием
рекуррентных формул, скобочных форм и/или дополнительных переменных по формуле S.
При составление программы считать, что точность достигнута, если |an |<ε .


Это мой вариант:


Код программы:
Цитата:
uses
SysUtils;

var sum,an,x:real;n:integer;
begin
write('Vvedite X:');
readln(x);
sum:=0;
an:=1;
n:=0;
while (abs(an)>0.0001) do
begin
sum:=sum+an;
n:=n+1;
an:=an*((-x*(n+2))/(n+1));
end;
writeln('Summa ',n,' elementov=',sum:0:4);
readln;
end.
Вот в этом коде почему-то работает тока при х меньше 1.
больше не работает... Может где-то ошибка, рекуррентную формулу вроде правильно посчитал(
Driver_09 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
правильное составление услвовия P®o©omp@s Помощь студентам 8 26.10.2009 09:59
Процедура в процедуре. Правильное описываение. Alex Cones Общие вопросы Delphi 12 31.08.2009 13:05
[Delphi] Правильное окончание слова Derol Помощь студентам 2 01.06.2009 07:50
Правильное выравнивание панелей amigo555 Общие вопросы Delphi 1 04.05.2009 12:44
Правильное закрытие приложения в Delphi 7 Alex Cones Общие вопросы Delphi 5 18.04.2009 22:06