Case J of

Case J of

Else

End

Begin

Begin

Else

End

Begin

C:=A+B;

D:=A*B;

C:=A-B;

D:=A/B;

end;

При цьому перед словом else крапка з комою; не ставиться, бо оператор if ще не завершився.

Складна <умова> реалізується за допомогою логічних функцій: “І” – and, “АБО” – or, “НІ” – not, “Виключаюче АБО” – xor, наприклад,

if (A>B)and(C<=D)or(C>0) then C:=A+B else C:=A-B;

Оператор if може застосовуватися без else -гілки, наприклад,

if A>B then C:=A+B;

В цьому випадку, якщо <умова> приймає значення False, то оператор if пропускається й виконується наступний за ним оператор програми.

Оператор if може бути вкладеним, проте, більше трьох вкладень не робиться із-за складності аналізу роботи операторів. Для зміни області дії then та else -гілок різних операторів if застосовуються операторні дужки begin..end, наприклад,

if A>B then

if C<=D then C:=A+B else C:=A-B;

C:=A/B;

Приклад 1. Визначити поведінку космічного корабля, що стартує із Землі, в залежності від його швидкості відносно 1-ї, 2-ї та 3-ї космічної швидкості.

Program If_Kosmos;

Uses CRT;

Const

V1=7.9; {Перша космічна швидкість, км/с}

V2=11.2; {Друга космічна швидкість, км/с}

V3=16.6; {Третя космічна швидкість, км/с}

Var

V:real;

Begin

TextBackGround (lightgray);

ClrScr;

TextColor (blue);

GotoXY (7,2);

Writeln ('ПРОГРАМА ВИЗНАЧЕННЯ ПОВЕДIНКИ

КОСМIЧНОГО КОРАБЛЯ');

TextColor (red);

GotoXY (9,4);

Write ('Введiть швидкiсть корабля, км/с: ');

TextColor (black);

Readln (V);

GotoXY (9,6);

TextColor (yellow);

if V<V1 then

Writeln ('Корабель впаде на Землю!!!');

if (V>=V1)and(V<V2) then

Writeln ('Корабель стане супутником Землi!!!');

if (V>=V2)and(V<V3) then

Writeln ('Корабель досягне iнших планет

Сонячної системи!!!');

if V>V3 then

Writeln ('Корабель покине Сонячну систему!!!');

Repeat Until KeyPressed;

End.

1.3. Оператор вибору case використовується для реалізації умови з багатьма виходами. Його специфікація наступна

case <змінна> of

<1-е значення змінної>: <оператор 1>;

<2-е значення змінної>: <оператор 2>;

<N-е значення змінної>: <оператор N>;

else <оператор>;

end;

В залежності від <значення змінної> виконується один з операторів проміжку від <оператор 1> до <оператор N>. Якщо ж змінна не має заданих значень, то виконується <оператор> else -гілки. <Змінна>, за значенням якої здійснюється вибір, може бути будь-якого простого (скалярного) типу даних, крім, дійсного. Наприклад, для змінної вибору цілочислового типу оператор може мати такий вигляд

1: C:=A+B;

3: C:=A-B;

7: C:=A*B;

else C:=A/B;

end;

Оператор може застосовуватися без else -гілки, наприклад,

1: C:=A+B;

3: C:=A-B;

7: C:=A*B;

end;

Значення змінної вибори для виконання одного й того ж оператора можуть об'єднуватися через кому або через проміжок, який задається двома послідовними крапками, наприклад,

Дата добавления: 2014-12-25