 Переход от Repeat(или While) к For, Реально ли это? |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| bhldr |
 23.10.2005 9:04
Сообщение
#1
|
|
Гость  |
По идее когда число повторений неизвестно, For использовать нельзя, но может все-таки как-нибудь можно?
Реально ли перебить этот фрагмент под цикл For?
Var x,eps,U,Un:Real;
a:Byte;
.......
U:=1;
a:=2;
Un:=U*cos(x/a);
Repeat
U:=Un;
Un:=U*cos(x/a);
a:=a*2
Until Abs (Un-U)<eps;
........
|
 
|
|
Сообщений в этой теме
bhldr Переход от Repeat(или While) к For 23.10.2005 9:04
volvo bhldr, нет... Ты действительно должен знать точное... 23.10.2005 9:30 bhldr Мне RepeatUntil нравится, просто задание у меня та... 23.10.2005 10:29 volvo Извращение, конечно, но... Сам просил:
const
ma... 23.10.2005 10:43
bhldr Спасибо, всё круто. Только maxIter надо по-видимом... 23.10.2005 10:56 klem4 хе-хе ну раз про извращения разговор пошел, то мож... 24.10.2005 7:31 volvo klem4, это не извращение, а невнимательность:
...
... 24.10.2005 8:56 Digitalator а вот вам супер извращение, по идее должно работат... 24.10.2005 15:42 Altair [color=blue]Позволю себе оффтоп.
Все таки иногда у... 24.10.2005 16:37 volvo Олег, а вот это не срабатывает (на FPC, в частност... 24.10.2005 16:43 Altair хм.. круто! :)
TP вроде пропускал это :) ... у... 24.10.2005 16:44  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 26.07.2025 3:40 |