УРОК 16.  ЦЕПОЧКИ ELSE-IF.

НА ПРЕДЫДУЩЕМ УРОКЕ МЫ С ВАМИ РАЗБИРАЛИ ОПЕРАТОР IF-THEN-ELSE, КОТОРЫЙ ПРЕДНАЗНАЧЕН ДЛЯ ДВОЙНОГО ВЫБОРА. НО ПРИ СЛОЖНЫХ ПРОГРАММАХ ВАМ ПОНАДОБИТСЯ РАСШИРЕННЫЙ ВИД ЭТОЙ КОНСТРУКЦИИ. ПОСМОТРИТЕ НА НОВУЮ СХЕМУ КОНСТРУКЦИИ, КОТОРАЯ НАЗЫВАЕТСЯ ЦЕПОЧКОЙ ELSE-IF:

IF условие-1 THEN

Оператор-1

ELSE IF условие-2 THEN

Оператор-2

ELSE IF условие-3 THEN

Оператор-3

…….

ELSE

Оператор-n;

УСЛОВИЯ В ЦЕПОЧКЕ ВЫЧИСЛЯЮТСЯ СВЕРХУ ВНИЗ, И ВСЯКИЙ РАЗ, КОГДА УСЛОВИЕ ПРИНИМАЕТ ЗНАЧЕНИЕ TRUE, ВЫПОЛНЯЕТСЯ СООТВЕТСТВУЮЩИЙ ОПЕРАТОР, А ОСТАЛЬНАЯ КОНСТРУКЦИЯ ПРОПУСКАЕТСЯ. ЕСЛИ НЕ УДОВЛЕТВОРЯЕТСЯ НИ ОДНО ИЗ УСЛОВИЙ, В ДЕЛО ВСТУПАЕТ ЗАВЕРШАЮЩИЙ ELSE. ПРИВЕДУ ВАМ ПРИМЕР «ТЕСТЕР СИМВОЛОВ», ЛЮБЕЗНО МНОЙ ПОЗАМСТВОВАННЫЙ В ОДНОЙ ОЧЕНЬ ХОРОШЕЙ КНИЖКЕ.

СНАЧАЛА ПРОГРАММА ПРОСИТ ВВЕСТИ БУКВУ, ЗАТЕМ ПРОВЕРЯЕТ, В КАКОМ РЕГИСТРЕ ВВЕДЁН СИМВОЛ – НИЖНЕМ ИЛИ ВЕРХНЕМ (МАЛЕНЬКИЕ БУКВЫ ИЛИ БОЛЬШИЕ). А ТАКЖЕ ПРОГРАММА РАСПОЗНАЁТ ЧИСЛА О ЧЁМ СРАЗУ ВЫДАЁТ СООБЩЕНИЕ, В ОСТАЛЬНЫХ СЛУЧАЯХ ПРОГРАММА ВЫВОДИТ НА ЭКРАН: «ПРОСТИТЕ, ЭТО НЕ БУКВА». БУКВЫ В ВЕРХНЕМ РЕГИСТРЕ СООТВЕТСТВУЮТ КОДАМ ОТ 65 ДО 90; БУКВЫ В НИЖНЕМ РЕГИСТРЕ СООТВЕТСТВУЮТ КОДАМ ОТ 98 ДО 122; ЦИФРЫ СООТВЕТСТВУЮТ КОДАМ ОТ 48 ДО 57. А ВОТ, СОБСТВЕННО, И ПРОГРАММА:

PROGRAM Primer (INPUT, OUTPUT);

VAR

InputChar: CHAR;

BEGIN

WRITE (‘ПОЖАЛУЙСТА, ВВЕДИТЕ АЛФАВИТНЫЙ СИМВОЛ:’);

READLN (InputChar);

{_ _начало конструкции IF_ _}

IF (ORD (InputChar) > 64) AND (ORD (InputChar) < 91) THEN

WRITELN (‘ЭТО БУКВА В ВВЕРХНЕМ РЕГИСТРЕ.’)

ELSE IF (ORD (InputChar) >96) AND (ORD (InputChar) <123) THEN

WRITELN (‘ЭТО БУКВА В НИЖНЕМ РЕГИСТРЕ.’)

ELSE IF (ORD (InputChar) > 47) AND (ORD (InputChar) < 58 THEN

WRITELN (‘ЭТО ЧИСЛО!’)

ELSE

WRITELN (‘ПРОСТИТЕ, ЭТО НЕ БУКВА.’);

{_ _конец конструкции IF_ _}

WRITELN (‘ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ КЛАВИШУ ENTER….’);

READLN

END.

ЗАМЕТЬТЕ, ЧТО ЦЕПОЧКА УСЛОВИЙ СЧИТАЕТСЯ ОДНИМ ОПЕРАТОРОМ И ЗАКАНЧИВАЕТСЯ ТОЧКОЙ С ЗАПЯТОЙ, НО ВНУТРИ ЦЕПОЧКИ ТОЧКА С ЗАПЯТОЙ ОТСУТСТВУЮТ.