home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mega Top 1
/
os2_top1.zip
/
os2_top1
/
APPS
/
TEKST
/
FUNNEL_S
/
ANSWERS
/
EX05.OUT
< prev
next >
Wrap
Text File
|
1992-05-27
|
614b
|
19 lines
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.