Множества

[Rin@]

Помогите кто-нибудь!В чем ошибка?
Надо написать программу формирования множества из различных элементов 2-х множеств(случайно)

var S,a,b:set of char;
begin clrscr;
randomize;
S:=[ ] for i:=0 to 255 to
begin
m:=chr(random(256))
if(m in a)or(m in b)
then S:=S+[m]
end;
writeln(S);
end.
Училка говорит,что надо наполнить a и b,а как это сделать,не могу сообразить,заранее всем спасибо!

[sheka]

Сообщение от Rin@

программу формирования множества из различных элементов 2-х множеств(случайно)
Училка говорит,что надо наполнить a и b,а как это сделать,не могу сообразить,заранее всем спасибо!

ничего не понятно.
эти 2 множества даны?сколько должно быть элементов в образованом?

[NSvirus]

ну если правильно понял, то есть 2 массива(2 множества) случайно заполненных. Третий массив получается путем случайного выбора значений из двух других.

заполняем так:

randomize;
for i:=1 to konezMassivaA do
 MassivA[i]:=random(256);

[sheka]

массив - это не множество!!!

вопрос остается тот же: сколько должно быть елементов в новом множестве?

[NSvirus]

вообще-то массив это множество чисел.
вот эта строка вообще глупость:

m:=chr(random(256))

а если выпадет символ до 32??
лучше всего установить промежутки выбора.
а заполнить можно и так:

randomize;
for i:=1 to konezMassivaA do
 A[i]:=chr(random(256)+32);
writeln(A)

[Hacker19_90]

Сообщение от Rin@

Училка говорит,что надо наполнить a и b,а как это сделать,не могу сообразить,заранее всем спасибо!

Ну допустим так:

...
var
si, s2: string;
i: byte;
Letters1, Letters2: set of char;
begin
Write('Введите 1-ю строку: ') ;
Readln(sl);
Write('Введите 2-ю строку: ') ;
Readln(s2);
for i := 1 to Length(si) do Lettersl := Letters1 + [sl[i]];
for i := 1 to Ord(s2[0]) do Letters2 := Letters2 + [s2[i]];

[Rin@]

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

ничего не понятно.
эти 2 множества даны?сколько должно быть элементов в образованом?

Ну вроде множества даны,условие задачи-это цитата препода,никаких лишних слов

[puporev]

формирование множеств из видимых символов;
randomize;
for i:=1 to n do
 begin
  a:=randon(222)+33;
  include(ma,a);
  b:=randon(222)+33;
  include(mb,b);
 end; 
вывод множеств на экран
writeln('Множество А:');
for i:=33 to 255 do
if chr(i) in ma then write(chr(i),' ');
так же множество mb
создание множества разных элементов этих множеств
mc:=ma*mb;
вывод

[Rin@]

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

формирование множеств из видимых символов;
randomize;
for i:=1 to n do
 begin
  a:=randon(222)+33;
  include(ma,a);
  b:=randon(222)+33;
  include(mb,b);
 end; 
вывод множеств на экран
writeln('Множество А:');
for i:=33 to 255 do
if chr(i) in ma then write(chr(i),' ');
так же множество mb
создание множества разных элементов этих множеств
mc:=ma*mb;
вывод

а куда это надо вставлять в моей задачке?

[puporev]

а куда это надо вставлять в моей задачке?

Если под задачкой понимаете код своей программы, то в принципе между
begin и end. Но надо еще кое-что написать. Это же не готовая программа, а алгоритм на языке Паскаля. На основании его напишите программу.