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