home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / win / fr / micropas / exemple.p < prev    next >
Text File  |  1994-09-20  |  376b  |  22 lines
  1. program Exemple;
  2.  
  3. type essai = ^cellule;
  4.      cellule = record
  5.                   valeur : integer;
  6.                   suivant : essai;
  7.                end;
  8.  
  9. var a, b, c, d : essai;
  10.  
  11. begin
  12.     new(a);
  13.     a^.valeur := 3;
  14.     new(a^.suivant);
  15.     c := a^.suivant;
  16.     c^.suivant := nil;
  17.     b := a;
  18.     new(d);
  19.     d^:= a^;
  20.     a^.suivant^.valeur := 2;
  21. end.
  22.