summaryrefslogtreecommitdiff
path: root/web/funnelAC/answers/ex06.out
blob: 03ac7feb137b31492a447c36628483d2cb1c4cdd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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.