Лекція Р 3 Тема: Вказівки розгалуження

Скачати 64.81 Kb.

Назва	Лекція Р 3 Тема: Вказівки розгалуження
Дата	15.04.2013
Розмір	64.81 Kb.
Тип	Лекція

bibl.com.ua > Фізика > Лекція

Лекція Р_3

Тема: Вказівки розгалуження
Мета: Ознайомити учнів з операторами, дати поняття розгалужень

План

Складений оператор і оператор переходу
Умовний оператор
Вказівка варіанту

Умовні оператори та оператор вибору призначені для задання потрібного за умовою задачі порядку виконання операторів, тобто для реалізації розгалужень.

1. Складений оператор і оператор переходу. Складений оператор – це декілька операторів, об’єднаних в одну групу (блок) за допомогою службових слів BEGIN та END. Ці слова називають операторними дужками. Складений оператор має таку структуру:

BEGIN

<�оператор 1>;

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

…

<�оператор n>;

END;

Складений оператор може бути в будь-якому місці програми, де допускається один оператор. Запис BEGIN END чи ;; називається порожнім оператором.

Приклад 1. Розглянемо складений оператор

BEGIN

Suma:= Suma+Cina;

N:=N+1;

END;

Так можна обчислити, наприклад, суму виторгу та кількість проданого товару.

Оператор переходу. Щоб реалізувати розгалуження і передати керування у потрібне місце, використовують оператор переходу.

GOTO <�позначка>

Позначку заздалегідь оголошують у розділі оголошення позначок:

LABEL <�список позначок>.

Якщо позначка (ціле число) оголошена, то в програмі повинен бути такий фрагмент:

<�позначка> : <�оператор>.

Оператор GOTO використовують зрідка.

2. Умовний оператор. Повна форма умовного оператора така:

IF <�умова> THEN <�оператор 1> ELSE <�оператор 2>

Дія оператора. Якщо умова справджується, то виконується оператор 1, якщо ні – то оператор 2.

Приклад 2. Якщо ціна товару менша від 1000, то визначимо обсяг реалізації М (кількість проданого товару), інакше визначити суму виторгу і кількість проданого товару N. Умовний оператор у відповідній програмі матиме вигляд

IF Cina<1000 THEN M:=M+1 ELSE

BEGIN

Suma:=Suma+Cina;

N:=N+1

END;

Тут оператор 1 – це оператор присвоєння М:=М+1, а оператор 2 – складений оператор.

Розглянемо короткий умовний оператор

IF <�умова> THEN <�оператор 1>

Дія оператора. Якщо умова істинна. То виконується оператор 1, якщо ні, то оператор 1 не виконується.

Приклад 3:

IF Cina >= 1000 THEN

BEGIN

Suma :=Suma+Cina;

N:=N+1

END;

Логічні вирази

Результатом виконання логічного виразу є логічне значення True або False. Операндами є дані тільки булевого типу.

Логічні вирази утворюються з допомогою логічних операцій і круглих дужок.
Логічні операції над даними типу BOOLEAN

Операнд 1	Операнд 2	not	and	or	xor
False	-	True	-	-	-
True	-	False	-	-	-
False	False	-	False	False	False
False	True	-	False	True	True
True	False	-	False	True	True
True	True	-	True	True	False

Повна форма вказівки розгалуження виконується таким чином:

якщо умова істинна, то виконується вказівка1, а потім вказівка, яка знаходиться в програмі після всієї вказівки розгалуження;
якщо умова хибна, то виконується вказівка2, а потім вказівка, яка знаходиться після вказівки розгалуження.

Скорочена форма вказівки розгалуження виконується таким чином:

якщо умова істинна, то виконується вказівка1, а потім вказівка, яка знаходиться в програмі після всієї вказівки розгалуження;
якщо умова хибна, то виконується вказівка, яка знаходиться після вказівки розгалуження.

Примітка: Якщо після службового слова then використовується складена вказівка, то в ній після кожної вказівки ставиться ";", а після службового слова end ";" не ставиться.

3. Оператор вибору. У випадку, коли необхідно використовувати декілька вказівок розгалуження, вкладених одна в одну, то краще замінити їх вказівкою варіанту.

Вказівка варіанту записується у вигляді:

Case <�селектор> of

мітка 1 <�вказівка 1>;

мітка 2 <�вказівка 2>;

………....

мітка N <�вказівка N>

End;

Вираз, який записується між службовим словом case і of, називається селектором. Селектор повинен належати до одного з цілого, булевого, символьного типів або типу користувача. Дійсні і рядкові типи в селекторах використовувати не можна.

Мітки варіантів – константи, типи яких повинні співпадати з типом селектора. Всі мітки варіантів повинні бути різними.

Якщо одній вказівці у вказівці варіанту відповідає декілька міток, то вони перераховуються через кому.

Виконується вказівка варіанту таким чином.

