2.5.2. Ввод

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

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

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

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

2.6.1. Оператор If

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

If выражение

Then оператор 1

Else оператор 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;

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

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

Оператор Case состоит из выражения (селектора) и списков операторов, каждому из которых предшествует метка того же типа, что и селектор. Это значит, что в данный момент выполняется тот оператор, у которого значение совпадает с текущим значением селектора. Если совпадения значений не происходит, то не выполняется ни один из операторов, входящих в 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}

2.7. Цикл.

В случае, когда при выполнении какого-либо условия (или невыполнения), необходимо выполнить группу операторов повторно, используются циклы.

Существует три основных вида циклов: цикл while, цикл repeat и цикл for. Рассмотрим их.

2.7.1. Цикл while.

Цикл while используется для проверки некоторого условия в начале цикла. Введите следующую программу:

Program Hello;

Var

Count: Integer;

Begin

Count: = 1;

While (Count <= 10) do

Begin

Writeln (‘ Здравствуй и прощай !’ );

Inc (Count);

End;

Writeln (‘ Это конец’);

End.

Во-первых, сначала переменной Count присвоится значение равное 1. Затем, при входе в цикл проверяется условие: значение Count меньше или равно 10. Если да, то выполняется тело цикла (операторы, находящиеся между ключевыми словами begin…end.) На экран выводится сообщение «Здравствуй и прощай». Значение Count увеличивается на 1. Возврат на начало цикла. Значение Count проверяется заново и тело цикла выполняется вновь, до тех пор пока значение переменной Count удовлетворяет условию. Как только значение Count становится равным 11, цикл завершается, и на экран выводится сообщение «Это конец».