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

Форма входа

Поиск

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

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

  • сайт создан

    Главная » 2010 » Март » 15 » УРОК 15. КОНСТРУКЦИЯ IF-THEN-ELSE.
    08:14
    УРОК 15. КОНСТРУКЦИЯ IF-THEN-ELSE.

    УРОК 15.  КОНСТРУКЦИЯ IF-THEN-ELSE.

     

    В 13 И 14 УРОКАХ МЫ С ВАМИ РАССМАТРИВАЛИ ПРОСТЕЙШУЮ КОНСТРУКЦИЮ ОПЕРАТОРА IF. ПОЛНЫЙ ЖЕ ОПЕРАТОР IF ВКЛЮЧАЕТ В СЕБЯ ДВА ВАРИАНТА ДЕЙСТВИЙ ВАШЕЙ ПРОГРАММЫ, В ЗАВИСИМОСТИ ОТ РЕЗУЛЬТАТА ПРОВЕРКИ УСЛОВИЙ. ВСЯ КОНСТРУКЦИЯ ВЫГЛЯДИТ ВОТ ТАК:

     

    IF условие THEN

    Оператор

    ELSE

    Оператор;

     

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

     

    IF Age <18 THEN

    WRITELN (‘ВЫ НЕСОВЕРШЕННОЛЕТНИЙ!')

    ELSE

    WRITELN (‘ВОЗРАСТ СООТВЕТСТВУЮЩИЙ СОВЕРШЕННОЛЕТИЮ!’);

     

    ДАВАЙТЕ ТЕПЕРЬ НЕМНОГО ИЗМЕНИМ ВЫШЕПРИВЕДЁННЫЙ ФРАГМЕНТ ПРОГРАММЫ, ИСПОЛЬЗАВАВ ДЛЯ ЭТОГО БЛОКИ BEGIN-END.

     

    IF Age <18 THEN

    BEGIN

    WRITELN (‘ВЫ НЕСОВЕРШЕННОЛЕТНИЙ!’);

    WRITELN (‘ПРОДАЖА СИГАРЕТ НЕСОВЕРШЕННОЛЕТНИМ ЗАПРЕЩЕНА!’);

    END

    ELSE

    BEGIN

    WRITELN (‘ВЫ СОВЕРШЕННОЛЕТНИЙ!');

    WRITELN (‘ВЫМ ПОКУПКА ТАБАЧНЫХ ИЗДЕЛИЙ РАЗРЕШЕНА!’)

    END;

     

    ОБРАТИТЕ ВНИМАНИЕ НА СЛОВО END ПЕРВОГО БЛОКА, А ИМЕННО НА ТО, ЧТО ТОЧКА С ЗАПЯТОЙ ПОСЛЕ НЕГО НЕ СТАВИТСЯ, Т.К. ЭТО ЕЩЁ НЕ КОНЕЦ ОПЕРАТОРА!!!!!!!!!!!!

    ПОПРОБУЙТЕ СОСТАВИТЬ ПОЛНУЮ ПРОГРАММУ С ИСПОЛЬЗОВАНИЕМ ЭТОЙ КОНСТРУКЦИИ. СЧИТАЙТЕ, ЧТО ЭТО ВАШЕ ДОМАШНЕЕ ЗАДАНИЕ!

     

     

     

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

    Мини-чат

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

    Статистика

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

    Copyright MyCorp © 2025