оператор "условие" в Delphi

[morozen]

(выше стоит цикл который меняет границы а и b,т.е этот цикл выполняется для 200 интервалов [a;b])


for r:=a to b do
begin
g:=g+cc[r];
midlfon:=midlfon+fon20[r];
end;

далее идет сравнение "g" c "midlfon" (>,<) для каждого интервала [a,b]

как мне сделать так чтоб следующий кусок программы выполнялся только в случае если для всех интервалов выполняется условие "g < midlfon" ?
и как, если ХОТЯ БЫ ОДИН РАЗ не выполняется, то другая чать проги выполняется???

[venco]

Заведите ещё одну Boolean переменную в которой сохраняйте выполнение условия:

    all_good := true;
    for all intervals
    begin
        for r:=a to b do
        begin
            g:=g+cc[r];
            midlfon:=midlfon+fon20[r];
        end;
        if g < midlfon then
            all_good := false;
    end;
    if all_good
        ...
    else
        ...;

[morozen]

Вот спасибо огромное. И вправду всё очень легко...

[Circiter]

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

Видоимененный пример venco:

Используется синтаксис Pascal

procedure Check;
begin
    ...

   for ... {all intervals}
    begin

        for r:=a to b do
        begin
            g:=g+cc[r];
            midlfon:=midlfon+fon20[r];
        end;

        if g < midlfon then
        begin
            {A}

            exit;
        end;

    end;

    {B}
end;
 

Здесь на месте {A} должен быть код, срабатывающий если условие хотя-бы один раз не выполняется, а на месте {B} -- код, срабатывающий при выполнении всех условий.

Рузультат -- экономия флажка, т.е., одного бита. Негусто... :)