Переход от 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;
........

[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 13:09