6. Ввод

В стандартном Паскале есть две основных функции ввода информации Read и ReadLn, которые используются для чтения данных с клавиатуры.

Их формат:

Read(элемент, элемент, …);

ReadLn(элемент, элемент, …); ,

Где каждый элемент – это переменная целого, вещественного, символьного типа или строка. Числа должны отделяться друг от друга пробелами или нажатием клавиш Enter.

7. Условные операторы

Иногда бывает необходимо выполнить часть программы, если заданное условие имеет значение True или False, или когда заданное выражение принимает определенное значение. Посмотрим, как это реализуется в Паскале.

7.1. Оператор If

Общий формат оператора:

If выражение

Then оператор 1

Else оператор 2,

где выражение – любое булевское выражение (вырабатывающее в результате True или False); оператор 1 и оператор 2 – операторы Паскаля. Если выражение принимает значение True, то выполняется оператор 1; в противном случае – оператор 2.

Два важных момента, на которые следует обратить внимание при использовании If/then/else.

Во-первых, оператор else не является обязательным, другими словами, допустимо использовать оператор if в следующем виде:

If выражение

Then оператор 1.

В этом случае оператор 1 выполняется только тогда, когда выражение имеет значение True. В противном случае оператор 1 пропускается и выполняется следующий оператор.

Во-вторых, если необходимо выполнить более одного оператора, в случае, когда выражение принимает значение True или False, то следует использовать составной оператор.

Составной оператор – это ключевое слово Begin, несколько операторов разделенных точкой с запятой и ключевое слово End.

В примере используется один оператор:

If B = 0.0 Then

WriteLn(‘Деление на нулю невозможно.’)

Использование составного оператора в предложении Else:

Else

Begin

Ratio := A/B;

Writeln(‘Отношение =’, Ratio)

End;

7.2. Оператор выбора Case

Оператор Case – мощное средство выбора альтернатив. Он позволяет уменьшить количество операторов If.

Оператор Case состоит из выражения (селектора) и списков операторов, каждому из которых предшествует метка того же типа, что и селектор. Это значит, что в данный момент выполняется тот оператор, у которого значение совпадает с текущим значением селектора. Если совпадения значений не происходит, то не выполняется ни один из операторов, входящих в case или же выполняются операторы, стоящие после необязательного слова else (else – расширение стандартного Паскаля).

Метка case состоит из любого количества констант или поддиапазонов, разделенных запятыми, за которым следует двоеточие (:), например:

Case BirdSight of

‘C’, ‘c’: Curlens := Curlens + 1;

‘H’, ‘h’: Herons := Herons + 1;

‘E’, ‘e’: Egrets := Egrets + 1;

‘T’, ‘t’: Terns := Terns + 1;

end; {case}

Диапазон записывается в виде двух констант, разделенных двумя точками “..”. Тип константы должен соответствовать типу селектора. Оператор, стоящий после двоеточия (:), выполняется в том случае, если значение селектора совпадает со значением константы или, если его значение попадает в диапазон значений.