fork download
copy 
  1. program clp_scope;
  2. var x,y,z:integer;
  3.  
  4. function f(i:integer):real;
  5. var x:real;
  6.  
  7. 	procedure alpha();
  8. 	var y:real;
  9. 	begin
  10. 		y := 6.23;
  11. 		writeln(y + z:0:3);
  12. 	end;
  13.  
  14.  begin
  15. 	x := 3.14;
  16. 	alpha;
  17. 	f := x * i;
  18.  end;
  19.  
  20.  procedure g();
  21.  var z:real;
  22.  begin
  23. 	z := 2.718;
  24. 	z := f(7);
  25.  end;
  26.  
  27. begin
  28.  x := 1024;
  29.  y := 625;
  30.  z := 333;
  31.  g;
  32.  writeln(f(0):0:3);
  33. end.
Success #stdin #stdout 0.01s 5532KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
339.230
339.230
0.000
https://ideone.com/DFvJiP
language:
Pascal (fpc 3.0.4)
created:
1 year 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!