Пример на множества

type num = set of 0..9;

digit = set of '0'.. '9';

var s1, s2, s3: digit;

s4, s5, s6: num;

begin

s1:= ['1', '2', '3'];

s2:= ['2', '1', '3'];

s3:= ['1', '3'];

s4:= [0..3];

s5:= [4.. 6];

s6:= [3, 5.. 9];

end.

Варианты заданий

Вариант 1

1. Дано слово s1. Получить слово s2, образованное нечетными буквами слова s1.
2. Дано предложение. Найти сумму цифр, встречающихся в этом предложении и вывести их на экран.
3. Дано 2 предложения. Составить два множества: первое содержит слова из первого предложения, а второе - из второго предложения. Вывести элементы каждого множества на экран. Найти их пересечение.

Вариант 2

1. Дано слово s. Получить слово t, получаемое путем прочтения слова s начиная с его конца.
2. Дано предложение. Найти произведение цифр, встречающихся в этом предложении и вывести их на экран.
3. Дано два одномерных массива. Составить два множества: первое множество содержит элементы первого массива, а второе - второго массива. Вывести элементы каждого множества на экран. Найти объединение этих множеств.

Вариант 3

1. Дано слово. Добавить к нему в начале четыре символа "+" и в конце - пять символов "-".
2. Дано предложение. Найти максимальную цифру, среди цифр встречающихся в этом предложении и вывести их на экран.
3. Используя множество посчитать количество различных чисел встречающихся в одномерном массиве.

Вариант 4

1. Дано слово. Добавить к нему в начале и конце столько звездочек, сколько букв в этом слове.
2. Дано предложение. Найти минимальную цифру, среди цифр встречающихся в этом предложении и вывести их на экран.
3. Организовать ввод символов с клавиатуры, до тех пор пока не будет нажат символ "#". Вводимые символы добавляются в множество. Вывести на экран из данного множества только цифры и посчитать их количество. Сформировать второе множество, в которое попадут все четные цифры из первого множества, вывести его на экран и посчитать количество.

Вариант 5

1. Дано предложение. Составить программу, которая печатает столбиком все вхождения в предложение некоторого символа и считает их количество.
2. Дан текст, имеющий вид "d1+d2+d3+...+dn", где di - цифры. Вычислить записанную в тексте сумму и количество слагаемых.
3. Дано множество целых чисел. На его основе построить два множества: в первое множество входят числа которые делятся на 4, а во второе - на 2. Найти пересечение полученных множеств.

Вариант 6

1. Дано предложение. Определить долю (в %) букв "а" в нем.
2. Дан текст, имеющий вид "d1-d2+d3-...+dn", где di - цифры. Вычислить записанную в тексте сумму и количество слагаемых.
3. Организовать ввод символов с клавиатуры, до тех пор пока не будет нажат символ "%". Вводимые символы добавляются в множество. Вывести на экран из данного множества только буквы английского алфавита и посчитать их количество. Сформировать второе множество, в которое попадут все гласные буквы английского алфавита из первого множества, вывести его на экран и посчитать количество.

Вариант 7

1. Дано предложение. Определить сколько в нем одинаковых соседних букв и вывести какие это буквы.
2. Дано предложение. Найти наибольшее количество идущих подряд цифр и вывести их на экран.
3. Дано слово. С помощью множеств посчитать количество гласных и согласных букв русского алфавита (повторяющиеся буквы считать за одну).

Вариант 8

1. Дано предложение. Вывести столбиком все его буквы "и", стоящие на четных местах и посчитать их количество.
2. Дано предложение. Найти наименьшее количество идущих подряд цифр и вывести их на экран.
3. Используя множества, удалить из слова повторяющиеся символы.

Вариант 9

