Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата

        IF Valid THEN WRITELN('Дата верна')

               ELSE WRITELN('Дата не верна');

 END.

Оператор выбора во многих случаях удобнее, чем условный оператор,

он записывается в виде :

CASE выражение OF

           список значений : оператор/блок

           ..................................

           список значений : оператор/блок

           [ELSE          оператор/блок]

     END;

Здесь выражение - это любое выражение порядкового типа, список значений - это список разделенных запятыми константных выражений или диапазонов, диапазон - это конструкция вида константное выражение .. константное выражение. Константным будем называть любое выражение, в которое входят только неименованные и нетипизированные константы (т.е. в константное выражение не могут входить имена переменных, функции и типизированные константы). На самом деле константные выражения - это выражения, которые могут быть вычислены до выполнения программы, а отсюда уже и вытекают ограничения на их вид. Выражение, стоящее после CASE, и все константные выражения должны быть одного типа либо все иметь целочисленные типы.

Оператор выбора выполняется следующим образом: вычисляется выражение, стоящее после CASE, затем просматриваются все списки значений, и если значение выражения попало в список значений, выполняется соответствующий оператор или блок, и выполнение оператора CASE заканчивается; если значение выражения не содержится ни в одном из списков, то выполняется оператор или блок, стоящий после ELSE. Конструкция ELSE может отсутствовать, в этом случае оператор CASE может не выполнить никаких действий. В качестве примера использования оператора выбора решим предыдущую задачу о правильной дате.

 VAR d,m : Byte;  y : Word;  Valid : Boolean;

 BEGIN WRITE('Введите дату '); READ(d,m,y);

        CASE m OF

              1,3,5,7,8,10,12 :

               CASE d OF 1..31 : Valid:=TRUE

                          ELSE Valid:=FALSE

               END;

             4,6,9,11 :

               CASE d OF 1..30 : Valid:=TRUE

                          ELSE Valid:=FALSE

               END;

              2 : CASE d OF 1..28 : Valid:=TRUE;

Рекомендуем скачать другие рефераты по теме: инновационная деятельность, кризис реферат.





Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата