Вопрос 3. Привести пример программы, реализующий repeat -цикл.


Добавил:DMT
Дата создания:30 декабря 2007, 19:20
Дата обновления:30 декабря 2007, 19:20
Просмотров:6683 последний позавчера, 0:31
Комментариев: 5
Вопрос 3. Привести пример программы, реализующий repeat -цикл.
up

Комментарии для "Вопрос 3. Привести пример программы, реализующий repeat -цикл. "


Пользователь: DMT
Сообщений: 123
Статус: Программист
Зарегистрирован:
18 октября 2007, 2:35
Был:13 ноября 2017, 4:54
DMT
smsup 		Дата: 4 января 2008, 14:04 Сообщение № 1
Repeat – цикл.
Цикл, основанный на не завершающемся цикле repeat.
Пример 
Код на Lisp
  1.   
  2.  echo :- repeat, readln( X ), echo( X ), !.  
  3.  echo :- eof( X ), !.  
  4.  echo :- write( X ), nl, fail.  
  5.  repeat.  
  6.  repeat :- repeat.  
  7.  
При использовании обязательна ссылка на http://DMTSoft.ru


Решение цели echo( X ) приводит к неудаче, пока Х – не конец файла. Безуспешное вычисление вызывает возврат к цели repeat, цель выполняется, считывается Х и выводится следующий терм.отсечение в определение echo гарантирует от позднейшего повторения repeat.

В repeat – цикле обязательно должно быть:
а) предикат, гарантировано приводящий к безуспешным вычислениям.
б) отсечение, предохраняющее от бесконечности вычислений, при возврате в цикл.
Пользователь: lilo
Сообщений: 38
Статус: Незримый
Зарегистрирован:
8 января 2008, 12:39
Был:9 апреля 2008, 19:55
lilo
smsup 		Дата: 8 января 2008, 12:50 Сообщение № 2
Код на Lisp
  1. predicates    
  2.    repeat    
  3.    typewriter    
  4. clauses    
  5.    repeat.    
  6.    repeat :- repeat.    
  7.     
  8.    typewriter :-    
  9.       repeat,    
  10.       readchar(C),    
  11.       write(C),    
  12.       char_int(C,13).    
  13. goal typewriter.
При использовании обязательна ссылка на http://DMTSoft.ru
Пользователь: ruslan
Сообщений: 23
Статус: Незримый
Зарегистрирован:
5 января 2008, 2:42
Был:29 января 2008, 21:23
ruslan
smsup 		Дата: 15 января 2008, 0:33 Сообщение № 3
Даю рабочую программу, которая читает файл с помощью repeat-цикла и выводит его содержимое на экран: 

Код на Lisp
  1.   
  2. DOMAINS  
  3.   
  4. FILE = input  
  5.   
  6. PREDICATES  
  7.   
  8. nondeterm repfile(file)  
  9.   
  10. CLAUSES  
  11.   
  12. repfile(_).  
  13. repfile(F) :- not(eof(F)),repfile(F).  
  14.   
  15. GOAL  
  16.   
  17. openread(input,"file.txt"),  
  18. readdevice(input),  
  19. repfile(input),  
  20. readln(L),write(L),nl,fail.  
  21.  
При использовании обязательна ссылка на http://DMTSoft.ru