Продолжаем знакомиться с конструкцией условного перехода.

    В некоторых случаях оператор после служебного слова Else может отсутствовать. Тогда условный оператор будет выглядеть так:

    If <условие> Then <оператор>
    Else Ничего не делать;

Раз никаких действий выполнять не требуется, то можно убрать фразу Ничего не делать вместе со служебным словом Else. Тогда условная конструкция будет иметь следующий вид:

    If <условие> Then <оператор>;

Что сделает компьютер, если проверяемое условие является ложным?

    В качестве операторов, располагающихся после служебных слов Then и Else, могут выступать другие условные операторы. Правила составления программы на языке Pascal позволяют записывать её в свободной форме. Однако для удобства восприятия программы, особенно большой и сильно разветвлённой, рекомендуется служебное слово Else писать под словом If, к которому оно относится.

    Приведем пример простой программы, иллюстрирующей работу условной конструкции. Пусть требуется вывести на экран наибольшее из двух данных целых чисел.

Program Primer;
Var
   x,y:Integer;
Begin
   WriteLn('Введите два числа: ');
   {Вводим два целых числа}
   ReadLn(x,y);
   {Если (If) x больше y, то (Then) выводим x}
   If x>y Then WriteLn('Наибольшее из чисел: ',x)
   {Иначе (Else) выводим y}
   Else WriteLn('Наибольшее из чисел: ',y);
End. 

Значение какой переменной будет выведено на экран в случае равенства чисел? Измените программу так, чтобы в этом случае она выводила на экран сообщение: "Числа равны".
Ответ вы можете посмотреть здесь.

    На следующем шаге мы рассмотрим оператор, осуществляющий безусловную передачу управления.

Предыдущий шаг Содержание Следующий шаг