diff options
Diffstat (limited to 'check/main.p')
-rw-r--r-- | check/main.p | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/check/main.p b/check/main.p index 613f8dc..e9c7441 100644 --- a/check/main.p +++ b/check/main.p @@ -1,6 +1,6 @@ program main ( input, output ); - var a, b: integer; + var a, b, c, d, e, f: integer; var x,y,z: real; var ai :array [1..10] of integer; procedure boo (n: integer); @@ -21,11 +21,24 @@ program main ( input, output ); z := 1e-10; y := 2.5543e-2 end; + function order (a, b, c: integer) : real; + begin + a := 2 + end; + function order2 (a, b, c, d, e: integer) : real; + begin + a := 2 + end; begin { TEST } a := 1; x := 3.14; + x := order(a, b, c); + x := order2(a, b, c, d, e); + x := bar(a); + foo; + boo(a); b := a + 35 (* test *) end. |