Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Умовний оператор — це спеціальна програмна структура, яка дозволяє виконувати дії залежно від певної умови. Розрізняють два типи умовних операторів: повний і неповний.



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

Умовний оператор — це спеціальна програмна структура, яка дозволяє виконувати дії залежно від певної умови. Розрізняють два типи умовних операторів: повний і неповний.

Запис умовного оператора у вигляді блок-схеми являє собою базову структуру розгалуження:

 

 

Повний умовний оператор:

Якщо (умова), то (операції), інакше (операції).

Наприклад: Якщо 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)

mybiblioteka.su - 2015-2024 год. (0.012 сек.)