Помощь - Поиск - Пользователи - Календарь
Полная версия: Генерация множеств
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Fogus
Такая задача:
Реализовать алгоритмы генерации и объединения множеств.
Я не совсем понимаю, что значит генерация множеств, а уж и объединения тем более...

Буду оч. благодарен, если кто-нить поможет, выложив выше указанные алгоритмы с хоть какими-нибудь пояснениями, но вообще можно и без них )

Заранее спасибо
Ozzя
Цитата
генерации

const
n=10;
var
a:set of byte;
i:byte;
begin
a:=[];
For i:=1 to n do
begin
i:=random(255);
include(a,i);
end;
end.


Цитата
объединения


+

const
n=10;
var
a,b:set of byte;
i:byte;
begin
a:=[]; b:=[255,254];
For i:=1 to n do
begin
i:=random(25);
include(a,i);
end;
a:=a+b;
end.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.