Оператор выбора (Case)

Назначение. С помощью этого оператора можно выбрать выполнение одного оператора из любого количества вариантов.

Формат записи: Case <выражение-селектор> of

<список1> : <оператор1;>

<список2> : <оператор2;>

……

<списокN> : <операторN;>

[ else <оператор>]

End; {Case}

При использовании оператора Case необходимо помнить, что:

• тип выражения-селектора и типы констант списков выбора должны быть одинаковы;

• все операторы могут быть как простыми таки составными.

Пример.

Case I of

0,2,4,6,8: Writeln ('Четная цифра');

1,3,5,7,9: Writeln ('Нечетная цифра');

10..100: Writeln (‘Число от 10 до 100’)

else

Writeln (‘Отрицательное число или больше 100’)

End;

Оператор цикла (Repeat)

Назначение. Оператор цикла Repeat организует выполнение цикла, состоящего из любого числа операторов с неизвестным заранее числом повторений. Тело цикла выполняется хотя бы один раз. Выход из цикла осуществляется при истинности заданного условия.

Формат записи : Repeat <Оператор1;>

<Оператор2;>

…..

<ОператорN>

until <условие>;

Группа операторов от 1 до N образует тело цикла.

Пример.

Repeat

Write (‘Введите числа X и Y ’);

Readln (X,Y);

Sum:=X+Y;

Writeln (‘Сумма чисел X+Y равна ’, Sum);

Write (‘Завершить программу? ’);

Readln (Ch);

Until (UpCase(Ch) = ‘Y’) or (Ch = ‘д’) or (Ch = ‘Д’);

{UpCase – получение заглавной буквы}

Оператор цикла While;

Назначение. Оператор цикла While организует выполнение одного оператора неизвестное заранее число раз. Выход из цикла осуществляется, если заданное логическое выражение окажется ложным. Так как истинность логического выражения перед началом выполнения оператора, то тело цикла может не выполниться ни разу.

Формат записи:

While <условие> do <оператор;>;

Оператор образует тело цикла, он может быть простым или составным.

Пример.

a:=5000;

While Abs(a)>0.0001 do

a:=a*0.99;

Оператор цикла For;

Назначение. Оператор цикла For организует выполнение одного оператора заранее известное число раз.

Различают две формы записи оператора For.

Формат записи 1:

For <параметр цикла> := <S1> to <S2> do <оператор>;

Формат записи 2:

For <параметр цикла> := <S1> Downto <S2> do <оператор>;

Параметр цикла в обоих случаях должен быть переменной порядкового типа.

Необходимо помнить, что после каждого шага цикла:

при использовании формата записи 1 параметр цикла увеличивается на 1, следовательно, всегда S2 должно задавать большим или равным S1,

а при использовании формата записи 2 параметр цикла уменьшается на 1, следовательно, всегда S1 должно задавать большим или равным S2.

Пример.

For I:=1 to 9 do Write (‘I = ‘,I);

For j:=’Z’ downto ‘A’ do Write (j);

Оператор обращения к записям и объектам With.

Назначение. Оператор With применяется для упрощения доступа к полям записи.

Формат записи:

With <Имя записи> do

< выражение, использующее <поле записи>>

Пример. Переменная Comp1 такая же как и в примере программы в первой лекции по Паскалю:

With Comp1 do

Begin

Amplitude:=Sqrt(Sqr(Re)+Sqr(Im));

Angle:=Atan(Im/Re);

End

13. Процедуры и функции, определяемые пользователем

Вопросы:

1. Характеристика подпрограмм в Turbo Pascal

2. Порядок создания и использования процедур

3. Порядок создания и использования функций

4. Механизм формальных параметров

5. Использование модулей в Турбо Паскаль

Литература:

1. [6], с. 54-62, 105-109.

2. [7], с. 119-138, 213-231.