41. Дозапись данных в файл

Добавление данных в конец уже имеющегося на диске файла широко применяется в практике программирования. По мере того как появляется новая информация, ее необходимо добавить в

конец файла с уже оприходованной информацией. Подобным образом устроены экспертные системы и файлы баз данных. Основой программы (пример из учбеника, программа считывает строки , введенные с клавы, и добавляет их в конец файла) является модуль process_input_output.

process_input_output :-

write("Please enter comlete filename."),

write(" Then press the return key."),nl,

write("The format of the file name is"),

write(" <file name>.<extension>."),nl,nl,

readln(Filename),

nl,write("Start typing in . . . "),nl,

openappend(datafile,Filename),

writedevice(datafile),

readln(Dstring),

concat(Dstring,"\13\10",Cstring),

readin(Dstring,Cstring),

closefile(datafile).

Предикат openappend используется здесь для открытия уже существующего файла с целью дозаписи в него новых данных.

Вспомогательные модули данной программы выводят на экран сообщения, содержащие подсказку для пользователя. Для пояснения работы программы предположим, что мы хотим добавить данные в файл с именем BROWNS.DAT, который содержит строчки___________________________________________________