Скачать: CL | DM;

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

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

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

---

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

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

---

← →
Jeer ©   (2003-09-11 19:36) [2]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c