IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным. В описании темы указываем язык!!!

> Пролог
Fanat
сообщение 17.05.2007 20:34
Сообщение #1


Fanat
***

Группа: Пользователи
Сообщений: 261
Пол: Мужской
Реальное имя: Сергей

Репутация: -  5  +


Код

domains
list=integer*.
list2=char*.
FILE=infile.
predicates
vvod(symbol,list).
read(list).
clauses
vvod(N,L):-existfile(N),
openread(infile,N),
readdevice(infile),writedevice(screen),
read(L),closefile(infile),readdevice(stdin),!.
read(L):-readchar(X),write(X),//<---Вот тут.
          read(L1),L=[X|L1].          
read([]).


Вот код программы на прологе...если в выделенном месте заменить на readint то перестаёт читать из файла...
при vvod("файл.txt",L) хочеться получить в L список integer. Пробовал readreal,char_int тоже не работают...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Fanat   Пролог   17.05.2007 20:34
Fanat   Проблема решена. :blum:   18.05.2007 16:31


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 24.07.2025 17:37
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"