паскаль(множества)

[masterlomaster]

Вводится 6 чисел, не превышающих 49. Программа также генерирует 6 различных чисел от 1 до 49 и сообшает, сколько из них пользователь угадал.

У кого-нибуть есть алгоритм ввода и вывода множества?

[Вадим Мошев]

Множества не вводятся/выводятся, как числовые переменные или строки.
Операции ввода/вывода можно оставлять поэлементно, как в случае с массивами.

Например,если есть множество из элементов от 1 до 100, то для того, чтобы вывести его элементы на экран, можно воспользоваться конструкцией:

for i:=1 to 100 do 
        if i in A then writeLn(i);

Такая конструкция будет работать, даже если в множестве A содержатся НЕ ВСМЕ элементы из этого диапазона, более того, именно для этого случая она и предназначена.

___________

Ввод элементов в множества делается банальной операцией объединения множеств.
Если нам надо заполнить множества элементами, введёнными с клавиатуры, пишем так:

Read(element);
A:=A + [element];

При необходимости такую операцию можно выполнить в цикле.

[masterlomaster]

как множества та тогда сравнить?
допустим например
if i=j then write(i);???

[Вадим Мошев]

Если вы хотите вывести на экран элементы, принадлежащие и тому, и другому множеству, то можно поступить так:

for i:=1 to 49 do {как у вас 49 написано}
      if (i in A) AND (i in B) then WriteLn(i);

или вот так:

C:=A*B; {перечение множеств}
for i:=1 to 49 do {как у вас 49 написано}
if i in C then WriteLn(i);

P.S. Насколько мне известно, для сравнения множеств определена только операция проверки на равно/неравно.

[masterlomaster]

Спасибо Вам большое, все понял.