diff options
Diffstat (limited to 'web/funnelAC/answers/ex05.out')
-rw-r--r-- | web/funnelAC/answers/ex05.out | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/web/funnelAC/answers/ex05.out b/web/funnelAC/answers/ex05.out new file mode 100644 index 0000000000..4a12476ca9 --- /dev/null +++ b/web/funnelAC/answers/ex05.out @@ -0,0 +1,18 @@ +program adt(input,output); +type buffer_type = + record + length : integer; + buf : array[1..100] of char; + end; +type complex_type = record r,i : real; end; + +bigbuf : buffer_type; + +procedure buf_init (var b : buffer_type ) {Body of buf_init} +procedure buf_add (var b : buffer_type; ch : char) {Body of buf_add} +procedure buf_get (var b : buffer_type; var ch : char) {Body of buf_get} +procedure cm_set (var c: complex_type; a,b: real) {Body of cm_set} +procedure cm_add (a,b: complex_type; var c: complex_type) {Body of cm_add} +{Other procedures and functions} + +begin startproc; end. |