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

[Ostin]

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

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

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

[Ostin]

program mnoj;
uses crt;
Type TMySet = set of 0 .. 19; { 20  }

Var
  saloon: array[1 .. 4] of TMySet; { 4  }
  InAll, InNone: TMySet;
  i: integer;
Begin
      clrscr;
  saloon[1] := [1, 3, 6 .. 11, 15];
  saloon[2] := [1,2, 4, 6 .. 13, 19];
  saloon[3] := [1, 4, 8 .. 11, 18];
  saloon[4] := [1, 7, 9 .. 15, 16];

  InAll := [0 .. 19]; InNone := [0 .. 19];

  For i := 1 to 4 do begin
    InAll := InAll * saloon[i];
    InNone := InNone - saloon[i];
  end;

  Write('saloon[1]: ');
  For i := 0 to 19 do
    if i in saloon[1] Then Write(i:3);
  Writeln;

  Write('saloon[2]: ');
  For i := 0 to 19 do
    if i in saloon[2] Then Write(i:3);
  Writeln;

  Write('saloon[3]: ');
  For i := 0 to 19 do
    if i in saloon[3] Then Write(i:3);
  Writeln;

  Write('saloon[4]: ');
  For i := 0 to 19 do
    if i in saloon[4] Then Write(i:3);
  Writeln;

  writeln(' ');

  Write('in all: ');
  For i := 0 to 19 do
    if i in InAll Then Write(i:3);
  Writeln;



  Write('in none: ');
  For i := 0 to 19 do
    if i in InNone Then Write(i:3);
  Writeln;
  readln;

End.

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