Читайте также:
|
Программы для обработки файлов.
Принято включать в программу модули, которые
при работе с программой оказывают пользователю посильную помощь. Обычно эти модули предоставляют возможность работать с меню, а также выдают информационные сообщения. Они могут также включать еще некоторые полезные средства в дополнение к этим основным, например, давать пользователю время подумать над тем, какие данные ему вводить.
Запись данных в файл
Программа "Ввод данных" (пример программы из учебника) является примером "дружески настроенной по отношению к пользователю" программы, осуществляющей запись в файл вводимых с клавиатуры данных.
"Ввод данных" содержит несколько вспомогательных модулей для информирования пользователя
Первый и последний из модулей второго уровня снабжают пользователя необходимой ему информацией.
В программе есть сообщ., поясняющее, как ей пользоваться., сообщение об окончании работы программы и о том, что она проделала.
Каждый из модулей отвечает за выполнение вполне определенного задания; общим для них является то, что все они дают пользователю необходимую информацию о своей работе.
Назначение check_for_ready состоит в проверке готовности пользователя к диалогу с программой.
check_for_ready:-
write("PLEASE PRESS SPACE BAR WHEN"),
write(" YOU ARE READY TO BEGIN."),nl,
Нужно говорить об удобствах использования программ, и всяких фишках для диалога с пользователем.
Дозапись данных в файл
Добавление данных в конец уже имеющегося на диске файла широко применяется в практике программирования. По мере того как появляется новая информация, ее необходимо добавить в
конец файла с уже оприходованной информацией. Подобным образом устроены экспертные системы и файлы баз данных. Основой программы (пример из учбеника, программа считывает строки, введенные с клавы, и добавляет их в конец файла) является модуль 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, который содержит строчки___________________________________________________
Дата добавления: 2015-01-30; просмотров: 89 | Поможем написать вашу работу | Нарушение авторских прав |