множества!, про авто салоны Опции

[Ostin]

всем привет!
есть 4 авто салона и всего 20 марок автомобилей!
надо сделать чтоб показывались марки (набор авто) которые есть сейчас в каждом из салонов! чтобы можно было добовлять удалять марку, какие из тех 20 марок отсутствуют везде, какие есть во всех салонах и выводить которые есть только в данном салоне И СДЕЛАТЬ ВЫБОРКУ АВТОМОБиЛЕЙ КОТОРЫЕ ЕСТЬ В САЛОНЕ (я не совсем понил что значит и что надо сделать в последнем пункте!)

помогите пожалуйста!))))

Сообщение отредактировано: Ostin - 25.04.2006 17:36

[volvo]

Type TMySet = set of 0 .. 19; { 20 марок автомобилей }
Var
  saloon: array[1 .. 4] of TMySet; { 4 салона }
  InAll: TMySet;
  i: integer;
Begin
  { в первом салоне есть автомобили марок 1, 3, 6, 7, 8, 9, 10, 11 и 15 }
  saloon[1] := [1, 3, 6 .. 11, 15];
  ...
  { аналогично заполняешь остальные салоны }

  { найдем автомобили, содержащиеся во ВСЕХ салонах: }
  InAll := [0 .. 19]; { все возможные марки }
  For i := 1 to 4 do InAll := InAll * saloon[i];
  { теперь в InAll перечислены только те марки, которые есть везде }
  
End.

Я же дал ссылку на решенные задачи. Второй раз переписывать все подряд я не собираюсь.