Через множества заданы сорта роз,выращиваемых цветоводами. Ввод множества с клавиатуры,сравнение множеств

[BAMbarBIO]

Помогите пожалуйста решить задау вот такую:
Известны сорта роз выращиваемых тремя цветоводами: "Анжелика", "Виктория", "Гагарин", "Ave Maria", "Катарина", "Юбилейная". Определить те сорта, которые имеются у каждого из цветоводов, которые есть хотябы у одного из цветоводов, которых нет ни у одного из цветоводов.

Не знаю как заполнить множество с клавиатуры, и потом сравнить эти три множества. Пожалуйста подскажите как сделать. Если есть у кого похожая задача скиньте плиз!! ((

[Serge_Bliznykov]

зря не пользуетесь поиском..

вот о том, как вывести множество: вывести множество на экран

а вот решение ВАШЕЙ задачи: - ЗДЕСЬ

p.s. ввод множеств с клавиатуры подразумевает ввод некоторых кодов/шифров/мнемоник/идентификаторов и потом программа уже перекодирует введённое пользователем в элемент множества. Если интересно - напишу пример..

[BAMbarBIO]

Serge_Bliznykov,
А как можно в memo1 написать какие розы у каждого цветовода? возможно например в memo1 написать через запятые в виде названий роз, а потом их сравнить, или их записать в массив, а потом в memo1 ввести тлько цифры через запятые?

[Serge_Bliznykov]

погодите-ка!
Сделать можно всё. Но в том и прелесть использования множеств (множественного типа данных), что к нему применимы операции логики!
Совпадение множеств.
Пересечение множеств.
Объединение множеств...
Т.е. элементарно получить сорта роз, которые есть, например, у первого цветовода, и нет у второго... или какие сорта есть у всех трёх... и т.д.
Это всё делается одной(парой) строчек кода.

А Вы хотите съэмулировать множества с помощью других структур (коллекции TStringList, например, как Вы предлагаете) и потом Вам понадобится писать свою реализацию допустимых на множеством операций. Это Вам НЕ НУЖНО!


А вот вывести результаты в Memo - элементарно. Смотрите ссылку - как вывести множество на экран. Заменяйте WriteLn на Memo1.Lines.Append() и всё!

[BAMbarBIO]

а как тогда вывести множество на memo1, например вот прога

procedure TForm1.Button1Click(Sender: TObject);
type cwety=set of(Angelica,Victoria,Gagarin,AveMaria,Katarina,Jubileinaj);
var  a:cwety;
     b:array[1..6]of cwety;
begin
a:=[Angelica,Victoria];
b[1]:=a;
memo1.Lines.add(b[1]);
end;

то есть вывести в memo1 множество a



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) используйте теги для оформления кода!

то есть вывести в memo1 множество a

2) по ссылке не ходили? или не поняли, какой там трюк использовался?...
поясню на вашем примере:

procedure TForm1.Button1Click(Sender: TObject);
type CwetSort = (Angelica,Victoria,Gagarin,AveMaria,Katarina,Jubileinaj);
const
  PrintCvetyName : array[low(CwetSort)..high(CwetSort)] of
     string = ('Анжелика','Виктория','Гагарин','Ave Maria','Катарина','Юбилейная');


var  a  : set of CwetSort;
    OneCS : CwetSort;
begin
  a:=[Angelica,Victoria];
 
  // вывод в Memo1
  Memo1.Lines.Clear;

  {а вот так можно вывести отображение имен элементов множества.
    но, разумеется, эти имена надо где-то задать.    }
  Memo1.Lines.Append('В множесте A содержатся записи: ');
  for  OneCS := low(CwetSort) to high(CwetSort) do
    if OneCS in a then memo1.Lines.Append(PrintCvetyName[OneCS]);

end;

p.s. не поленюсь ещё раз процитировать свои же слова:

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

множество - очень удобная (иногда) штука. Но вот с вводом и выводом всегда большие проблемы...
Единственный способ в Паскале вывести содержимое переменной типа "множество" на экран — это перебирать в цикле все возможные элементы, которые могут составлять множество, проверять наличие этого элемента в печатаемом множестве, и, если оно там есть - вывод элемента на экран..