Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ Пролог

Автор: Fanat 18.05.2007 0:34

Код

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 тоже не работают...

Автор: Fanat 18.05.2007 20:31

Проблема решена. blum.gif