summaryrefslogtreecommitdiff
path: root/web/funnelAC/answers/ex05.out
diff options
context:
space:
mode:
Diffstat (limited to 'web/funnelAC/answers/ex05.out')
-rw-r--r--web/funnelAC/answers/ex05.out18
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.