home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / pascal2.zip / POINT4.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  599b  |  26 lines

  1.                                         (* Chapter 12 - Program 2 *)
  2. program TURBO_4_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 := @Index;
  14.    Who := @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 := @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.