. , , ,

,,,

- " " Prolog — ,

CODE=9003

/* **************************

* ߠ *

* *

* 蠠 *

* *

**************************

*/

domains

z,nz,n,n1,chp,i=integer

fio,ma,ru,k=symbol

database -svod1

svod1(n,k,nz,ma,ru,chp)

database -lolo

lolo(n,fio,i,ma,ru,chp)

database -kuku

kuku(n,fio,nz,k,ru,chp)

database

svod(n,fio,nz,ma,ru,chp)

predicates

start

patch

load

select(i)

sel(i,i)

process(i)

procedure(i)

sve(i)

lod(i)

repeat

goal

start.

clauses

/* */

start:-

makewindow(1,2,7," ",0,0,25,80),

clearwindow,

load,

patch.

/* */

patch:-

repeat,

cursor(7,0),

write(" 0 - pp... "),nl,

write(" 1 - "),nl,

write(" 2 - "),nl,

write(" 3 - "),nl,

write(" 4 - "),nl,

write(" 5 - "),nl,

write(" 6 - "),nl,

write(" 7 - -"),nl,

write(" 8 - "),nl,

write(" =>"),

readint(Choice),

Choice >= 0,

Choice < 9,

clearwindow,

process(Choice),

clearwindow,

Choice = 8,

retractall(_),

removewindow.

/* */

load:-

existfile("olia.dat"),

consult("olia.dat"),

cursor(1,2),

write(" ").

load:-

cursor(1,2),

write(" ").

/*pp */

process(6):-

makewindow(1,2,7," ",0,0,25,80),

nl,

write(" 𠠠 :"),readint(K),nl,

write(" ... :"),readln(F),nl,

write(" ꠠ :"),readint(G),nl,

write(" :"),readln(Y),nl,

write(" ࠠ :"),readln(T),nl,

write(" "),nl,

write(" 頠 :"),readint(P),nl,

N1=K,FIO1=F,NZ1=G,MA1=Y,RU1=T,CHP1=P,

assertz(svod(N1,FIO1,NZ1,MA1,RU1,CHP1)),

removewindow,

fail.

/* -*/

process(7):-

makewindow(1,2,7,"-",0,0,25,80),

nl,

write(" :"),readint(A),nl,nl,

svod(N,FIO,NZ,MA,RU,CHP),

A=N,

write(" 蠠 :"),write(A),nl,

write("... :"),write(FIO),nl,

write(" ꠠ :"),write(NZ),nl,

write(" :"),write(MA),nl,

write(" ࠠ :"),write(RU),nl,

write(" "),nl,

write(" :"),write(CHP),nl,nl,nl,

write(" "),

readchar(_),

removewindow,

!.

process(7):-

write(" ."),

write(" "),nl,nl,nl,

write(" :"),

readint(A),nl,

A=N1,

write(" ... :"),readln(F),nl,

write(" ꠠ :"),readint(Y),nl,

write(" :"),readln(J),nl,

write(" ࠠ :"),readln(G),nl,

write(" "),nl,

write(" :"),readint(K),nl,

FIO1=F,NZ1=Y,MA1=J,RU1=G,CHP1=K,

assertz(svod(N1,FIO1,NZ1,MA1,RU1,CHP1)),

removewindow,

fail.

/*pp pp*/

process(0):-

makewindow(1,2,7," pp...",0,0,25,80),

write(" p-p "),nl,nl,

write(" Ƞ "),nl,nl,

write(" -TURBO-PROLOG v.2.0. "),nl,nl,

write(" p: . "),nl,nl,

write(" , p.-1-95 () 1995 . "),nl,nl,nl,nl,

write(" "),

readchar(_),

removewindow.

/* */

process(1):-

makewindow(1,2,7,"pp ",0,0,25,80),

nl,

select(N),

X=N,

svod(X,FIO,NZ,MA,RU,CHP),

write(" 蠠 :"),write(N),nl,

write("... :"),write(FIO),nl,

write(" ꠠ :"),write(NZ),nl,

write(" :"),write(MA),nl,

write(" ࠠ :"),write(RU),nl,

write(" "),nl,

write(" :"),write(CHP),nl,

nl,

write(" ... :"),readln(FIO1),nl,

write(" ꠠ :"),readint(NZ1),nl,

write(" :"),readln(MA1),nl,

write(" ࠠ :"),readln(RU1),nl,

write(" "),nl,

