Охлаждение и обогрев

[ser2live]

Помогите, пожалуйста, мне надо что б кондиционер при 25 градусах в комнате включался на 10% мощности охлаждения, а при 18 градусах, включался обогрев на 15% мощности. Я пишу программу в pascal:
Program Cinema;
uses crt;
var
Tz : real; (температура в зале)
RUo : integer; (мощность охлаждения)
RUn : integer; (мощность обогрева)
begin
if Tz>=24 then begin RUo:=10; RUn:=0; end
else if Tz<=18 then begin RUo:=0; RUn:=15; end
else begin RUo:=0; RUn:=0; end;
end.

Далее мне надо что б через 2 минуты перепроверились эти условия и если температура так же больше 25 то мощность кондиционера Ruo стала 25%, а если меньше 18, то Run 30%.
Можете написать как это будет выглядеть в программе? Заранее благодарен.

[Blondy]

К сожалению, в Пакале не пишу, поэтому в паскалевском коде изобразить не могу.

Маленькое уточнение по предидущему фрагменту.

1) Мы задаем значение изменения мощности в процентах. То есть это некоторая конечная величина от производственной мощности кондиционера в процентах. Я уж не знаю, какой мощностью обладают кодиционеры, но скажем про машину - у нее мощность 85 квт. 10% это 8,5 квт - может есть смысл округлять это значение до целого.

2) Нам необходимо число, которое хранит параметры мощности нашего кондиционера. И соотвественно, нужен тогда блок расчетов, где мы мощность кондиционера увеличиваем /уменьшаем на определенное кол-во процентов (сами расчеты конечного числа ватт: мощность кондиционера/100 * проценты). Здесь придется как-то выкручиваться с типом переменных, т.к. может получиться не целое число и компилятор всем этим подавиться. Либо все в double, либо при расчетах каждую переменную в отдельности в double

3)Ну а для продолжения нам будет нужен таймер( в секундах) - соотвественно переводим 2 минуты в секунды. И некий цикл, который будет запускаться каждые 2 минуты - здесь мы проверяем значение нашей переменной, хранящей температуру. И если она больше 25, то добавляем еще 15% мощности к кондиционеру (внимание, не 25%, а 15, т.к 10% уже есть), а если меньше 18, то добавляем обогрева 15% (или увеличиваем в два раза).
Потом у нас таймер останавливается и вы проверяем температуру - если она не изменилась, еще раз запускаем таймер и оставляем нашу мощность на том же уровне, что и была при дополнительном охлаждении/подогреве.