![]() |
1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!
![]() ![]() |
![]() |
Fanat |
![]()
Сообщение
#1
|
![]() Fanat ![]() ![]() ![]() Группа: Пользователи Сообщений: 261 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Код 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 |
![]()
Сообщение
#2
|
![]() Fanat ![]() ![]() ![]() Группа: Пользователи Сообщений: 261 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Проблема решена.
![]() |
![]() ![]() |
![]() |
Текстовая версия | 18.06.2025 22:23 |