|
Умовний оператор
Умовний оператор — це спеціальна програмна структура, яка дозволяє виконувати дії залежно від певної умови. Розрізняють два типи умовних операторів: повний і неповний.
Запис умовного оператора у вигляді блок-схеми являє собою базову структуру розгалуження:
Повний умовний оператор:
Якщо (умова), то (операції), інакше (операції).
Наприклад: Якщо D < 0, то написати «Коренів немає», інакше написати «Корені є».
Неповний умовний оператор:
Якщо (умова), то (операції).
Наприклад: Якщо D < 0, то написати «Коренів немає».
Запис умовного оператора мовою програмування Turbo Pascal.
Повний умовний оператор:
if <умова> then <операції> else <операції>;
Приклад:
if D < 0 then Writeln ('Коренів немає') else Writeln ('Корені є');
Неповний умовний оператор:
if <умова> then <операції>;
Приклад:
if D < 0 then Writeln ('Коренів немає');
В умовному операторі можна використовувати логічні оператори:
Оператор | Назва | Приклад |
and | Логічне «і» | (D<0) and (а = 0) |
or | Логічне «або» | (D<0) or (а = 0) |
not | Логічне «ні» | not (а) |
Зауваження
1. В умовному операторі можна використовувати серію команд, які виконуються за певної умови. Для цього їх беруть в операторні дужки.
if <умова> then
Begin
<Серія команд>
End
else
Begin
<Серія команд>
End;
2. Перед «else» не ставиться розділювач крапка з комою.
Оператор вибору — окремий випадок умовного оператора.
Запис у вигляді блок-схеми:
Запис оператора вибору мовою програмування Turbo Pascal:
case <вираз-селектор> of
<значення 1>:<оператор 1>;
<значення 2>:<оператор 2>;
<значення 3>:<оператор 3>;
…
<значення п >:<оператор п >;
else < оператор >
End;
Приклад 1. Складіть програму обчислення значення виразу
Значення змінної х ввести з клавіатури.
Розв'язання
Побудова математичної моделі:
Якщо x > 3, то у = х-3;
Якщо x 3, то у = х + 3.
Або, об'єднавши ці твердження, отримаємо:
Якщо x > 3, то у = х - 3, інакше у = х + 3.
Запис алгоритму у вигляді блок-схеми:
Запис алгоритму мовою програмування: Program Umova 1;
var х, y:real;
begin
Writeln ('х = ');
Readln(x);
if х > 3 then у: = х - 3 else у: = х + 3;
Writeln(y);
end.
Приклад 2. Складіть програму обчислення значення виразу з уведенням значень змінних з клавіатури та перевіркою відповідності підкореневого виразу математичним вимогам.
Розв'язання
Побудова математичної моделі:
Вираз існує, якщо а + b 0.
Запис алгоритму мовою програмування:
Program Umova2;
var a, b, с: Real;
begin
Writeln ('а = ');
Readln(a);
Writeln ('b = ');
Readln(b);
if (a + b) >= 0 then
begin
с:= sqrt(a + b);
Writeln(c);
end
else Writeln('Kopeів немає');
end.
Приклад 3. Складіть програму, що виводить назву місяця за введеним порядковим номером.
Розв'язання
Використаємо у програмі оператор вибору.
Запис алгоритму мовою програмування:
Program Vybor3;
var n: byte;
begin
Writeln ('n = ');
Readln(n);
case n of
1: Writeln(' Ciчень ');
2: Writeln('Лютий');
3: Writeln('Березень');
4: Writeln('Квітень');
5: Writeln('Tpaвень');
6: Writeln('Червень');
7: Writeln('Липень');
8: Writeln('Cepпень');
9: Writeln('Bepeceнь');
10: Writeln('Жовтень');
11: Writeln('Листопад');
12: Writeln('Грудень')
else Writeln('Такий місяць не існує.');
end;
end.
Приклад 4. Складіть програму, яка за порядковим номером дня тижня визначає, робочий це день чи вихідний. (Вихідними вважати суботу і неділю.)
Розв'язання
Задача подібна до попередньої, з єдиною відмінністю — в ній використовуються діапазони. Мовою програмування Turbo Pascal діапазон від до ак записують як .. ак. Програма матиме такий вигляд:
Program Vybor4;
var n:byte;
Begin
Writeln ('n = ');
Readln(n);
case n of
1..5: Writeln('Робочий');
6..7: Writeln('Вихідний');
else Writeln('Такий день тижня не існує');
end;
end.
Складіть програми для виконання таких завдань:
1. Обчисліть значення виразу із введенням значення х з клавіатури.
2. Введіть з клавіатури значення коефіцієнтів а, b, с та з'ясуйте, чи існують корені рівняння ах2 + bх + с = 0.
3. Виконайте перевірку на відповідність математичним правилам
та обчисліть значення виразу .
4. За введеним з клавіатури номером місяця з'ясуйте, якій порі року він відповідає.
Дата добавления: 2015-08-29; просмотров: 32 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
| | Розділ I. Загальні положення (статті 1-35) |