Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > 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)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,956
Сказал(а) спасибо: 2
Поблагодарили 303 раз(а) в 303 сообщениях
Регистрация: 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 Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос программ из {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 Настюша Вопросы начинающих программистов 12 11.05.2011 18:42
БД на 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 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов