Індивідуальні завдання

Створити блок-схему та програму на мові Pascal для задачі згідно з індивідуальним завданням.

1. Оголошенi множини

Var a, b, c: set of 0..9;

з початковою iнiцiалiзацiєю:

a: = [0..3,9]; b: = [3,4,5];

Виведiть результати операцiї:

c: = a+b;

2. Оголошенi множини

Var a, b, c: set of 0..9;

з початковою iнiцiалiзацiєю:

a: = [0..2,5]; b: = [5,6,7];

Виведiть результати операцiї:

c: = a-b;

3. Оголошенi множини

Var a, b: set of char;

з початковою iнiцiалiзацiєю:

a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];

Виведiть результати операцiї:

a:=b;

4. Оголошенi множини

Var a, b, c: set of 0..9;

з початковою iнiцiалiзацiєю:

a: = [0..4,7]; b: = [1,4,5,6,8];

Виведiть результати операцiї:

c: = a*b;

5. Оголошенi множини

Var a, b: set of char;

з початковою iнiцiалiзацiєю:

a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];

Виведiть результати операцiї:

a>=b;

6. Оголошенi множини

Var a, b: set of char;

з початковою iнiцiалiзацiєю:

a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];

Виведiть результати операцiї:

b<=a;

7. Оголошенi множини

Var a, b: set of char;

з початковою iнiцiалiзацiєю:

a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];

Виведiть результати операцiї:

b:=['x','a','m'];

8. Оголошенi множини

Var a, b: set of char;

з початковою iнiцiалiзацiєю:

a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];

Виведiть результати операцiї:

'k' in a;

9. Оголошенi множини

Var a, b: set of char;

з початковою iнiцiалiзацiєю:

a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];

Виведiть результати операцiї:

'k' in b;

10. Враховуючи прiорiтет операцiй над множинами з базовим типом char, a:=['a'..'z']; b:=['k'..'r','x']; c:=['m']; обчислити та вивести результат виразу: (a-b*c) = ['n']) or ('b' in a).

11. Пiдрахувати та вивести кiлькiсть елементiв множини iз заданим базовим типом char: x:=['a'..'f','0'..'9'];

12. Написати процедуру, яка друкує в алфавiтному порядку всi елементи множини з типом type letters=set of 'a'..'z';

13. Пiдрахувати кiлькiсть символiв рядка Var s: packed array [1..100] of char; що входять в множину ['0'..'9', '+','-','*'].

14. Заданий рядок символiв: Var s: string [20]. Визначити кiлькiсть символiв (голосних), що входять в наступну множину ['a', 'e', 'i', 'o', 'u'].

15. Використовуючи роботу iз множинами надрукувати всi символи, що входять у рядок Var str: string [20]; бiльше одного разу.

16. Заданi множини елементiв з базовим типом Char: A={'a','b','c','d'}, B={'b','d','e','f'}. Вияснити чи є у них спiльнi елементи i вивести їх значення на друк.

Методичні РЕКОМЕНДАЦІЇ

1. Для виконання лабораторної роботи потрібно перш за все опрацювати теоретичний матеріал.

1. Виконати індивідуальне завдання.

2. Показати результат роботи викладачеві.

3. Скласти звіт, в якому відповісти на теоретичні питання, описати алгоритм, тобто створити блок-схему, описати програму (лістинг програми з коментарями), привести контрольний приклад виконання програми (результат роботи програми).

4. Здати робоче місце, а оформлений звіт – викладачеві на підпис.

5. Під час виконання лабораторної роботи дотримуватися правил безпеки.

Приклад програми, що здійснює вивід складу множини

Написати програму, яка здійснює вивiд складу множини.

Лістинг програми:

Program myProgram;

uses crt;

var a,b,c: set of byte; i:byte;

Begin

a:=[0..3,6];

b:=[3..7];

c:=a+b;

writeln('Rezyltat operaziji a+b:');

for i:=0 to 255 do

if i in c then writeln(i);

if c=[] then writeln('Porozhnja mnozhuna');

readkey;

End.

Результат роботи програми:

Rezyltat operaziji a+b: 0 1 2 3 4 5 6 7

Контрольні питання

1. Дайте визначення множини.

2. Як здійснюється перевірка на рівність, нерівність, підмножину, надмножину?

3. Яким методом можна перевірити входження елемента у множину?

4. Як об’єднати множини?

5. Що таке різниця множин?

6. Дайте визначення перетину множин.

7. Які оператори Ви використали при написанні програми?

Викладач ____________ М. О. Пашко

6