НА ПРЕДЫДУЩЕМ
УРОКЕ МЫ С ВАМИ РАЗБИРАЛИ ОПЕРАТОР IF-THEN-ELSE, КОТОРЫЙ ПРЕДНАЗНАЧЕН ДЛЯ
ДВОЙНОГО ВЫБОРА. НО ПРИ СЛОЖНЫХ ПРОГРАММАХ ВАМ ПОНАДОБИТСЯ РАСШИРЕННЫЙ ВИД ЭТОЙ
КОНСТРУКЦИИ. ПОСМОТРИТЕ НА НОВУЮ СХЕМУ КОНСТРУКЦИИ, КОТОРАЯ НАЗЫВАЕТСЯ ЦЕПОЧКОЙ
ELSE-IF:
IF
условие-1 THEN
Оператор-1
ELSEIF условие-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