write(" :"),readint(CHP1),nl,

X1=X,

retract(svod(X,FIO,NZ,MA,RU,CHP)),

assert(svod(X1,FIO1,NZ1,MA1,RU1,CHP1)),

!,

removewindow.

/* */

process(2):-

makewindow(1,2,7,"p ",0,0,25,80),

nl,

write("--------------------------------------------------------------------"),nl,

write(" Ƞ "),nl,

write("--------------------------------------------------------------------"),nl,

write("!.! ! ! ! ! !"),nl,

write("! ! ..! ꠠ ! .! ! !"),nl,

write("--------------------------------------------------------------------"),nl,

svod(N,FIO,NZ,MA,RU,CHP),

cursor(Z,_),

cursor(Z,0),write(N),

cursor(Z,9),write(FIO),

cursor(Z,24),write(NZ),

cursor(Z,35),write(MA),

cursor(Z,45),write(RU),

cursor(Z,55),write(CHP),

cursor(Z,68),write("!"),

nl,

fail.

process(2):-

write("-------------------------------------------------------------------"),

nl,

write(" "),

readchar(_),

removewindow.

/* */

process(3):-

nl,

makewindow(2,15,4,"",5,5,20,70),

write("1 - "),nl,

write("2 - olia.dat"),nl,

write("3 - "),nl,

write("==>"),

readint(C),

C>0,C<4,

lod(C),

!,

removewindow.

/* */

process(4):-

nl,

makewindow(2,15,4,"",5,5,20,70),

write("1 - "),nl,

write("2 - olia.dat"),nl,

write("3 - "),nl,

write("==>"),

readint(I),

I>0,I<4,

sve(I),!,

removewindow.

/* */

process(5):-

nl,

makewindow(3,2,7," ",0,0,25,80),

write("1 - ... ."),nl,

write("2 - ."),nl,

write("3 - ."),nl,

write("4 - "),nl,

write("==>"),

readint(O),

O>0,O<5,

procedure(O),

removewindow.

process(_).

/* */

procedure(1):-

makewindow(1,2,7," ... .",0,0,25,80),

nl,

cursor(7,10),

retractall(_,svod1),

nl,

write(" . , "),

nl,

write(" ... .:"),

readln(X),

svod(N,FIO,NZ,MA,RU,CHP),

S=FIO,

S=X,

N1=N,NZ1=NZ,MA1=MA,RU1=RU,CHP1=CHP,

assert(svod1(N1,S,NZ1,MA1,RU1,CHP1)),

fail.

procedure(1):-

write("-------------------------------------------------------------------"),nl,

write(" Ƞ "),nl,

write("-------------------------------------------------------------------"),nl,

write("!.! !! ! ! .!"),nl,

write("! ! .. ! ! .! !!"),nl,

write("-------------------------------------------------------------------"),nl,

svod1(N1,S,NZ1,MA1,RU1,CHP1),

cursor(Z,_),

cursor(Z,0),write(N1),

cursor(Z,9),write(S),

cursor(Z,24),write(NZ1),

cursor(Z,35),write(MA1),

cursor(Z,45),write(RU1),

cursor(Z,55),write(CHP1),

cursor(Z,68),write("!"),

fail.

procedure(1):-

write("-------------------------------------------------------------------"),

save("not.dat",svod1),

nl,

write(" not.dat"),

nl,

write(" "),

readchar(_),

removewindow,

!.

procedure(1):-

write("-------------------------------------------------------------------"),

nl,

write(" "),

nl,

write(" "),

readchar(_),

makewindow(1,2,7," ",0,0,25,80).

procedure(2):-

makewindow(1,2,7," .",0,0,25,80),

nl,

cursor(7,10),

retractall(_,lolo),

nl,

write(" ., "),nl,

write(" .:"),

readint(X),

svod(N,FIO,NZ,MA,RU,CHP),

S=NZ,

S=X,

N1=N,FIO1=FIO,MA1=MA,RU1=RU,CHP1=CHP,

assert(lolo(N1,FIO1,S,MA1,RU1,CHP1)),

fail.

procedure(2):-

write("-------------------------------------------------------------------"),nl,

write(" Ƞ "),nl,

write("-------------------------------------------------------------------"),nl,

write("!.! !! ࠠ ! ! .!"),nl,

write("! ! .. ! ꠠ !! ࠠ !!"),nl,

write("-------------------------------------------------------------------"),nl,

