Множества

[Smotritel89]

program sets;
uses crt;
var a,b:set of char;
    s:char;
    i:integer;
begin
ClrScr;
a:=[];
b:=[];
writeln('Vvedite mnojestvo A:');
repeat
 write('s=');
 readln(s);
 include (a, s);
until s='.';
writeln('Vvedite mnojestvo B:');
repeat
 write('s=');
 readln(s);
 include (b, s);
until s='.';
 
write('Mnojestvo A = ');
for i:=32 to 255 do
if chr(i) in a then
write(chr(i),' ');
writeln;
 
write('Mnojestvo B = ');
for i:=32 to 255 do
if chr(i) in a then
write(chr(i),' ');
writeln;
 
if a=b then write('Mnojestva soderjat drug druga => ')
else if a>=b then write('Mnojestvo B yavlaetsa podnojestvom A')
else if b>=a then write('Mnojestvo A yavlaetsa podnojestvom B');
readkey;
end.

Собственно программа работает, т.е проверяет принадлежность множеств, но только с первыми буквами слова. А нужно переделать так чтобы при заполнении слов в множества например : Сидоров и Силуянов, это были 2 разные слова, а программа смотрит только на первую букву. Это нужно сделать через strings, но что то не пойму как, подскажите пожалуйста, что нужно доработать?

[Stilet]

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

[Smotritel89]

не, например я ввожу так

множество А {Иванов, Петров, Сидоров}

множества B {Ивашин, Петров, Сидоров, Андреев}

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

[OCTAGRAM]

set тут точно надо выбросить, вместо него сортированные списки.

[Smotritel89]

Знал бы я только как это сделать Подскажите пожалуйста кто знает...

[Smotritel89]

все еще актуально, помогите плизз

[OCTAGRAM]

а в поиске нет подобных задач?

накопипастить–то можно что–нибудь

[Smotritel89]

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

[OCTAGRAM]

Хорошо, намекну. Есть такая штука сортировка слиянием, и в ней операция слияния. На вход эта операция получает два сортированных списка (или массива), на выходе сортированный список, состоящий из всех элементов обоих списков.

Немного переделав эту операцию, можно сделать проверку на принадлежность.

Вместо списков можно сделать на массивах.