1. Дано предложение. Определить сколько в нем гласных букв и вывести их на экран.
2. Дан текст, имеющий вид "d1*d2*d3*...*dn", где di - цифры. Вычислить записанное в тексте произведение и количество множителей.
3. Символы вводятся с клавиатуры до тех пор пока не будет нажата клавиша ".". С помощью множеств необходимо проверить какие и сколько символов из введенных принадлежат диапазону от "a" до "f".

Вариант 10

1. Дано предложение. Найти порядковый номер первой и последней буквы "е" в нем. Посчитать количество букв "е".
2. Дан текст, имеющий вид "х+d1+d2+..+dn=y", где где di b y - цифры. Найти x.
3. Символы вводятся с клавиатуры до тех пор пока не будет введен символ "+". С помощью множеств вывести из данной последовательности на экран символы, которые не являются буквами и цифрами, посчитать их количество.

Вариант 11

1. Дано слово. Определить является он перевертышем или нет (перевертыш - слово которое одинаково читается в двух направлениях).
2. Дан текст, имеющий вид "х-d1-d2-..-dn=y", где где di b y - цифры. Найти x.
3. Дано 2 предложения. Составить два множества: первое содержит слова из первого предложения, а второе - из второго предложения. Вывести элементы каждого множества на экран. Найти их пересечение.

Вариант 12

1. Дано предложение. Определить количество букв "и", предшествующих первой запятой предложения.
2. Дан текст, имеющий вид "х*d1*d2*..*dn=y", где где di b y - цифры. Найти x.
3. Дано два одномерных массива. Составить два множества: первое множество содержит элементы первого массива, а второе - второго массива. Вывести элементы каждого множества на экран. Найти объединение этих множеств.

Вариант 13

1. Дано предложение. Напечатать все символы, расположенные между первой и второй запятой, посчитать их количество. Если второй запятой нет, то должны быть напечатаны все символы, расположенные после первой запятой и до конца предложения.
2. Дано предложение. Найти длину самого короткого слова.
3. Дано множество целых чисел. На его основе построить два множества: в первое множество входят числа которые делятся на 4, а во второе - на 2. Найти пересечение полученных множеств.

Вариант 14

1. Дано предложение. Заменить в нем все вхождения буквосочетания "да" на "не".
2. Дано предложение. Найти длину самого длинного слова.
3. Организовать ввод символов с клавиатуры, до тех пор пока не будет нажат символ "%". Вводимые символы добавляются в множество. Вывести на экран из данного множества только буквы английского алфавита и посчитать их количество. Сформировать второе множество, в которое попадут все гласные буквы английского алфавита из первого множества, вывести его на экран и посчитать количество.

Вариант 15

1. Дано предложение. Удалить из него все буквы "c". Посчитать количество удаленных букв.
2. Дано предложение. Напечатать в столбик все слова из этого предложения и посчитать их количество.
3. Дано слово. С помощью множеств посчитать количество гласных и согласных букв русского алфавита (повторяющиеся буквы считать за одну).

Вариант 16

1. Дано предложение. Удалить из него все буквы "о", стоящие начетных местах. Посчитать количество удаленных букв.
2. Дано предложение. Найти какое-нибудь его слова начинающиеся на букву "к" и напечатать это слово.
3. Используя множества, удалить из слова повторяющиеся символы.

Вариант 17

1. Дано слово. Вставить заданную букву после первой буквой "и".
2. Дано предложение. Определить количество слов в предложении, начинающихся с буквы "а".
3. Символы вводятся с клавиатуры до тех пор пока не будет нажата клавиша ".". С помощью множеств необходимо проверить какие и сколько символов из введенных принадлежат диапазону от "a" до "f".

Вариант 18

1. Дано слово. Вставить заданную букву перед последней буквой "и".
2. Дано предложение. Напечатать все слова этого предложения, длина которых не более 6 символов. Посчитать их количество.
3. Дано 2 предложения. Составить два множества: первое содержит слова из первого предложения, а второе - из второго предложения. Вывести элементы каждого множества на экран. Найти их пересечение.