Пәндердің оқу-әдістемелік кешенінің тізімдемесі
«Телефон анықтамалығы» программасының коды
жүктеу/скачать 2.35 Mb.
|
| «Телефон анықтамалығы» программасының коды
DOMAINS /* */ Name, number=string File=f DATABASE Phone(name, number) PREDICATES Name_phone (name, number) M(char) Menu Start CLAUSES name_phone(Name, Phone):- phone(Name, Phone), !. name_phone(_, “Нет информации о телефонном номере”). Phone_name (Name, Phone):- phone(Name, Phone). Phone_name (“Нет информации о владельце телефона”,_). Menu:- Clearwindow, Write(“1–Получение телефонного номера по фамилии“),nl, Write(“2–Получение фамилия абонента по номеру”),nl, Write(“3–Добавление новой записи в телефонную базу”),nl, Write(“4–Изменение номера абонента”),nl, Write(“5–Удаление записи из телефонной базы”),nl, Write(“0–Выйти”),nl, Readchar(C), M(C). M(‘1’):- Clearwindow, Write (“Введите фамилию”),nl, Readln (Name), name_phone (Name, Phone), write (“Номер телефона: ”,Phone), readchar(_), menu. M(‘2’):- Clearwindow, Write (“Введите номер телефона),nl, Readln (Phone), Phone_name (Name, Phone), write (“Фамилия абонента:” , Name), readchar(_), menu. M(‘3’):- Clearwindow, Write (“Введите фамилию”),nl, Readln (Name), Write (“Введите номер телефона),nl, Readln (Phone), Assert(phone (Name, Phone)), menu. M(‘4’):- Clearwindow, Write (“Введите фамилию”),nl, Readln (Name), Write (“Введите новый номер телефона),nl, Readln (Phone), retract(phone (Name, _)), Assert(phone (Name, Phone)), menu. M(‘5’):-
Write (“Укажите номер телефона, запись о котором нужно удалить из телефонной базы), nl, Readln (Phone), retract(phone (_,Phone)), menu. M(‘0’):-
Retractall (_). M(_):- menu. Start:- existfile(“phones.ddb “), !, consult (“phones.ddb “), menu. Start:- Openwrite (f, “phones.ddb “), Closefile (f), Menu. GOAL Start жүктеу/скачать 2.35 Mb. Достарыңызбен бөлісу:
|