Паскаль, множество

[DiMkO_17]

в Паскале сгенерировать 2 множества: множество А={25} и множество В={15} и сделать над ними операцию обьединения.
Помогите пожалуйста!

[Paster Fob]

а в чём проблема?

[DiMkO_17]

Сообщение от Paster Fob

а в чём проблема?

проблема в том что не могу сделать, в чём же ещё

[Paster Fob]

я вот не совсем пойму как сделать что значит 25 и 15?Это кол-ва элементов множеств?Если так то в каком диапазоне множества генерировать 0..255?Или как?

Ну и хотелось бы узнать что именно не получается?

[DiMkO_17]

Сообщение от Paster Fob

Ну и хотелось бы узнать что именно не получается?

да, это кол-во элементов множеств
генерировать следовательно нужно в диапазоне 0..25 получается

[Stilet]

var a:set of 0..25; i:integer;
begin
 for i:=0 to 25 do include(a,Random(25));
end.

Подойдет такой пример?

[Paster Fob]

Сообщение от DiMkO_17

да, это кол-во элементов множеств
генерировать следовательно нужно в диапазоне 0..25 получается

Ну тогда смысла нет в задаче...
генерирую от 1 до 100.
не нравиться исправь.

type tset=set of byte;

procedure readset(var aset:tset;var asize:byte);
var i,n:byte;
begin
  i:=0;
  while i<asize do begin
    n:=random(100)+1;
    if not (n in aset) then begin
      aset:=aset+[n];
      inc(i);
    end;
  end;
end;

procedure writeset(var aset:tset);
var i:byte;
begin
  for i in aset do write(i,' ');
end;

var a,b:tset;
    n:byte;
begin
  randomize;
  a:=[];b:=[];
  n:=25;
  readset(a,n);
  n:=15;
  readset(b,n);
  writeset(a);
  writeln;writeln;
  writeset(b);
  writeln;writeln;
  a:=a+b;
  writeset(a);
  readln
end.

Написано под FPC

[DiMkO_17]

спасибо большое!)