IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> бесконечный цикл, ошибочка
сообщение
Сообщение #1


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


program k;
var s:real;n,i:integer;
begin
writeln ('vedite n');
readln(n);
for I:=1 to n
n:=n+1;
s:= power((-1),n)*(n / (2*n*n -1));
writeln ('s=',s:6:4);
end.


(for I:=1 to n) после n выводит ошибку чтото неправильно ерунда какаято что тут может быть неправильно wink.gif

М
Теги - это не S, а открываешь комбобокс CODE и выбираешь язык из списка...
Прикрепленное изображение



Сообщение отредактировано: volvo -


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Скорее всего вот так

program k;
uses math;
const eps = 0.001;

var s, next:real;
n,i:integer;

begin

s := 0;

n := 1;

repeat
next := power((-1),n)*(n / (2*n*n -1));
s := s + next;
inc(n);
until abs(next) < eps;

writeln ('s=',s:6:4);

readln;

end.



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
polic   бесконечный цикл   24.12.2006 15:08
Айра   После n 'DO' поставить забыл, наверное? :…   24.12.2006 15:21
polic   да всё забываю чото стоит повешаться повесится во…   24.12.2006 15:25
klem4   1) Пользуйся тегами 2) Зачем ты хочешь поменять па…   24.12.2006 15:26
Айра   Да, кстати, begin и end в циклах кажется еще не от…   24.12.2006 15:29
polic   чото я запутался вроде получается не бесконечный ц…   24.12.2006 15:34
klem4   Зачем тебе бесконечный цикл ? Он же никогда не зав…   24.12.2006 15:35
polic   найти сумму бесконечного ряда условие остановки не…   24.12.2006 15:37
klem4   Так не бывает :) Условие остановки в таких задач…   24.12.2006 15:42
polic   впринципе там написано с точностью до E я просто н…   24.12.2006 16:02
polic   program k; const eps = 0.0000001; var s:real;n…   24.12.2006 16:39
klem4   Скорее всего вот так program k; uses math; const …   24.12.2006 16:45
volvo   Кнопка "Изменить" у тебя что, невидима? …   24.12.2006 16:48
polic   math не найден может можно чемнибудь заменить?   24.12.2006 16:48
klem4   a^n = exp(n * ln(a))   24.12.2006 16:49
polic   a^n = exp(n * ln(a)) а чо это тако…   24.12.2006 17:07
klem4   это вместо функции power, она ведь находится в мод…   24.12.2006 17:12
polic   program k; const eps = 0.001; var s, next:re…   24.12.2006 17:23
klem4   Ничего удивительного, Это по твоему чему равно ?   24.12.2006 17:25
polic   весело в задании -1 мож просто поставить 1 погод…   24.12.2006 17:28
мисс_граффити   FAQ почитай. Там про степень -1 написано.   24.12.2006 18:15
polic   это не степень -1 а число -1 в степени n --------…   24.12.2006 19:24
мисс_граффити   я тебе про это и говорю. степень двойки - это ведь…   24.12.2006 19:25
polic   какая хоть тема не могу найти ------------ вообще…   24.12.2006 19:34
volvo   Тебе ссылку дали в 9-ом посте !!! (смо…   24.12.2006 19:37
polic   %№!^*$,вы запутали меня то то сказали так…   24.12.2006 19:47


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 23:08
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name