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

[Ostin]

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

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

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

[Ostin]

Type TMySet = set of 0 .. 19; { 20  }
Var
  saloon: array[1 .. 4] of TMySet; { 4  }
  InAll: TMySet;
  i: integer;
Begin
  
  saloon[1] := [1, 3, 6 .. 11, 15];
  saloon[2] := [2, 4, 6 .. 13, 19];
  saloon[3] := [1, 4, 8 .. 11, 18];
  saloon[4] := [1, 7, 9 .. 15, 16];
  
  InAll := [0 .. 19]; 
  For i := 1 to 4 do InAll := InAll * saloon[i];

End.

а как вывести результат!?

Сообщение отредактировано: volvo - 2.11.2006 23:37