-


- - . 19


retract(reader(_,_,D)), /* D */
count(Y,Y1), wr(D,Y1).
wr(_,Y) :- counter(Y), /* */
write("Count=",Y),!. /* 렠 */
goal
assert(counter(0)), inbase,
save("reader.dba"), /*

reader.dba */
asserta(counter(0)), wr(10,Y).
4.4.
1. , :
..., , .
, , 1
30 .
2. :
, , .
20 .
3. , :
..., , .
.
4. :
, .
, .
5. :
, , .
, 5 .
6. :
, ,
.
.
7. :
,
,
,
,
.
.
8. :
,
,
,
,
,
.
-,
.
9. :



- -  - -  - -