Читайте также:
|
Условное выполнение задается с помощью оператора IF – выражения со стандартными словами IF, THEN, ELSE в следующей форме:
IF условие
THEN
оператор THEN
ELSE
оператор ELSE
Где оператор THEN и оператор ELSE – операторы языка Паскаль, например, оператор присваивания. Если условие выполняется, тогда Паскаль-машина выполняет оператор THEN, в противном случае - оператор ELSE.
Как правило, оператор IF записывается в вышеприведенной форме, IF, THEN и ELSE на отдельных строках, оператор THEN и оператор ELSE сдвинуты на два символа для лучшей читаемости программы.
PROGRAM MaxChar (INPUT, OUTPUT);
{Копирует наибольший из первых двух символов из INPUT в OUTPUT}
VAR
Ch1, Ch2, Max: CHAR;
BEGIN
READ(Ch1, Ch2);
IF Ch1 > Ch2
THEN
Max:= Ch1;
ELSE
Max:= Ch2;
WRITELN(‘MAX OF ’, Ch1, ‘, ‘, Ch2, ‘ IS ‘, Max, ‘.’);
END.
INPUT: AZURE
OUTPUT: MAX OF A, Z IS Z.
INPUT: 1234
OUTPUT: MAX OF 1, 2 IS 2.
INPUT: 77
OUTPUT: MAX OF 7, 7 IS 7.
Вышеприведенная программа также демонстрирует нам эхо ввода и аннотированный вывод.
Частичная таблица выполнения для программы MaxChar
| Условие | INPUT | Ch1 | Ch2 | Max | |
| BEGIN READ(Ch1, Ch2) IF Ch1 > Ch2 ELSE Max:= Ch2 WRITELN(Max) END | No | A ZURE AZ U RE AZ U RE AZ U RE AZURE | ? A A A | ? Z Z Z | ? ? Z Z |
Оператор IF в этой таблице отсутствует потому, что он ее выполнялся. Значения не показаны в тех строках таблицы, где они не могут быть изменены.
Оператор ELSE может быть пропущено в операторе IF, в таком случае он будет записываться в следующей форме:
IF условие
THEN
оператор THEN
В данном случае, если условие в выражении IF не выполняется, Паскаль-машина ничего не делает. Программа MaxTwo выполняет ту же работу что и программа MaxChar, но с использованием оператора IF без выражения ELSE.
PROGRAM MaxTwo (INPUT, OUTPUT);
{Копирует наибольший из первых двух символов из INPUT в OUTPUT}
VAR
Ch1, Ch2: CHAR;
BEGIN
READ(Ch1, Ch2);
WRITE(‘MAX OF ’, Ch1, ‘, ‘, Ch2, ‘ IS ‘);
IF Ch1 < Ch2
THEN
Ch1:= Ch2;
WRITELN(Ch1, ‘.’);
END.
INPUT: AZURE
OUTPUT: MAX OF A, Z IS Z.
Дата добавления: 2015-07-11; просмотров: 70 | Нарушение авторских прав