Новичок
Профиль
Группа: Участник
Сообщений: 1
Регистрация: 1.4.2012
Репутация: нет
Всего: нет
|
Помогите кто может, така задачка: Создать програму-диалог - Рабочее место менеджера музыкального магазина, для вывода отчета: 1) Жанры 2) Исполнители 3) Диски 4) Учет продаж И у кажном разделе по 1) Отчет по доходам за период 2) Отчет по продажам по исполнителям 3) Отчет по продажам по жанрам _________________________________________В чем ошибся?? __________________ | Код |
facts - mydb
nondeterm report(string,string,string,string,string,string)
predicates
nondeterm begin
nondeterm find(string,string)
nondeterm exit(string)
nondeterm choose(string)
nondeterm xchoose(string)
nondeterm type(string)
nondeterm xtype(string)
nondeterm get (string,string)
clauses
choose(1):- true.
choose(_):- write ("Incorrect input, please try again."),run.
xchoose(0):- write ("End of program. Good by!"), exit.
xchoose(_):- write ("Incorrect input, please try again."),run.
get(Genres,Report on the profit for the period):- report(type,xtype),
get(Genres,The report on sales by artist):- report(type,xtype),
get(Genres,The report on sales by genre):- report(type,xtype),
get(Artists,Report on the profit for the period):- report(type,xtype),
get(Artists,The report on sales by artist):- report(type,xtype),
get(Artists,The report on sales by genre):- report(type,xtype),
get(Carriers,Report on the profit for the period):- report(type,xtype),
get(Carriers,The report on sales by artist):- report(type,xtype),
get(Carriers,The report on sales by genre):- report(type,xtype),
get(Accounting for sales,Report on the profit for the period):- report(type,xtype),
get(Accounting for sales,The report on sales by artist):- report(type,xtype),
get(Accounting for sales,The report on sales by genre):- report(type,xtype),
run:-
write ("Choose type of report :\n
- Genres;\n
- Artists;\n
- Carriers;\n
- Accounting for sales;\n"),
readstring(type),choose(type),
write ("Choose type of unit report:\n
- Report on the profit for the period;\n
- The report on sales by artist;\n
- The report on sales by genre;\n"),
readstring(xtype),xchoose(xtype),
write ("__________________REPORT__________________\n"),
find(type,xtype)
find(type,xtype):- get(type,xtype), report(type,xtype,Count,Name,Number,Price),
write (type," ",xtype," ",Count," ",Name," ",Number," ",Price),
find(_,_):- nl,
wrute ("__________________________________________\n",
"Enter 0 to exit ||||| Enter 1 to continue:\n "),
readstring(X), choose(X),
choose(0):- write ("End of program. Good by!"),exit.
choose(1):- run.
goal
consult ("reports.dba", report),
write ("Program: Workplace manager of music shop\n
______________________________________________\n"),
run.
|
|
Need HELP, Prolog program 
Загрузка ...
