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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.01.2015, 08:45   #1
Роман_Андреевич
Новичок
Джуниор
 
Регистрация: 20.01.2015
Сообщений: 2
По умолчанию подсчитать сумму ряда

Program lab3;
const y=0.57721566; x=0.50; eps=0.0000001;
function fact(n1:integer):longint;
begin
if n1<=1 then
fact:=1
else
fact:= n1*fact(n1-1);
end;
Var Ei:real; n,n2:integer;
begin
Ei:=y+ln(x);
n:=1;
while Ei>eps do
begin
n2:=fact(n);
Ei:=Ei+exp(ln(x)*n)/(n*n2);
n:=n+1;
end;
write('Ei=',Ei:8:5,' n=',n);
end.
x,y заданы условием задачи. Выдает "Ei=-0.11593 n=1" Вопроса у меня 1. Почему отрицательное число выдает? Помогите очень срочно надо я заочник строитель это задание по информатике.
Изображения
Тип файла: jpg Безымянный.jpg (6.5 Кб, 89 просмотров)
Роман_Андреевич вне форума Ответить с цитированием
Старый 20.01.2015, 09:10   #2
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 18,136
По умолчанию

Код:
n:=1;
while Ei>eps do
Между этими строками вставьте write('Ei=',Ei:8:5); и результат покажите
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 20.01.2015, 09:16   #3
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

Ei:=y+ln(x); = 0.5 + (-0,69526869920966972292207061766178) вот и получается отрицательное число,
а по условию оно должно быть больше eps=0.0000001;
не выполеняется ваше условие. надо убрать минус. пиши тогда уж так
while abs(Ei)>eps do
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсчитать сумму ряда по формуле с заданной погрешностью E(ипсилон) для произвольно заданного аргумента anast2594 Паскаль, Turbo Pascal, PascalABC.NET 2 22.06.2012 21:24
Подсчитать сумму ряда по формуле [Паскаль] Yury381 Помощь студентам 1 23.12.2010 20:14
Найти сумму ряда с точностью e, если дан общий член этого ряда JiLiYa Общие вопросы C/C++ 2 18.02.2009 11:11
Подсчитать сумму! Deman4eg Microsoft Office Excel 2 02.04.2008 09:16