Переход от Repeat(или While) к For, Реально ли это? Опции

[bhldr]

По идее когда число повторений неизвестно, 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;
........

[volvo]

bhldr, нет... Ты действительно должен знать точное число итераций, а здесь ты этого не можешь знать из-за рекуррентности формулы (последующий элемент зависит от предыдущего).

Кстати, а чем Repeat Until не нравится? Он побыстрее For будет (при использовании Турбо Паскаля...)

[bhldr]

Мне RepeatUntil нравится, просто задание у меня такое: нужно эту тему представить в трех циклах, а я не врубаюсь, как ее в For перебить.

[volvo]

Извращение, конечно, но... Сам просил:

const
  maxIter = 100; { можешь поменять... }
Var
  x,eps,U,Un:Real; 
  a:Byte;
  stop: boolean;
...
U := 1; a := 2; Un := U*Cos(x/a);
stop := False;
for i := 1 to maxIter Do
  If not stop Then Begin
    U := Un; Un := U*Cos(x/a);
    a := a*2;

    { Как только stop станет равным True, остаток цикла пройдет вхолостую... }
    stop := (Abs(Un - U) < eps);
  End;
...

[bhldr]

Спасибо, всё круто. Только maxIter надо по-видимому сделать переменной, зависящей от eps, иначе если очень маленькую eps задать, то цикл рано закончится.

[klem4]

хе-хе ну раз про извращения разговор пошел, то можно и вот так :

const
  maxIter = 100; { можешь поменять... }
Var
  x,eps,U,Un:Real; 
  a:Byte;
...
U := 1; a := 2; Un := U*Cos(x/a);
for i := 1 to maxIter Do  Begin
    U := Un; Un := U*Cos(x/a);
    a := a*2;

    { Как только stop станет равным True, остаток цикла пройдет вхолостую... }
    if (Abs(Un - U) < eps) then break; // используем прерывание цикла
End;
...

добвлено : Volvo, я просто с просони забыл убрать эту переменную и проверку, естественно она в таком случае не нужна.

Сообщение отредактировано: klem4 - 24.10.2005 9:09

[volvo]

klem4, это не извращение, а невнимательность:

...
U := 1; a := 2; Un := U*Cos(x/a);
for i := 1 to maxIter Do
  U := Un; Un := U*Cos(x/a);
  a := a*2;
  if (Abs(Un - U) < eps) then break; // используем прерывание цикла
End;
...

stop в таком случае вообще не нужен Хотя, может ты и прав... У тебя и есть настоящее извращение: описАть переменную, чтобы ее потом нигде не использовать...

[Digitalator]

а вот вам супер извращение, по идее должно работать

Код

for i:=1 to 1 do
begin
<делаем что-нить>
if not(<уловие выхода>) then
 begin
   //извращение с указателем т.к.
   //некотрые компиляторы не дают
   //изменять индекс цикла,
   //а так должно сработать
 pi := @i;
 pi^ := 0;
 end;
end;

[Altair]

Позволю себе оффтоп.
Все таки иногда удивляюсь насколько красиво может быть программирование...

for i:=1 to 1 do
begin
<делаем что-нить>
if not(<уловие выхода>) then
begin
  pi := @i;
  pi^ := 0;
end;
end;

еще одна оригинальная конструкция улетает в копилку...
Хотя ИМХО возможно еще по адресное хранения переменный, типа
x: integer absolute i;
тогда

for i:=1 to 1 do
begin
<делаем что-нить>
 if not(<уловие выхода>) then x:=0;
end;

!

[volvo]

Олег, а вот это не срабатывает (на FPC, в частности) Этот компилятор просекает, что X и I это одно и то же, и ...

Error: Illegal assignment to for-loop variable i

, хотя меняю я X ...

[Altair]

хм.. круто!
TP вроде пропускал это ... умнеют...