Реферат: Разработка информационно-справочной системы

makewindow(5,95,1," Корректировка записи, найденной по артикулу ",7,10,13,60),

framewindow(94),

write("Номер артикула: "), readint(X),

characteristick(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),

nl, write("Старая запись:"), nl, nl,

show(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)), nl, nl,

write("Введите новый вариант:"), nl, nl,

get(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD,MonD,DayD)), nl,

clearwindow,

retract(characteristick(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day))),

assert(characteristick(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD,MonD,DayD))),

removewindow, removewindow, do('4'), !.

correct('1') :-

removewindow, removewindow, do('4'), !.

correct('2') :-

makewindow(5,95,1," Корректировка записи, найденной по названию ",7,10,13,60),

framewindow(94),

write("Название: "), readln(X),

characteristick(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)),

nl, write("Старая запись:"), nl, nl,

show(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)), nl, nl,

write("Введите новый вариант:"), nl, nl,

get(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD,MonD,DayD)), nl,

clearwindow,

retract(characteristick(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day))),

assert(characteristick(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD,MonD,DayD))),

removewindow, removewindow, do('4'), !.

correct('2') :-

removewindow, removewindow, do('4'), !.