Независимые условия pascal

[ser2live]

Имеется 2 условия в программе pascal, как программу изменить так, что б блок схема выглядела так как на рисунке?

Program Cinema;
uses crt;
var
Tz : real;
RUo : integer;
RUn : integer;
begin
if Tz>=24 then begin RUo:=10; RUn:=0; end;
if Tz<=24 then begin RUo:=15; RUn:=0; end;
end.

Имеются 2 зависимых условия, как их сделать независимыми?

[Alex11223]

Эм...Что-то не очень понял что такое "независимые условия" на этой схеме. Должен быть выбор какое условие выполнять?

[ser2live]

Сообщение от Alex11223

Эм...Что-то не очень понял что такое "независимые условия" на этой схеме. Должен быть выбор какое условие выполнять?

Одновременно должен проверять и левое условие и правое (цифры и действия там на обум написаны, для примера). И не факт что там именно энд, просто например 5 условий и он должен одновременно их проверять, независимо от других условий

[Stilet]

Одновременно должен проверять и левое условие и правое

Зачем? При этом теряется сам смысл условных операторов.
Либо ты чего-то недопонял либо твой преподаватель - валенок.

[ser2live]

Сообщение от Stilet

Зачем? При этом теряется сам смысл условных операторов.
Либо ты чего-то недопонял либо твой преподаватель - валенок.

Я ж говорю мне ненужна рабочая программа, скажите уже как сделать как на блок схеме нарисовано? если нельзя - значит нельзя, а то что работать программа не будет - это неважно..

[Alex11223]

Условие тоже наобум? Что должно произойти если Tz = 24?

[ser2live]

Сообщение от Alex11223

Условие тоже наобум? Что должно произойти если Tz = 24?

да наобум)

[Вадим Мошев]

Если я всё правильно понял...
объединить логические выражения, записанные в этих условиях связкой AND

If (Tz<=24) AND (Tz >= 24) then // не стрёмно так написать, пример всё-таки

[Stilet]

скажите уже как сделать как на блок схеме нарисовано?

А вон твой пример это и делает.

[Alex11223]

Дык если условия не противоречат друг другу (т.е. например if a=2 then b:=c; if a=2 then b:=a; ), то ваш код вроде так и делает.