summaryrefslogtreecommitdiff
path: root/web/funnelAC/answers/ex05.out
blob: 4a12476ca98f90ee8c5157021b4fdc918cedd2b2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.