ЗАВДАННЯ №1: Дано натуральне число n, яке визначає Ваш вік в роках. Дати для цього числа найменування – рік, років, рокі. Наприклад – 1 рок, 20 років, 43 рокі.
ЗАВДАННЯ № 2: Даний список деяких обєктів ( наприклад призвіще студентів, кружки з технічної творчості, жіночі журнали, види тварин і т.і.) Побудувати 5 множин, які складаються з різних комбінацій елементів цього списку. Виведісти на екран назви об’єктів, які знаходяться в усіх множинах одночасно. Вмзначити, які об’єкти не входять до жодної множини. Виконати додаткове завдання:
| Номер варіанту
| Визначити які об’єкти
| Номер варіанту
|
|
| 1,15
| Є у пешомої множині, але відсутні в третьої
| 10,24
| Є лише в 1-ій та 5-ій множині
|
| 2,16
| Є в першої та третьої множині
| 11,25
| Є у 1-ої множині, але їх немає в 5-ої
|
| 3,17
| Є тільки у 1-ої множині
| 12,26
| Є у 1-ої та 4-ої множинах, але їх немає в 3-ої
|
| 4,18
| Є у 1-ої та 2-ої множинах, але їх немає в 3-ої
| 13,27
| Є в 1-ої,2-ої та 4-ої множинах одночасно
|
| 5,19
| Є в 1-ої,2-ої та 3-ої множинах одночасно
| 14,28
| Є в 2-ої та 4-ої множині
|
| 6,20
| Є в 2-ої та 3-ої множині
| 15,29
| Є у 5-ої множині, але їх немає в 3-ої.
|
| 7,21
| Є лише в 3-ій множині
| 16,30
| Є у 1-ої, 3-ої множині, але їх немає в 5-ої.
|
| 8,22
| Є лише в 4-ій множині
| 17,31
| Є в 5-ої,2-ої та 4-ої множинах одночасно
|
| 9,23
| Є у 1-ої множині, але їх немає в 2-ої.
| 18,32
| Є в 3-ої та 5-ої множині
|
Хід роботи:
1. Скласти схему алгоритму и програму для завдання згідно вашого варіанту
2. Увійдіть у систему програмування Borland Pascal 7.0– для цього необхідно два рази щелкнути мишою на позначки програми, яка знаходиться на Робочому столі Windows.
3. В системі вийти в меню Borland Pascal 7.0 за допомогою миши, вибрати пункт File, війти в нього и обрати одну з команд: New – якщо необхідно вводити нову програму, Open –якщо бажаєте визвати раніше створену програму ( для цього необхідно або ввести ім’я файлу, або вийти у список файлів (клавіша [Tab]) и з допомогою клавіш управління курсором вибрати необхідний файл и нажати клавішу [Enter].
4. В вікні системи набрати програму або внести необхідні зміни у програму.
5. Запустити програму на виконання: для цього в меню системи вибрати пункт Run
9. В зошит переписати результат роботи програми ( рядки, що були виведені на екран)
10.Якщо необхідно (за вказівкою викладача) записати свою програму на диск у вигляді файлу – для цього необхідно вийти в меню системи, вибрати пункт File и виконати команду Save з указівкою імені свого файлу.
11.Покинути систему Borland Pascal 7.0 – для цього необхідно увійти у меню системи, вибрати пункт File и виконати команду Exit.
ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ:
Приклад № 1 Скласти программу, яка виводить на екран дисплею текст правил дорожного руху, які вказують на сигнали світлофора.
Program primer 6;
TYPE svet_= (red, yellow, green);
Var signal: svet;
Begin
For signal :=red to green do
Case signal of
Red: begin
Writeln(‘Червоний сигнал ’);
Writeln(‘забороняєть рух’);
End;
Yellow : begin
Writeln(‘Жовтий сигнал’);
Writeln(‘попереджує про наступну зміну сигналів’);
End;
Green: begin
Writeln(‘Зелений сигнал’);
Writeln(‘дозволяє рух’);
End;
End;
End.
Приклад № 2 Скласти програму яка, по заданой дате визначає дату слідуючого дня
Program Den (input, output);
Type Month=(Jan, Feb, Mar, Apr, May, June, Jule, Aug, Sep, Oct, Nov, Dec);
Day=1..31;
Year = 1900..2000;
Var d:day; m:month; y: year; nom: 1..12;
Begin
Write (‘è’);
Readln (d,nom,y);
Case nom of
1: m:=jan;
2: m:=feb;
3: m:=marth;
4: m:=apr;
5: m:=may;
6: m:=june;
7: m:=jule;
8: m:=Aug;
9: m:=Sep;
10: m:=Oct;
11: m:=Nov;
12: m:=Dec;
end;
case m of Jan, Mar, May, Jule, Aug, Oct:
if d=31 then
begin
d:=1;
m:=succ(m);
end
else d:=d+1;
Apr, Jule, Sep, Nov :
If d=30 then
begin
d:=1;
m:=succ(M);
end
else d:=d+1;
Dec: if d=31 then
Begin d:=1;
m:=jan;
y=y+1;
end
else d:=d+1;
Feb: if (d=28) and ((y mod 4<>0) or (y mod 100 =0)) and (y mod 400<>0)
then begin d:=1;
m:=marth;
end;
else d:=d+1;
end;
Writeln (d,m,y);
End;
СКЛАД ЗВІТУ:
1. Тема, мета роботи.
2. Текст завдань для виконання .
3. Порядок виконання роботи.
4. Хід виконання роботи – схема алгоритму, текст програми, результат роботи програми
5. Висновки
КОНТРОЛЬНІ ПИТАННЯ:
1. Яки типи даних використаються в мові програмування Паскаль?
2. Яки операції можна застосовувати до перелічувальних типів?
3. Як використовуються інтервальні типи даних?
4. Яки стандартні функції можна застосувати для аргументів перелічувального типу?
5. Як визначається перелічувальний тип?
6. Що уявляє собою змінна перелічувального типу?
