Использование множеств

Наиболее эффективно множество может быть использовано для замены операторов if, например, для проверки наличия некоторого ответа в списке разрешённых. Приведённая ниже программа ввода строки символов, содержащей латинские буквы, цифры и пробелы с контролем правильности введённых символов, может служить примером использования множеств:

program Project1;

{$APPTYPE CONSOLE}

uses SysUtils;

var
str: string;
L: byte;
t: eadln;

begin
Writeln('Enter string');
readln(str);
L:=length(str); // Число введённых символов
t:=L>0; // True, если не пустая строка
while t and (L>0) do // Проверка с конца строки
begin
t:=str[L] in ['0' .. '9', 'a' .. 'z', 'A' .. 'Z']; // Проверка допустимости символа
dec(L); // Предыдущий символ
end;
if t then writeln('True String') // Правильная строка
else writeln('False string]'); // Неправильная строка
Readln;
end.

Пример процедуры выводящей элементы множества с указанием их числа и её реализация (пример приложен к статье):

program Project1;

{$APPTYPE CONSOLE}

uses SysUtils;

var
a: set of char;
s: string[50];
count: integer;
I,l: integer;

procedure Mnogo;
var
ch: char;
begin
for ch:=low(char) to high(char) do
if ch in a then
begin
write(ch, ‘’);
inc(count);
end;
eadln;
eadln(‘Kol-vo eadln: ‘, count);
end;

begin
write(‘Enter the String please: ‘);
eadln(s);
l:=length(s);
for i:=1 to l do a:=a+[s[i]];
mnogo;
readln;
end.

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

1. Надати характеристику поняття множин

2. Навести формат запису множин у Делфі

3. Розглянути поняття пуста множина

4. Навести операції над множинами у Делфі

5. Навести приклади використання множин

АУДИТОРНЕ ЗАНЯТТЯ

ЗМІСТОВИЙ МОДУЛЬ 3: МАСИВИ. ЗАПИСИ ТА МНОЖИНИ

ТЕМА 3.3: МНОЖИНИ