home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / win / fr / micropas / func.p < prev    next >
Text File  |  1994-11-08  |  334b  |  24 lines
  1. program Fonction;
  2.  
  3. type liste = ^cellule;
  4.      cellule = record
  5.                    a,b : integer;
  6.                end;
  7.  
  8. var x : integer;
  9.     y : liste;
  10.     z : cellule;
  11.  
  12. function Fact(s : cellule) : liste;
  13. begin
  14.     new(Fact);
  15.     Fact^ := s;
  16. end;
  17.  
  18.  
  19. begin
  20.     x := 20 mod 3;
  21.     z.a := 3;
  22.     y := Fact(z);
  23. end.
  24.