Программа на тему - Множества

[deus95]

Нужна помощь с данной программой.На предприятии имеется 8 цехов (переменная Ceh), которые выпускают определенный ассортимент (переменная Asortyment) стандартных крепежных деталей. Сегодня каждый цех выпускает определенный набор таких деталей (оператор Ceh [i]: = ...). Далее приведен начало программы анализа ассортимента стандартных деталей, выпускаемых на заводе:

Program Pidpryemstvo_1;
type
  Product = (gvynt,bolt,gayka,zaklepka,koltso,
             shplint,shurup,shayba,shpilka,shponka,shtift);
  Asortyment = set of product;
var
 Ceh :array[1..8] of Asortyment;
Begin
 Ceh[1]:=[gvynt,bolt,gayka];
 Ceh[2]:=[gvynt,gayka,zaklepka,shponka];
 Ceh[3]:=[shurup];
 . . . . .
End.

Определить номенклатуру стандартных крепежных деталей, которую сегодня выпускали все цеха предприятия.



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

Модератор.

[Serge_Bliznykov]

ну, начнём с начала.
если нужно

Определить номенклатуру стандартных крепежных деталей, которую сегодня выпускали ВСЕ цеха предприятия.

то ответ на это даёт пересечение множеств.
Ответ := Ceh[1]*Ceh[2]*Ceh[3]*....*Ceh[8];
или, в цикле (см. код ниже)



Но это не самое сложное. Самое сложное в паскале с множествами - это ВЫВЕСТИ содержимое множества. Создатели языка (Н.Вирт) вольно или невольно, но не внесли стандартную возможность вывести содержимое множества. Поэтому, единственный способ вывести - это перебирать ВСЕ ВОЗМОЖНЫЕ варианты и проверять их вхождение в множество. (например, см. код ниже)

ну и последнее. Если нужно вывести номеклатуру, которую выводят ВСЕ цеха, то для вашего примера это уже - ПУСТОЕ множество - ибо нет ни одной детали, которую производят в 3-х цехах (уже не говоря про остальные пять цехов).

ну вот, пример кода:

Program Pidpryemstvo_1;
type
  Product = (gvynt,bolt,gayka,zaklepka,koltso,
             shplint,shurup,shayba,shpilka,shponka,shtift);
  Asortyment = set of product;
var
 Ceh :array[1..8] of Asortyment;
 CommonAssortemnt : Asortyment;
 p : Product;
 i : integer;
Begin
 Ceh[1]:=[gvynt,bolt,gayka];
 Ceh[2]:=[gvynt,gayka,zaklepka,shponka];
 Ceh[3]:=[shurup,gayka];
 Ceh[4]:=[shurup,gayka];
 Ceh[5]:=[shurup,gayka];
 Ceh[6]:=[shurup,gayka];
 Ceh[7]:=[shurup,gayka];
 Ceh[8]:=[shurup,gayka];

 CommonAssortemnt := Ceh[1];
 for i:=2 to 8 do CommonAssortemnt := CommonAssortemnt * Ceh[i];
 
 {вывести множество общих деталей}
 Write('Номенклатура стандартных крепежных деталей, которую сегодня выпускали все цеха (номера изделий):');
 for p:=gvynt to shtift do
   if p in CommonAssortemnt then Write('#',ord(p)+1,' ');
 WriteLn;
   
End.

[Stilet]

deus95

Еще раз кросспост от тебя увижу - забаню.