Спочатку обчислюється значення виразу селектора, а тоді виконується та вказівка варіанту, перед якою стоїть мітка, значення якої співпадає зі значенням селектора. Якщо ні одна з міток не співпадає зі значенням селектора, то виконується вказівка, яка знаходиться після вказівки варіанту, тобто після службового слова end.

Мітки варіанту не потрібно описувати в розділі міток Label і їх не можна використовувати у вказівці безумовного переходу Goto.

Задача 1. Обчислити площу трикутника за трьома відомими сторонами. Програма повинна перевіряти коректність вхідних даних.

Розглянемо програму Trykutnyk2.
PROGRAM Trykutnyk2 (input, output);

LABEL 222;

VAR a, b, c, Perym, piv, Ploshcha, Nova : real;

BEGIN

222 : Write (’Введіть значення сторін:’); Read (a, b, c);

Perym := a+b+c;

piv := Perym/2;

Nova := sqrt(piv*(piv-a)*(piv-b)*(piv-c));

IF Nova>0 THEN

BEGIN

Ploshcha:=sqrt(Nova);

Writeln(’Периметр=’, Perym:8:2, ’Площа=’, Ploshcha:8:2)

END

ELSE

BEGIN

Writeln(’Дані некоректні. Введіть інші’);

GOTO 222

END

END.
Виконаємо програму. На запит комп’ютера введемо такі дані: 18, 25, 6. Отримаємо:

Дані некоректні. Введіть інші

Введіть значення сторін 18 25 10

Периметр = 53.00 Площа = 74.67

Скласти програму, яка визначає пору року за порядковим номером місяця.

Program PORA;

Var MONTH: integer;

begin

Write('Введіть порядковий номер місяця: ');

readln(MONTH);

if (MONTH12)

then writeln('Такого місяця немає')

else

case MONTH of

3,4,5:writeln('Becнa');

6,7,8:writeln('Літо');

9,10,11:writeln('Ociнь');

12,l,2:writeln('3има')

end;

end.

Розв'язування задач та складання програм із використанням вказівки розгалуження

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

х , якщо х<0;

У= 5 , якщо 0<=х<5;

5х , якщо х>=5.

Розв'язок.
Program PFUNCTION;

VarX,Y:real;

begin

write('X=');

readln(X);

if X<0 then Y:=X

else if (0<=X) and (X<5)

then Y:=5

else Y:=5*X;

writeln('X=',X,' Y=',Y);

end.
2. Скласти програму розв'язування квадратного рівняння. ах² + bх + с = 0
Розв’язок.
Program KVADRAT;

VarA,B,C,D,Xl,X2:real;

begin

writeln('Введіть коефіцієнти a, b, с :');

write('a=');

readln(A);

write('b=');

readln(B);

write('c=');

readln(C);

D:=sqr(B)-4*A*C;

if D<0 then writeln('Рівняння має комплексні корені')

else

begin

Xl:=(-B-sqrt(D))/(2*A);

X2:=(-B+sqrt(D))/(2*A);

writeln (‘Корені рівняння :');

writeln('Xl=',Xl);

writeln('X2=',X2);

end;

end.</0></0></1000>

Схожі:

Тема. Використання операторів розгалуження для розв’язування прикладних задач Формування вмінь і навиків використання операторів розгалуження для розв’язування прикладних задач. Закріплення вмінь і навиків використання...	2. Управляюча структура «Розгалуження» «розгалуження» – це одна з базових управляючих структур. Вона використовується для перевірки умови і вибору однієї або більше дій...
Тема Створення та реалізація програм з розгалуженням Мета Навчитись складати та виконувати програми з використанням вказівок розгалуження	Лекція №8: “Трійники, мости, відгалуджувачи” Серед можливих видів розгалужень хвилеводів найбільший практичний інтерес становлять трійники. Якщо розгалуження відбувається у...
Уроку Тема: Оператор розгалуження Мета: Ознайомити учнів з умовними операторами та з використанням їх в середовищі програмування; розвинути логічне та алгоритмічне...	Уроку Тема: Вкладені розгалуження Мета: Ознайомити учнів з вкладеними розгалуженнями та з використанням їх в середовищі програмування; розвинути логічне та алгоритмічне...
2. Методичні вказівки до розв’язування задачі Методичні вказівки обговорені і схвалені на засіданні кафедри радіотехнологій, протокол №5 від “ 27 ” січня 2005 р	ЗАГАЛЬНІ МЕТОДИЧНІ ВКАЗІВКИ ...
МЕТОДИЧНІ ВКАЗІВКИ Гурченков О. П., Терьошкіна Н.Є., Єфімова Г. В. Методичні вказівки до виконання дипломних робіт на здобуття кваліфікаційного рівня...	МЕТОДИЧНІ ВКАЗІВКИ Метод вказівки до викон кваліфік бакал дипл роб для студ напр. 051401 “Біотехнологія” ден та заоч форм навч. / Уклад.: В. О. Красінько,...

Додайте кнопку на своєму сайті:
Портал навчання