1.Враховуючи пріоритет операцій над множинами з базовим типом char, a:=['a'..'z']; b:=['k'..'r','x']; c:=['m']; обчислити та вивести результат виразу (a-b*c>=['n']) or ('b' in a).
2.Підрахувати кількість символів рядка s, що входять в множину ['0'..'9', '+','-','*'].
3.Заданий рядок символів: Var s: string [20]. Визначити кількість символів (голосних), що входять в наступну множину ['а', 'e', 'і', 'о', 'u'].
4.Використовуючи роботу із множинами надрукувати всі символи, що входять у рядок str більше одного разу.
5.Задані множини елементів з базовим типом Char: A=['a','b','c','d'], B=['b','d','e','f']. Визначити чи є у них спільні елементи і вивести їх значення на друк.
6.Задані множини елементів із базовим типом byte: А=[1,3,5,7,9], В=[3, 5, 9]. Вибрати всі елементи множини А, що не належать В, і вивести їх значення на друк.
7.сформувати множину з n (n>15) натуральних чисел, випадковим чином вибраних із діапазону від 20 до 250. Вивести елементи множини та їх суму на екран.
8.Вивести на екран всі символи цифр заданого текстового рядка.
9.Для заданих двох текстових рядків з'ясувати, чи однакову кількість голосних літер вони мають.
10.Знайти найменший і найбільший елементи множини додатних цілих чисел, вибраних випадковим чином з діапазону від 1 до 200.
11.Підрахувати скільки чисел із заданої множини натуральних чисел кратні 2 і скільки – кратні 3.
12.Задано два текстові рядки. Отримати множину символів, які зустрічаються і в першому і в другому рядках.
13.Задано два текстові рядки А і В. Знайти символи рядка А, які не входять в рядок В.
14.Із множини латинських літер створити множину, яка складається з символів, що не входять у множину символів вашого імені. Вивести створену множину на екран.
15.Визначити і вивести на екран множину символів, що входять одночасно в ім'я і прізвище введене з клавіатури.
І І.Використовуючи оголошені типи:
type t1 = (золото, мідь, срібло, нафта, залізо, ртуть, свинець, марганець, вугілля, газ); побудувати п’ять множин, які складаються з різних комбінацій цього списку. Вивести на екран назви об’єктів, які є у всіх множинах одночасно. Визначити, яких об’єктів немає в жодній множині. Виконати додатково завдання свого варіанта, а саме визначити, які об’єкти:
1) є в першій множині, але їх немає в третій.
2) належать першій і третій множинам.
3) є тільки в першій множині.
4) входять у другу і третю множини, але не входять у першу.
5) входять у першу, другу і третю множини одночасно.
6) входять у другу і третю множини.
7) є в другій множині, але немає в четвертій.
8) є лише у другій множині.
9) входять у першу і третю, але не входять у п’яту.
10) входять у другу, третю і п’яту множини одночасно.
11) входять у першу і п’яту множини.
12) є в третій множині, але немає в п’ятій.
13) належать лише третій множині.
14) входять у першу і четверту множини, але не входять у третю.
15) входять у першу, третю і четверту множини одночасно.
І І І.Записати у звіт тексти програм та результати їх виконання.
Лабораторна робота № 8
Обробка даних типу запис
Мета: оволодіти практичними навичками обробки введення-виведення компонентів запису; ознайомитись з використанням масивів записів.
Теоретичний матеріал
Запис — це структурований тип даних, який складається з фіксованого числа компонентів одного або декількох типів.
Визначення типу запис починається ідентифікатором RECORD і закінчується словом END. Між ними записується список компонент, які називаються полями, із значенням ідентифікатора поля і типу кожного поля.
Формат. Туре
<ім'я типу> = record
<ідентифікатор поля> : <тип компонент>;
<ідентифікатор поля> : <тип компонент>;
end;
var
<ідентифікатор,...> : <ім'ятипу>;
Наприклад.
Туре
CHILDREN = record
Surname :string[15]; { Прізвище учня }
Name :strmg[100]; {Ім'я учня}
Birthyear :integer; { Рік народження }
Street :string[20]; { Адреса учня }
Phone :strmg[8]; {Телефон учня }
end;
var
uchen: CHILDREN;
Для звернення до полів запису треба вказати ім'я змінної запису, поставити крапку, а після неї — ім'я поля.
Наприклад,
uchen.Surname, uchen.Name, uchen.Street.1
Складені імена можна використовувати (наприклад) у вказівках введення-виведення.
Наприклад.
read(uchen.Phone); write(uchen.Birthyear);
В деяких випадках зручно використовувати масиви із записів
Туре
CHILDREN = record
Surname :string[15]; { Прізвище учня }
Name :string[100]; { Ім'я учня }
Birthyear : integer; { Рік народження }
Street :string[20]; { Адреса учня }
Phone :string[8]; { Телефон учня }
end;
var
uchen : array[1..10] of CHILDREN;
Звертатись до елементів масиву можна таким чином:
readln(uchen[i] .Name); readln(uchen[i].Phone);
writeln(uchen[i].Name);
writeln(uchen[i].Phone);
