home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pascal / pascsrc.arc / POINT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  605 b   |  26 lines
  1.                                       (* Chapter 12 - Program 1 *)
  2. program First_Pointer_Example;
  3.  
  4. type Int_Point = ^Integer;
  5.  
  6. var Index         : Integer;
  7.     Where         : ^Integer;
  8.     Who           : ^Integer;
  9.     Pt1, Pt2, Pt3 : Int_Point;
  10.  
  11. begin
  12.    Index := 17;
  13.    Where := Addr(Index);
  14.    Who := Addr(Index);
  15.    Writeln('The values are   ',Index:5,Where^:5,Who^:5);
  16.  
  17.    Where^ := 23;
  18.    Writeln('The values are   ',Index:5,Where^:5,Who^:5);
  19.  
  20.    Pt1 := Addr(Index);
  21.    Pt2 := Pt1;
  22.    Pt3 := Pt2;
  23.    Pt2^ := 151;
  24.    Writeln('The Pt values are',Pt1^:5,Pt2^:5,Pt3^:5);
  25. end.
  26.