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

Форма входа

Поиск

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

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

  • сайт создан

    Главная » 2010 » Март » 11 » УРОК 13. ПРИНЯТИЕ РЕШЕНИЙ.
    19:15
    УРОК 13. ПРИНЯТИЕ РЕШЕНИЙ.

    УРОК 13.  ПРИНЯТИЕ РЕШЕНИЙ.

     

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

     

    «ЕСЛИ ИДЁТ ДОЖДЬ НА УЛИЦЕ – ВОЗЬМИТЕ ЗОНТ!»

     

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

    САМОЕ НАИПРОСТЕЙШЕЕ УСЛОВИЕ В ПАСКАЛЕ МОЖНО ЗАПИСАТЬ ПРИ ПОМОЩИ КОНСТРУКЦИИ IF-THEN, НАПРИМЕР:

     

    IF Age < 18 THEN

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

     

    ВСЯ ЭТА КОНСТРУКЦИЯ НАЧИНАЕТСЯ С КЛЮЧЕВОГО СЛОВА IF, ЗА КОТОРЫМ СЛЕДУЕТ ЛОГИЧЕСКОЕ ВЫРАЖЕНИЕ, ПРЕДСТАВЛЯЮЩЕЕ СОБОЙ УСЛОВИЕ, КОТОРОЕ НЕОБХОДИМО ПРОВЕРИТЬ (В НАШЕМ С ВАМИ ПРИМЕРЕ ЭТО – Age <18). ПОСЛЕ УСЛОВИЯ СЛЕДУЕТ КЛЮЧЕВОЕ СЛОВО THEN И ЗА НИМ ОПЕРАТОР-РЕЗУЛЬТАТ WRITELN, КОТОРЫЙ ДОЛЖЕН БУДЕТ ВЫПОЛНИТЬСЯ, ЕСЛИ УСЛОВИЕ ПРИНИМАЕТ ЗНАЧЕНИЕ TRUE. НАШ С ВАМИ ПРИМЕР ОЗНАЧАЕТ, ЧТО ЕСЛИ ЗНАЧЕНИЕ ПЕРЕМЕННОЙ Age МЕНЬШЕ 18, ТО ВЫПОЛНЯЕТСЯ ЧАСТЬ ОПЕРАТОРА ПОСЛЕ КЛЮЧЕВОГО СЛОВА THEN. ТАКОЙ ТИП УПРАВЛЕНИЯ ПРОГРАММОЙ НАЗЫВАЕТСЯ УСЛОВНЫМ ВЕТВЛЕНИЕМ. ОСНОВНАЯ ФОРМА КОНСТРУКЦИИ IF-THEN:

     

    IF условие THEN

    ОПЕРАТОР;

     

    ПРИМЕР ПРОГРАММЫ «КРЕДИТНАЯ КАРТА».

    ПРОГРАММА СОДЕРЖИТ КОНСТАНТУ LIMIT, КОТОРАЯ ПРЕДСТАВЛЯЕТ ЛИМИТ КРЕДИТНОЙ КАРТЫ, И ПЕРЕМЕННОЙ AMOUNT, ЗНАЧЕНИЕ КОТОРОЙ БУДЕТ ВВОДИТЬСЯ С КЛАВИАТУРЫ. ПРОГРАММА БУДЕТ ВЫВОДИТЬ НА ЭКРАН СООБЩЕНИЕ: «ВАШ РАСХОД ПРИНЯТ!», ЕСЛИ ЗНАЧЕНИЕ AMOUNT МЕНЬШЕ, ЛИБО РАВНО LIMIT. ЕСЛИ УСЛОВИЕ ПРИНИМАЕТ ЗНАЧЕНИЕ FALSE, ПРОГРАММА ЗАКАНЧИВАЕТ РАБОТУ БЕЗ ВСЯКИХ СООБЩЕНИЙ:

     

    PROGRAM Primer (INPUT, OUTPUT);

    CONST

    Limit = 1000;

    VAR

    Amount: REAL;

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

    READLN (Amount);

    IF Amount < = Limit THEN

    WRITELN (‘ВАШ РАСХОД ПРИНЯТ!’);

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

    READLN

    END.

     

    МОЖНО ЭТУ ПРОГРАММУ БОЛЕЕ УСОВЕРШЕНСТВОВАТЬ, ИСПОЛЬЗАВАВ ДВА УСЛОВНЫХ ОПЕРАТОРА. В ПРОГРАММЕ ПРИВЕДЁННОЙ НИЖЕ, ДВА ВАРИАНТА ВЫПОЛНЕНИЯ. В СЛУЧАЕ, ЕСЛИ СУММА БУДЕТ ПРЕВЫШАТЬ ЛИМИТ 1000, ТО ПРОГРАММА ВЫДАСТ: «СУММА ПРЕВЫШАЕТ ЛИМИТ ВАШЕГО КРЕДИТА».

     

    PROGRAM Primer (INPUT, OUTPUT);

    CONST

    Limit = 1000;

    VAR

    Amount: REAL;

    BEGIN

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

    READLN (Amount);

    IF Amount <= Limit THEN

    WRITELN (‘ВАШ РАСХОД ПРИНЯТ');

    IF Amount > Limit THEN

    WRITELN (‘СУММА ПРЕВЫШАЕТ ЛИМИТ ВАШЕГО КРЕДИТА.’);

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

    READLN

    END.

     

     

     

     

     

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

    Мини-чат

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

    Статистика

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

    Copyright MyCorp © 2018