lolo(N1,FIO1,S,MA1,RU1,CHP1),

cursor(Z,_),

cursor(Z,0),write(N1),

cursor(Z,9),write(FIO1),

cursor(Z,24),write(S),

cursor(Z,35),write(MA1),

cursor(Z,45),write(RU1),

cursor(Z,55),write(CHP1),

cursor(Z,68),write("!"),

fail.

procedure(2):-

write("-----------------------------------------------------------------------------"),

save("not1.dat",lolo),

nl,

write(" not1.dat"),

nl,

write(" "),

readchar(_),

removewindow,

!.

procedure(2):-

write("-------------------------------------------------------------------"),

nl,

write(" "),

nl,

write(" "),

readchar(_),

makewindow(1,2,7," ",0,0,25,80).

procedure(3):-

makewindow(1,2,7," ",0,0,25,80),

nl,

cursor(7,10),

retractall(_,kuku),

nl,

write(" , "),

nl,

write(" :"),

readln(X),

svod(N,FIO,NZ,MA,RU,CHP),

S=MA,

S=X,

N1=N,FIO1=FIO,NZ1=NZ,RU1=RU,CHP1=CHP,

assert(kuku(N1,FIO1,NZ1,S,RU1,CHP1)),

fail.

procedure(3):-

write("-------------------------------------------------------------------"),nl,

write(" Ƞ "),nl,

write("-------------------------------------------------------------------"),nl,

write("!.! !! ࠠ ! ! .!"),nl,

write("! ! .. ! ꠠ !! !!"),nl,

write("-------------------------------------------------------------------"),nl,

kuku(N1,FIO1,NZ1,S,RU1,CHP1),

cursor(Z,_),

cursor(Z,0),write(N1),

cursor(Z,9),write(FIO1),

cursor(Z,24),write(NZ1),

cursor(Z,35),write(S),

cursor(Z,45),write(RU1),

cursor(Z,55),write(CHP1),

cursor(Z,68),write("!"),

fail.

procedure(3):-

write("-------------------------------------------------------------------"),

save("not2.dat",kuku),

nl,

write(" not.dat"),

nl,

write(" "),

readchar(_),

removewindow,

!.

procedure(3):-

write("-------------------------------------------------------------------"),

nl,

write(" "),

nl,

write(" "),

readchar(_),

makewindow(1,2,7," ",0,0,25,80).

/* */

sve(1):-

write(" :"),

readln(N),

save(N),

write(" "),

beep,

!.

sve(1):-

write(" , "),

readchar(_).

sve(2):-

save("olia.dat").

sve(3).

/* */

lod(1):-

retractall(_),

write(" :"),

readln(N),

existfile(N),

consult(N),

write(" "),

beep,

!.

lod(1):-

nl,

write(" "),nl,

write(" "),

readchar(_).

lod(2):-

retractall(_),

existfile("olia.dat"),

consult("olia.dat"),

write(" "),

beep,

!.

lod(2):-

write(" olia.dat "),nl,

write(" "),

readchar(_).

lod(3).

repeat.

repeat:- repeat.

/* */

select(N):-

nl,

write("1 - "),nl,

write("2 - .. "),nl,

write("3 - "),nl,

write("4 - "),nl,

write("5 - "),nl,

write("==>"),

readint(X),

sel(X,N).

sel(1,N):-

nl,

write(" 蠠 :"),

readint(N),

svod(M,_,_,_,_,_),

M=N.

sel(1,N):-

N=0.

sel(2,N):-

nl,

write(" .. :"),

readln(L),

svod(Z,L,_,_,_,_),

N=Z.

sel(2,N):-

N=0.

sel(3,N):-

nl,

write(" : "),

readint(F),

svod(Z,_,F,_,_,_),

N=Z.

sel(3,N):-

N=0.

sel(4,N):-

nl,

write(" :"),

readln(Q),

svod(Z,_,_,Q,_,_),

N=Z.

sel(4,N):-

N=0.

sel(5,N):-

nl,

write(" :"),

readln(W),

svod(Z,_,_,_,W,_),

N=Z.

sel(5,N):-

N=0.

sel(6,N):-

nl,

write(" :"),

readint(C),

svod(Z,_,_,_,_,C),

N=Z.

sel(6,N):-

N=0.

CODE=9003 /* ************************** * ߠ * * * * 蠠 * * * ****************

 

 

 

! , , , .
. , :