9.5.3. Оператор выбора варианта

Оператор выбора позволяет выбрать одно из нескольких возможных вариантов программы. Параметром, по которому осуществляется выбор, служит ключ выбора – выражение любого порядкового типа (любого из рассмотренных, кроме типов REAL и STRING).

Структура оператора выбора такова:

CASE <ключ выбора> OF

<список выбора>

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

end;

где CASE – случай, of – из,

<ключ выбора> выражение типа целые;

<оператор> – произвольный оператор Турбо Паскаля.

Оператор выбора работает следующим образом. Вначале вычисляется значение выражения <ключ_выбора>, а затем в последовательности операторов <список_выбора> отыскивается такой, которому предшествует константа, равная вычисленному значению. Найденный оператор выполняется, после чего оператор выбора завершает свою работу. Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа выбора, управление передается оператору, стоящему за словом ELSE.

Пример 11.

Вывести разные функции в зависимости от значения переменной n, введённой с клавиатуры. Написать программу с использованием оператора выбораCASE.

Решение.

ProgramPr11;

Var

n: integer;

a, b, y, z: real;

begin

writeln (‘n, a, b’);

read (n, a, b);

y:=a+b; z:=a-b;

CASE n of

1, 2, 5: writeln (y);

7..10: writeln (z);

else writeln (‘ вне области определения n’);

end;end.

При значении n=1, 2, 5 программа выведет значение y. При значении n={7, 8, 9, 10}(одному из списка) программа выведет значение z, иначе выведет текст ‘вне области определения n’ .

Пример 12.

Вывести разные функции в зависимости от значения переменной k. Если переменнаяkлежит в пределах [110], вычислить y: = cos (x); z:=y+x; и вывести результат. Если переменнаяkлежит в пределах [11;20], вычислить y: = sin(x); и вывести результат. Написать программу с использованием оператора выбораCASE.

Решение.

Program Pr12;

Var

K: integer;

x, y, z: real;

begin

writeln (`x, k`); readln (x, k);

case k of

1..10: begin y:=cos (x); z:=y+x; writeln (y,z); end;

11..20: begin y:=sin(x); writeln (y); end;

else

writeln (`вне области переменной к`);

end; end.

9.6. Разветвляющийся алгоритм

Пример 13.

Дана точка А (x,y) с координатамиx,y, не равными нулю.

Найти четверть, в которой находится эта точка. Написать программу.

Решение.

ProgramPr13;

Var

x,y: integer;

Begin

writeln(‘ввести координаты т. А: x,y’);

Readln (x,y);

IF (x>0 ) and (y>0) then writeln (‘т. Aнаходится в 1 четверти’)

else

IF (x>0) and (y<0) then writeln (‘т. А в 4 четверти’)

else

IF y>0 then writeln (т. А во 2 четверти’)

else writeln (‘ т. А в 3 четверти’);

End.

Каждому ELSE соответствует предыдущее свободное then.

9.7. Операторы цикла

Оператор цикла с параметрами

Счетный оператор цикла FOR имеет такую структуру:

а) FOR i:=a TO b DO <оператор>;

Здесь FOR, TO, DO – зарезервированные слова (для, до, выполнить);

i– переменная цикла типа INTEGER;

a – начальное значение переменной цикла (тип INTEGER);

b – конечное значение переменной цикла (тип INTEGER);

<оператор> – произвольный оператор Турбо Паскаля.

Шаг изменения параметра цикла равен единице.

Алгоритм выполнения оператора цикла с параметрами при выполнении оператора FOR:

1. вначале осуществляется присваивание i:=a;

2. проверяется условие i > b;если это условие выполняется, то следует выход из цикла, иначе на пункт 3;

3. выполняется тело цикла;

4. счётчик увеличивается на единицу: i:=i + 1;

5. переход на 2;

6. после этого цикл повторяется или заканчивается.

Пример 14.

Найти сумму значений переменной цикла. Фрагмент программы с оператором цикла запишется в виде:

For i:= 1 to 10 do s:=s+i;

Writeln(‘s=’, s);

В примере 14 рассматривается простой оператор цикла.

Счётный оператор цикл FOR может иметь такую структуру:

б) FOR i: = b DOWNTO a DO <оператор>;

Замена зарезервированного слова TO на DOWNTO означает, что шаг наращивания переменной цикла равен (-1).

Пример 15.

Найти сумму значений переменной цикла.

Фрагмент программы с оператором цикла запишется в виде:

For i:=10 to 1 downto s:=s+i;

Writeln(‘s=’,s:8:3);

{Результат получится тот же, что и в примере 14}.

Правила оператора FOR.

1. Нельзя войти в цикл, минуя оператор FOR.

2. Нельзя изменять параметры цикла (a,b) внутри цикла.

3. Параметры цикла и переменная цикла должны быть целыми.

4. Шаг цикла может быть единица или минус единица.

5. Естественное окончание цикла осуществляется при условии i > b для а).

6. Из цикла можно выйти до естественного окончания цикла по условию.

Оператор цикла WHILE с предусловием

Структура оператора имеет вид:

WHILE <условие> DO <оператор>;

Здесь WHILE, DO – зарезервированные слова:

WHILE – пока; DO – выполнить,

<условие> – выражение логического типа;

<оператор> – произвольный оператор Турбо Паскаля.

Если выражение <условие> имеет значение TRUE, то выполняется <оператор>, после чего вычисление выражения <условие> и его проверка повторяются. Если <условие> имеет значение FALSE, оператор WHILE прекращает свою работу.

Пример 16.

Переписать фрагмент примера 14, используя оператор цикла с предусловием. Фрагмент программы с оператором цикла запишется в виде:

s:=0;i:=1;

while i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Writeln(‘s=’,s);

В примере 16 рассматривается составной оператор цикла, тело цикла заключено в операторные скобки.

Оператор цикла REPEAT…UNTIL с постусловием

Структура оператора имеет вид:

REPEAT <тело_цикла> UNTIL <условие>;

Здесь REPEAT, UNTIL – зарезервированные слова (повторять до тех пор, пока не будет выполнено условие);

<тело_цикла> – произвольная последовательность операторов Турбо Паскаля; <условие> – выражение логического типа.

Операторы <тело_цикла> выполняются хотя бы один раз, после чего вычисляется выражение <условие>: если его значение есть FALSE, операторы <тело_цикла> повторяются, в противном случае оператор REPEAT…UNTIL завершает свою работу.

Пример 17.

Выполнить задание примера 16.

Фрагмент программы с оператором цикла запишется в виде:

s:=0; i:=1;

repeat

s:=s+i;

i:=i+1;

Untili>10;

Writeln(‘s=’,s); В примере 17 цикл выполняется пока переменнаяi10, приi>10 цикл закончится.