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.

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

IfB= 0.0Then

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}

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