Лабораторна робота №8. Тема: Оператор вибору в циклах середовища пргограмування.
Мета: Навчитися використовувати оператори в мові програмування Паскаль
Теоретичні відомості
вказівка вибору CASE
Довільна вказівка в програмі може бути помічена міткою. Мітка вказівки записується перед нею і відділяється від неї двокрапкою.
Мітка — це довільне ціле число в інтервалі від 0 до 9999 або довільний ідентифікатор (тобто ім'я мітки записується згідно з правилами запису ідентифікаторів).
Однією міткою може бути помічена тільки одна вказівка. Ідентифікатор мітки не повинен співпадати з ідентифікатором змінної або константи.
Вказівка вибору ( варіанту)
У випадку, коли необхідно використовувати декілька вказівок розгалуження, вкладених одна в одну, то краще замінити їх вказівкою вибору.
Вказівка вибору записується у вигляді:
-
Зауваження!!
Слова синоніми:
Варіант=Селектор,
Значеня=Мітка
Case <вираз> of
значення1:<вказівка1>;
значення2:<вказівка2>;
значенняМ:<вказівкаM>
end;
Дія оператора: Якщо значення виразу збігається зі значенням з деякого списку, то виконується відповідний оператор, а інші оператори не виконуються Якщо ні одне з значень не співпадає зі значенням виразу, то виконується вказівка, яка знаходиться після вказівки варіанту, тобто після службового слова end.
Вираз, який записується між службовим словом case і of, називається селектором. Селектор повинен належати до одного з цілого, булевого, символьного типів або типу користувача. Дійсні і рядкові типи в селекторах використовувати не можна.
Мітки варіантів — константи, типи яких повинні співпадати з типом селектора. Всі мітки варіантів повинні бути різними. Якщо одній вказівці у вказівці варіанту відповідає декілька міток, то вони перераховуються через кому.
Виконується вказівка варіанту так.
Примітка.
Мітки варіанту не потрібно описувати в розділі міток Label і їх не можна використовувати у вказівці безумовного переходу Goto.
Хід роботи
Завдання 1. Скласти програму, яка визначає пору року за порядковим номером місяця.
Program PORA;
Var MONTH: integer;
begin
Write('Введіть порядковий номер місяця (від 1 до 12): ');
readln(MONTH);
case MONTH of
3,4,5:writeln('Becнa');
6,7,8 : writeln ('Літо');
9,10,11:writeln('Ociнь');
12,1,2:writeln('Зимa')
end;
end.
Оператор вибору варiанту.
Завдання 2. Скласти програму - меню. В залежностi вiд потреби обчислити суму, рiзницю, добуток, або частку двох чисел a = 2.485, b = 99.01.
Program PR1;
Const a=2.485; b=99.01;
Var i:integer;
Rez : Real;
Label 1;
Begin
1: WriteLn (' М Е Н Ю ');
WriteLn ('1 - Обчислення a + b');
WriteLn ('2 - Обчислення a - b ');
WriteLn ('3 - Обчислення a * b ');
WriteLn ('4 - Обчислення a / b ');
Write ( 'Введи номер потрiбного пункту - '); ReadLn(i);
Case i of
1: Rez:=a+b;
2: Rez:=a-b;
3: Rez:=a*b;
4: Rez:=a/b;
Else
Begin
WriteLn ('Помилка !!!');
Goto 1;
End;
End;
WriteLn('a= ',a:5:2,' b= ',b:5:2);
WriteLn('Rez= ',Rez:5:2);
WriteLn; Write('Повторити (1 - Так, 0 - Нi) ' ); ReadLn(i);
If i=1 Then Goto 1;
WriteLn('К ІН Е Ц Ь ')
End.
Фрагмент результату роботи програми:
М Е Н Ю
1 - Обчислення a + b
2 - Обчислення a - b
3 - Обчислення a * b
4 - Обчислення a / b
Введи номер потрiбного пункту - 1
a= 2.49 b=99.01 Rez= 101.50
Повторити (1 - Так, 0 - Нi) 1
М Е Н Ю
1 - Обчислення a + b
2 - Обчислення a - b
3 - Обчислення a * b
4 - Обчислення a / b
Введи номер потрiбного пункту - 2
a=2.49 b= 99.01
Rez= -96.52
Повторити (1 - Так, 0 - Нi) 0
К ІН Е Ц Ь
Завдання 3. Скласти програму з використанням принципу меню(попередне завдання), змінивши константу значення на три довільні числа з плаваючою комою.