[Van]

Добрый день! Прошу Вашей помощи...

Пытаюсь в Delphi сделать программу расчета.
Что требуется: есть две переменные, которые просчитываются до тех пор, пока одна из них не достигнет определенного значения.
Если делаю программу, где сравнивается только одна переменная, то все работает, если с двумя - не работает (первая переменная достигает нужного значения, но цикл продолжается).

Привожу кусочек кода (хотя, в принципе, можно рассматривать только первую строку):

While (P<=0.98) or (P1<=0.95) do
begin
inc(i);
SetData;
AddToExcel(i);
Formula;
end;

Как правильно расставить операторы, чтобы условие работало (необходимо, чтобы шел цикл и останавливался, когда будет достигнуто одно из условий)?

[Van]

Пробовал:

While ((P<=0.98) or (P1<=0.95)) do

не сработало

[lmikle]

Используй And:

Код:

While ((P<=0.98) And (P1<=0.95)) Do

Тебе ведб надо чтобы выполнялись оба условия.

[Van]

В том то и дело, что надо, чтобы расчет цикл остановился при достижении любого одного из условий (есть две величины, которые изменяются независимо друг от друга - растут с разным шагом и в зависимости от исходных данных может или одна или другая величина Р или Р1 достигнуть критического значения, при котором расчет должен остановиться).
Плюс может добавиться еще одна величина...

[Aristarh Dark]

Van, не упорствойте в своем незнании булевой логики. lmikle Вам правильно подсказал.

[Van]

lmikle, спасибо за помощь - сработало!