Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 вся ветка

Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.012 c