Вторник, 20.02.2018, 03:06
ПРОГРАММИРОВАНИЕ ДЛЯ НОВИЧКОВ. ТУРБО ПАСКАЛЬ.
Приветствую Вас Гость | RSS
Главная Регистрация Вход
меню сайта

Форма входа

Поиск

Календарь
«  Март 2010  »
ПнВтСрЧтПтСбВс
1234567
891011121314
15161718192021
22232425262728
293031

Друзья сайта
Русские программы
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • сайт создан

    Главная » 2010 » Март » 26 » УРОК 16. ЦЕПОЧКИ ELSE-IF.
    07:39
    УРОК 16. ЦЕПОЧКИ ELSE-IF.

    УРОК 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.

     

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

     

     

     

     

    Просмотров: 3181 | Добавил: mila | Рейтинг: 0.0/0
    Всего комментариев: 0
    Имя *:
    Email *:
    Код *:
    Архив записей

    Мини-чат

    подписка на рассыл
    Подписаться на турбо паскаль
    Имя:
    E-mail:

    Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0

    Copyright MyCorp © 2018