fork download
copy 
  1. program test;
  2.  
  3. procedure byref(var x : Integer);
  4. begin
  5.   Inc(x);
  6. end;
  7.  
  8. type PInteger = ^Integer;
  9.  
  10. procedure byptr(x : PInteger);
  11. begin
  12.   if x <> nil then Inc(x^);
  13. end;
  14.  
  15. var x : Integer = 0;
  16.  
  17. begin
  18.   writeln(x);
  19.   byref(x);
  20.   writeln(x);
  21.   byptr(@x);
  22.   writeln(x);
  23. end.
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0
1
2
https://ideone.com/6T1kaC
language:
Pascal (fpc 3.0.4)
created:
13 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!