Информационные технологии. Пономарев О.П. - 91 стр.

                      ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ



   На 1-м шаге выходным переменным положения термопары
присваиваются значения false, а выходной переменной количества
итераций nbcycle – начальное значение 0:
              step1(R); step2(R);step3(R);step4(R);
              ACTION (P) :
                      nbcycle:=0;
              END_ACTION;

   После перехода на 2-й шаг входная переменная step1
устанавливается в состояние true, переменная nbcycle получает
единичное приращение, производится генерация случайной
температуры в условной шкале 0…7 и с помощью оператора
ветвления IF-THEN-ELSE включается нагрев или охлаждение 1-й
секции детали:
               step1;
               ACTION (P) :
                      randval:=rand(8);
                      if (randval<4) then
                              Heat:=true;
                              Cold:=false;
                      else
                              Heat:=false;
                              Cold:=true;
                      end_if;
                      nbcycle:=nbcycle+1;
               END_ACTION;
   Условием перехода к шагу 3 является задержка на время tmax:
                  GS2.t>tmax;

   На 3-м шаге программы входная переменная step2 устанавливается
в состояние true, производится генерация случайной температуры в
условной шкале 0…7 и с помощью оператора ветвления IF-THEN-
ELSE включается нагрев или охлаждение 2-й секции детали:

             step2;

             ACTION (P) :

                                - 88 -