• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Domains

name=string

file=dbase

Database

Spisok(name)

Predicates

Run

Runyes

Runotv(string)

Goal

Run.

Clauses

run :- write(" <Список>"),nl,nl,consult("spi.dat"),runyes.

runyes:-write("Введите имя: "),readln(Name),nl,

Assertz(spisok(Name,Nomer)),nl,

write("Продолжить ввод?(yes/no) "),readln(Otv),runotv(Otv).

runotv(Otv) :-Otv="yes", runyes.

runotv(Otv) :-Otv="no",save("spi.dat").

Переглядів: 557