Class Kullanımı

program class_kullanimi;


{$APPTYPE CONSOLE}





type


 yer=class


   private


    x,y:integer;


     public


      procedure verioku(ilkx,ilky:integer);


      procedure veriyiyaz(yx,yy:integer);


 end;





  procedure yer.verioku(ilkx,ilky:integer);


   begin


      x:=ilkx;


      y:=ilky;





   end;





  procedure yer.veriyiyaz(yx,yy:integer);


    begin


      write('X:',X,' ','Y:',Y);





    end;


  var


  y1:yer;


   begin


   y1.verioku(5,10);


   y1.veriyiyaz(y1.x,y1.y);


   readln;


 end.