t_17_2_v_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
записать в файл П типа потомки имена всех потомков человека с именем И в порядке: дети, внуки, правнуки и т.д}
type name=(Анна,..,Яков);
     children = packed array [name,name] of boolean;
     descendants = file of name;
     queue = ^chain;
     chain = record
                next : queue; elem : name
             end;
var Д:children;
procedure des(И: name; Д; var П:descendants);
     var i,j: name; q:queue;
     begin
             assign(П,'D:\pascal.text\17.2в_П.txt');
             rewrite(П);
             ОЧИСТОЧ(q);
             for i:=Анна to Яков do
                   if Д[И,i] then ВОЧЕРЕДЬ(q,i);
             while not(ПУСТОЧ(q)) do
                   begin
                         ИЗОЧЕРЕДИ(q,j); {берутся элементы из начала очереди}
                         write(П,j);
                         for i:=Анна to Яков do
                                 if Д[j,i] then ВОЧЕРЕДЬ(q,i);{новые имена добавляются в конец очереди}
                   end;
             close(П);
     end;