Вступ. | Середовище програмування Turbo Pascal. | Типи даних в мові Pascal. | Речовий поділ Целочисленное розподіл Розподіл по модулю | Оператори ТР7. | Мені 16 років | Практична робота | Циклом з умовою поста. | Факторіал негативного числа не існує. | Практична робота |

загрузка...
загрузка...
На головну

Умовний оператор.

Умовний оператор використовується для складання розгалужуються програм.

розгалужується програма - Це програма, яка містить хоча б одне логічне умова, відповідно до якого буде виконуватися ту чи іншу дію.

Умовний оператор існує в двох формах запису: повної і скороченої.

Повна форма запису:

IF <Умова>

THEN

 <Оператор 1>

ELSE

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

службові слова IF, THEN, ELSE означають відповідно: ЯКЩО, ТО, ІНАКШЕ.

Принцип роботи повного умовного оператора: Спочатку перевіряється умова стоять після закритого слова IF. Якщо воно істинне, то виконується оператор 1, Що стоїть після зарезервованого слова THEN, А інакше, якщо умова виявляється хибним, то виконується оператор 2 стоїть після зарезервованого слова ELSE.

Слід звернути увагу, що перед словом ELSE « ; »Не ставиться!

Скорочена форма запису:

IF <Умова>

THEN

 <Оператор>;

Принцип роботи скороченого умовного оператора: Якщо умова стоять після закритого слова IF істинно, то виконується оператор, Що стоїть після зарезервованого слова THEN, І на цьому дія умовного оператора припиняється. Якщо умова помилкове, то умовний оператор не виконує ніяких дій.

Умова, Яке фігурує в умовному операторі, може бути як простим, так і складним. простим називається умова, в якому присутній лише один знак відносини. складним називається така умова, яке складається з двох і більше простих умов з'єднаних між собою логічними союзами.

Найбільш часто використовувані логічні союзи - це кон'юнкція и диз'юнкція.

Розглянемо докладніше ці два союзи:

кон'юнкція (Від латинського conjunctio - Пов'язую) або логічне множення.

- Відповідає союзу И (AND)

- позначається &

Схематичне позначення:

Формула:

С = А & В = АВ

логічний зміст: Складну умову З буде істинним тоді і тільки тоді, коли будуть істинним одночасно і умова Аі умова В.

Таблиця істинності:

А В С

диз'юнкція (Від латинського disjunctio - Розрізняю) або роз'єднання.

- Відповідає союзу АБО (OR)

- позначається U

Схематичне позначення:

Формула

С = АUВ = А + В

логічний зміст: складну умову С буде помилковим тоді і тільки тоді, коли будуть помилковими одночасно і умова А і умова В.

Таблиця істинності:

А В С

При використанні складних умов необхідно пам'ятати:

- Що кожне просте умова, що входять до складу складного умови повинно полягати в круглі дужки;

- Логічний союз AND має більший пріоритет, ніж логічний союз OR.

Розглянемо приклади.

Приклад 1. Скласти програму для обчислення значення функції:

Program Fuction;

Var x: integer;

y: real;

Begin

Write( 'Введіть х =');

Readln(X);

IF x> = 0

THEN

Y: = sqrt (x)

ELSE

Y: = sqr (x);

Writeln( 'X =', x, 'Y =', y);

End.

Приклад 2. Скласти програму для знаходження модуля дійсного числа (стандартну функцію ABS не використовувати).

Program Modul;

Var а, b: integer;

Begin

Writeln( 'Введіть а =');

Readln(A);

IF а> = 0

THEN b: = а

ELSE b: = -а;

Writeln( 'Модуль числа', a, '=', b);

End.

Приклад 3. Вивести на екран номер чверті, якій належить точка з координатами (x, y), за умови, що (х <> 0) і (y <> 0).

Program Chet;

Var x, y:integer;

Begin

Write( 'Введіть координати x і y:');

Readln(X, y);

If (X> 0) and (Y> 0)

Then

Writeln(1)

Else

If (X> 0) and (Y <0)

Then

Writeln(4)

Else

If (X <0) and (Y> 0)

Then

Writeln(2)

Else

Writeln(3);

End.

Приклад 4. Дано два натуральних двозначних числа М и K. У більшому з цих чисел перевірити чи містить воно цифру N або кратно воно N.

Program Number;

Var m, k, n, mx:integer;

Begin

Writeln ( 'Введіть три числа:');

Readln(M, k, n);

If m> k

Then

mx: = m

Else

mx: = k;

If (Mx div 10 = n) or (Mx mod 10 = n) or (Mx mod n = 0)

Then

Writeln( 'Так')

Else

Writeln( "Ні");

End.




Практична робота | Оператор вибору.
загрузка...
© um.co.ua - учбові матеріали та реферати