diff options
author | Andreas Baumann <mail@andreasbaumann.cc> | 2019-02-13 19:46:09 +0100 |
---|---|---|
committer | Andreas Baumann <mail@andreasbaumann.cc> | 2019-02-13 19:46:09 +0100 |
commit | d084f5980e5e51c9df239b4cc76905e13a3bf5fa (patch) | |
tree | 8b6459ac48e02391083c65ac7cb802bc77643314 /minie | |
parent | 9da8bae31a26de04d664abe1f89cdb54170498c9 (diff) | |
download | compilertests-d084f5980e5e51c9df239b4cc76905e13a3bf5fa.tar.gz compilertests-d084f5980e5e51c9df239b4cc76905e13a3bf5fa.tar.bz2 |
forgot to add test7
Diffstat (limited to 'minie')
-rw-r--r-- | minie/test7.e | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/minie/test7.e b/minie/test7.e new file mode 100644 index 0000000..f8bcf07 --- /dev/null +++ b/minie/test7.e @@ -0,0 +1,31 @@ +module test7; + +import system; + +var + s : array[64] of char; + len : integer; + +procedure StringLength( s : array of char ) : integer; +var + i : integer; + len : integer; + +begin + len := length( s ); + i := 0; + while ( i < len ) and ( s[i] <> char( 0 ) ) do + i := i + 1 + end; + return i +end + +begin + system.readline( s ); + len := StringLength( s ); + system.writestring( "String: " ); + system.writeline( s ); + system.writestring( "Length: " ); + system.writeinteger( len ); + system.writeline( "" ) +end |