Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу код из turbo prolog в visual prolog
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
posleg posleg вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 05.02.2011
По умолчанию код из turbo prolog в visual prolog - 11.06.2011, 18:10

не подскажите как будет выглядеть код turbo prolog в Visual Prologe 7.3
turbo prolog:

predicates
for(integer,integer)
vvod
clauses

vvod: -
clearwindow,
write("Vvedite i:="),nl,
readreal(F),
for(F,10).

for(10,10).

for(N,X):- N<=X,

write("op",X),nl,

X1=X-1,

for(N,X1).

Goal vvod.

как я понял он будет выглядеть в Visual Prolog:

implement main
open core, console, math

class predicates
for: (integer,integer) procedure (i,i).
vvod: ().
clauses
vvod() :-
console::clearOutput(),
%clearwindow,
write("Vvedite i:="),nl,
F=stdio::read(),
for(F,10).
for(10,10).
for(N,X1).
stdio::write(X),fail,
X1=X-1,


vvod().
for(N,X):-N<=X.
run():-
console::init(),
vvod(),

stdio::nl.

end implement main

goal
mainExe::run(main::run).
ошибка main.pro(22,6) error c161: Syntax error: '.' is expected
Ответить с цитированием
  (#2 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 8,016
Сказал(а) спасибо: 2
Поблагодарили 316 раз(а) в 316 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 11.06.2011, 18:30

Всё это лажа какая-то и на Visual Prolog пишется по другому. Однако если просто для запуска, то вместо вот этого:
for(N,X1).
stdio::write(X),fail,
X1=X-1,
vvod().
for(N,X):-N<=X.
надо писать примерно так:
for(N,X):- N<=X,
write("op",X),nl,
for(N,X-1).
Ответить с цитированием
  (#3 (permalink)) Старый
posleg posleg вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 05.02.2011
По умолчанию 11.06.2011, 22:20

Уважаемый Винитарх не подскажите ещё разок плиз
implement main
open core, console, math

class predicates
for: (integer,integer) procedure (i,i).
vvod: ().
clauses
vvod():-
console::clearOutput(),
%clearwindow,
write("Vvedite i:="),nl,
F=stdio::read(),
for(F,10).
for(10,10).
for(N,X):- N<=X,
write("op",X),nl,
for(N,X-1).
vvod().

run():-
console::init(),
vvod(),

stdio::nl.

end implement main

goal
mainExe::run(main::run).

main.pro(18,1) error c248: The clauses of the predicate 'vvod/0' are not grouped together
Ответить с цитированием
  (#4 (permalink)) Старый
posleg posleg вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 05.02.2011
По умолчанию 12.06.2011, 12:34

если без vvod(). то main.pro(14,17) error c631: The predicate 'main::for/2 (i,i)', which is declared as 'procedure', is actually 'nondeterm'
for(10,10). - 14 строка
Ответить с цитированием
  (#5 (permalink)) Старый
posleg posleg вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 05.02.2011
По умолчанию 13.06.2011, 00:33

тема закрыта
Ответить с цитированием
Ads.
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
turbo prolog Настюша Вопросы начинающих программистов 13 19.11.2018 18:23
Перенос программ из {TurboProlog.....Visual Prolog 5.2} в Visual Prolog 7 imported_Jenny_ Prolog 30 25.03.2013 19:15
turbo prolog seadevil Prolog 1 29.11.2011 17:48
Экспертная система на pdc prolog или visual prolog Anton7 Prolog 8 12.05.2011 13:39
БД на Turbo Prolog Critically Prolog 2 15.03.2011 02:37
Turbo Prolog Янаа Prolog 0 19.01.2011 00:18
Помогите переделать задачу из Turbo Prolog в Visual Prolog 5 imported_Anneta Prolog 3 23.12.2010 22:59
Turbo Prolog VeRRa Задания за деньги 4 17.11.2009 11:20
Кто возьмется переписать маленькую программу с Turbo Prolog на Visual Prolog 5.0 (за плату) olik567 Prolog 4 07.10.2009 17:46
Кто возьмется переписать маленькую программу с Turbo Prolog на Visual Prolog 5.0 (за плату) Игоревна Задания за деньги 16 04.01.2008 17:20
Отличие SWI-Prolog от Turbo Prolog ndn Prolog 1 25.01.2006 12:47
Как переделать Prolog-D на Turbo-Prolog Anonymous Prolog 19 02.01.2004 20:05



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов