Приклад 1. Вводиться послідовність символів. Введення закінчується крапкою. Необхідно вивести за абеткою всі малі латинські літери.
Для рішення таких задач зручно використовувати множини: при вводі формувати множину всіх введених малих латинських літер. Для виводу необхідно переглянути всю латинську абетку, перевіряючи входження кожної літери в сформовану множину. Якщо літери міститься в множині, то вона виводиться.
| |
| | | program mn;
var
m:set of char;
ch:char;
begin
m:=[];
writeln (‘Введіть послідовність літер’);
repeat
readln (ch);
case ch of
’a’..’z’: m:=m + [ch];
end;
until ch='.';
writeln ('Латинські літери:');
for ch:='a' to 'z' do
if ch in m then
write (ch:3);
writeln;
readln;
end.
| |
Приклад 2. Вводиться послідовність символів, що складається з послідовності слів, розділених комою. В кінці рядка крапка. Необхідно визначити голосні букви, що входять в кожне слово. Надрукувати їх.
| |
| | | program mnog;
var
m,m_word:set of char;
ch:char;
begin
m:=['a','о','е','у','і','и','є','ю','я'];
m_word:=[];
writeln (‘Введіть посимвольно
послідовність слів, розділених
комою з крапкою в кінці’);
repeat
readln (ch);
case ch of
’,’,’.’: begin
m:=m* m_word;
m_word:=[];
end;
else
m_word:= m_word+[ch];
end;
until ch='.';
writeln ('Голосні букви, які входять в
кожне слово:');
for ch:='a' to 'я' do
if ch in m then
write (ch:3);
writeln;
readln;
end.
| |
Завдання для самоперевірки.
1. Визначити [‘a’,’p’,’k’,’s’]+[‘h’,’k’,’f’,’p’]
2. Визначити [‘h’,’k’,’f’,’p’]-[‘u’,’f’,’h’]
3. Змінній присвоїти множину голосних літер.
4. Змінній присвоїти множину приголосних літер.
5. Змінній присвоїти множину всіх цифр.
6. Змінній присвоїти множину літер, які більше ‘г’, але менше ‘л’.
7. Визначити значення [3,6..8] <= [2..7,9]
8. Визначити значення [5,8,4]=[8,5,4]
9. Визначити значення 5 in [8,9,4].
10. Змінній В присвоїти множину, яка отримана з множини А за допомогою додавання елемента х.
11. Змінній В присвоїти множину, яка отримана з множини А за допомогою віднімання елемента х.
12. Розробити програму: З заданого тексту вибрати всі голосні літери, які в ньому зустрічаються, і вивести їх.
13. Розробити програму: Сформувати множину, яка складається з чисел, вибраних з проміжку [1..200] випадковим чином.
14. Розробити програму: З заданого тексту вибрати всі літери, які в ньому зустрічаються більше одного разу, і вивести їх.
15. Розробити програму: Дано масив, елементами якого є множини типу byte. Вивести ті числа, які зустрічаються в кожному елементі масиву і перелік всіх використаних чисел.
