Помощь - Поиск - Пользователи - Календарь
Полная версия: Генерация множеств
Форум «Всё о Паскале» > 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.

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