home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / win / fr / micropas / tableau.p < prev    next >
Text File  |  1994-09-20  |  541b  |  35 lines
  1. program Tableau;
  2.  
  3. type arbre = ^noeud;
  4.      noeud = record
  5.                  val : integer;
  6.                  g,d : arbre;
  7.              end;
  8.      tps = array[1..5] of arbre;
  9.      
  10.      pi = ^integer;
  11.      ti = array[1..5] of integer;
  12.      pti = ^ti;
  13.  
  14.      
  15. var i : integer;
  16.     a : tps;
  17.     b : ti;
  18.     c : pti;
  19.  
  20.  
  21. begin
  22.     new(c);
  23.  
  24.     for i:=1 to 5 do
  25.     begin
  26.         new(a[i]);
  27.         a[i]^.val := i;
  28.         b[i] := i;
  29.         c^[i] := i;
  30.     end;
  31.     
  32.     a[3]^.g := a[4];
  33.     a[3]^.d := a[2]; 
  34. end.
  35.