Обработка массива записей на Паскаль

[sumrakzone]

Как решить через паскаль?

На складе комплектующих изделий хранится N деталей (см.задание 8 ).
Необходимо рассортировать детали по группам с учетом признаков PR2 и PR1.
Первая группа - это детали, для которых PR2=false и PR3=false, для второй группы
PR2=false, PR3=true ит.д. Вывести на печать перечень наименований деталий
по каждой группе.

( 8. На складе комплектующих деталей хранится N деталей, каж-
дая из которых характеризуется записью следуюего вида:

Type ZAP = Record			     Здесь DTL - наименование деталей; PR1, PR2, PR3 - 
          DTL: string [10];			некоторые признаки деталей. Необходимо подготовить
          PR1: integer;			детали к запуску в сборочный  цех.  Для этого их следует
          PR2, PR3: boolean;			разбить на пары (Z1,Z2),  гдеZ1,Z2 - переменные  типа  
          end;

)

______________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.

2) Если Вы приводите исходный код в сообщении, то его нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Учтите это на будущее.

Модератор.

[Serge_Bliznykov]

Как решить - да элементарно.
1-е решаете, откуда будут браться исходные данные (сами записи). Варианта два - либо читаться из какого-то файла (проще из типизированного), либо вводится в массив записей каждый раз ручками оператором при каждом запуске программы.
потом пишете примерно так:

{ группа 1 }
for  Param2:=false to true do
  for Param3:=false to true do begin

    {сначала выдадим заголовок группы}
    if (Param2=false) then begin
       if (Param3=false) then WriteLn('Группа 1')
       else   WriteLn('Группа 2')
    end
    else  
       if (Param3=false) then WriteLn('Группа 3')
       else   WriteLn('Группа 4');

   {теперь выдадим все записи из данной группы}
   for i:=1 to N do {цикл по всем записям в массиве записей}
     if  (MasRec[i].PR2 = Param2) and (MasRec[i].PR3 = Param3) then  WriteLn(MasRec[i].DTL,' | ',MasRec[i].PR1);
  end;

и всё.


p.s. не увидел в вашем сообщении никаких намёков на просьбу! Вы что - команду тут отдали? В следующий будьте вежливее!