diff options
author | Andreas Baumann <mail@andreasbaumann.cc> | 2020-09-18 20:48:13 +0200 |
---|---|---|
committer | Andreas Baumann <mail@andreasbaumann.cc> | 2020-09-18 20:48:13 +0200 |
commit | 6c6fe33b224dc3342d8d8fc5fc2d27777eb55b89 (patch) | |
tree | 727a88701e4ddeb743cfc458fbc1d2cc29589755 /ecomp-c/test1.e | |
parent | 0eb3f28ec1faf8dc35d2f47fd982838af4d89d77 (diff) | |
download | compilertests-6c6fe33b224dc3342d8d8fc5fc2d27777eb55b89.tar.gz compilertests-6c6fe33b224dc3342d8d8fc5fc2d27777eb55b89.tar.bz2 |
some work on functions
Diffstat (limited to 'ecomp-c/test1.e')
-rw-r--r-- | ecomp-c/test1.e | 29 |
1 files changed, 23 insertions, 6 deletions
diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e index 80d9586..9300793 100644 --- a/ecomp-c/test1.e +++ b/ecomp-c/test1.e @@ -32,7 +32,7 @@ var s2 : array 10 of character := "hello"; a1 : array 10 of integer; -procedure B( n : integer, m : integer ); +procedure B( n : integer, m : integer, f : boolean ); procedure A; const @@ -44,16 +44,28 @@ var begin a1[5] := 43; s[0] := 'L'; - B( a1[5], 7 ); + B( a1[5], 7, true ); end -procedure B( n : integer, m : integer ); +procedure B( n : integer, m : integer, f : boolean ); var x : integer; begin - x := n - m; - a1[4] := x; + if f do + x := n - m; + a1[4] := x; + end +end + +function iszero( c : character ) : boolean; +var + res : boolean := false; +begin + if c = '0' do + res := true + end + return res; end begin @@ -98,5 +110,10 @@ begin a1[3] := 42; s2[a1[2]] := 'Z'; A; - B( 2, 1 ); + B( 2, 1, false ); + if iszero( '0' ) do + i := 1 + else + i := 2 + end end |