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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2011, 21:26   #1
*cash*
Пользователь
 
Регистрация: 15.04.2011
Сообщений: 25
По умолчанию Циклы (сумма ряда чисел)

Посмотрите пожалуйста.
Вот условие задачи:
http://s61.radikal.ru/i174/1104/3a/20f901c6f15d.jpg

Вот какую ошибку выводит: http://s002.radikal.ru/i198/1104/72/809db5bf638e.jpg

Вот текст программы:
program Project1;
uses
SysUtils,math;
var s,e:real;
j:integer;
begin
readln (e);
S:=0; j:=1;
while abs((power((-1),j+1))/(j*(j+1)*(j+2)))>e do
begin
s:=s+((power((-1),j+1))/(j*(j+1)*(j+2)));
inc(j);
end;
write (s:0:5);
readln;
end.
*cash* вне форума Ответить с цитированием
Старый 15.04.2011, 22:29   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

а зачем вам тут power ? только чтобы -1 в степень возводить! изврат это!
Код:
s:=0;i:=1;
sl:=(i*(i+1)*(i+2);
if not odd(i) then sl:=-sl;
while abs(1/sl)>=e do
begin
s:=s+1/sl;
inc(i);
sl:=i*(i+1)*(i+2);
if not odd(i) then sl:=-sl;
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 16.04.2011 в 00:37.
Mad_Cat вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма ряда! sermog Помощь студентам 5 08.04.2011 21:54
сумма ряда [Te[M]ka] Паскаль, Turbo Pascal, PascalABC.NET 5 22.01.2011 17:50
Сумма ряда Sova123456 Помощь студентам 8 11.06.2010 17:10
Сумма ряда alex_triton Общие вопросы C/C++ 6 11.06.2010 14:09
Сумма ряда QuadroX Помощь студентам 3 05.11.2009 16:02