Циклы вычисления.

← →
Doberman © (2003-09-11 19:18) [0]

Есть цикл вычислений "а" результаты которого идут в цикл "b". Когда результат цикла "b" меняет знак на противоположный (т. е. "+" на "-" или на обарот) то после перемены знака цикл "a" должен выполнится еще один раз и поменять знаменатель . Как это можно организовать ?

← →
still © (2003-09-11 19:35) [1]

процедурами не подходит?

var tmpj..

for i:= 0 to imax do begin
..
for j:=0 to jmax do begin
..
resj :=...;
end;
if (tmpj <> 0) and (sign(tmpj) <> sign(resj)) then Inc(imax);
tmpj := resj;

end;

function Sign(const I:Variant):Integer;
begin
if I<0 then
Result:=-1
else if I>0 then
Result:=1
else Result:=0;
end;

Циклы вычисления. Найти похожие ветки