![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 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. |
![]() |
![]() |
![]() |
#2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
![]()
а зачем вам тут power ? только чтобы -1 в степень возводить! изврат это!
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 16.04.2011 в 00:37. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сумма ряда! | 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 |