Поиск:

Ответ в темуСоздание новой темы Создание опроса
> пролог 
:(
    Опции темы
bobsvt
Дата 8.6.2011, 10:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 2.9.2008

Репутация: нет
Всего: нет
Скажите почему ругается на переменную в это месте basesport(S,L1)?
Ошибка типа данных S.

Код

domains
family =  string*
sport = string
i= integer
i1=integer
ss=string

predicates

basesport(sport,family).
member(sport,family).
poisk(i1,family,ss).
getsport(sport).
getmesto(ss,i).
clauses

basesport("hokey", ["Ivanov","Petrov","Sidorov"]).
basesport("voley",["kozirev","Alibaba","Vierhov"]).
basesport("palavanie", ["kozlov","abrom","chilov"]).
basesport("prizhki",["orehin","klav","trade"]).

member(X,[X|_]).
member(X,[_|Y]):-member(X,Y).

getsport(S):-basesport(S,L),member(N,L),
write(" Zanimaetsa ", N ," sportom ",S).

poisk(1, [H|_], H).
poisk(X, [_|Y],Z):-X>0,X1=X-1, poisk(X1,Y,Z).

getmesto(S,L):-basesport(S,L1), poisk(2,L1,N), 
write("Mesto",L1,N,S,L).

goal

%getsport("hokey").
getmesto("hokey",3).
%basesport("hokey",[_,X_]),write(hokey).
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Добро пожаловать в раздел "Другие языки" форума Vingrad!

Void
Void

Раздел посвящён различным языкам программирования, для которых (в силу невысокой популярности) нет отдельного раздела (GPSS, Lua, MATLAB, Ada, Forth, Smalltalk, Tcl, REXX, AWK и др.)

  • Обязательно следуйте правилам Форума.
  • Пожалуйста, прочитайте и следуйте рекомендациям по работе в разделе и навигации по Форуму.
  • Для вставки текстов исходных кодов используйте подсветку синтаксиса из выплывающего списка Код в форме ответа. Если Ваш язык в списке не представлен, то используйте тег: [code=ваш_язык]код[/code], например, [code=ada]код[/code]. Если в будущем подсветка синтаксиса для указанного языка будет реализована, исходный код преобразится.
  • Помните, один вопрос - одна тема.

Приятного времяпрепровождения! С уважением, Void, kemiisto .
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Другие языки | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0663 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.