home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / win / fr / micropas / arbre.p next >
Text File  |  1994-10-13  |  847b  |  38 lines
  1. program Arbres;
  2.  
  3. type arbre = ^noeud;
  4.      noeud = record
  5.                  val : integer;
  6.                  g,d : arbre;
  7.              end;
  8.      tete = record
  9.                 nombre : integer;
  10.                 debut : arbre;
  11.             end;
  12.      compose = record
  13.                    membre1, membre2 : tete;
  14.                end;
  15.              
  16. var a5 : arbre;
  17.     essai : compose;
  18.  
  19. function Nouv(v : integer; a,b : arbre) : arbre;
  20. var c : arbre;
  21. begin
  22.     new(c);
  23.     c^.val := v;
  24.     c^.g := a;
  25.     c^.d := b;
  26.     Nouv := c;
  27. end;
  28.  
  29.  
  30. begin
  31.     essai.membre1.nombre := 5;
  32.     a5 := Nouv(12,Nouv(8,Nouv(6,nil,nil),nil),Nouv(13,nil,nil));
  33.     essai.membre1.debut := a5;
  34.     
  35.     essai.membre2.nombre := 7;
  36.     essai.membre2.debut := Nouv(20,Nouv(3,Nouv(-1,nil,nil),a5),Nouv(25,Nouv(21,nil,nil),Nouv(28,nil,nil)));
  37. end.
  38.