Файлы
Автор: Ana7 • Сентябрь 29, 2018 • Лабораторная работа • 352 Слов (2 Страниц) • 329 Просмотры
ЛАБОРАТОРНАЯ РАБОТА № 6
Файлы
Цель работы: знакомство с основными принципами организации обмена с внешней памятью средствами языка Паскаль на примере текстовых и типизированных файлов.
Задание: дано слово. Удалить из него все повторяющиеся буквы, оставив их первые вхождения, то есть в слове должны остаться только различные буквы.
Способ решения: пользователь вводит название файла , к которому добавляется расширение *.txt. Если такого файла не существует, то программа выводит сообщение «Файл с таким именем не найден» и закрывается. Если файл найден, то он связывается с файловой переменной. Файл открывается в режиме «для чтения» и из файла в переменную считывается исходная строка. Файл закрывается. Выводится исходная строка. Переменная, в которой будет формироваться результирующая строка, изначально пустая. Её заполнение происходит в цикле. Количество раз, равное длине строки, переменной типа char присваивается значение i-го символа исходной строки. Проверяется условие – входит ли этот символ в результирующую строку или нет. Если нет – то этот символ прибавляется к результирующей строке, если да – ничего не происходит и цикл идёт дальше. После выполнения цикла выводится результирующая строка.
Описание алгоритма:
[pic 1]
Описание программы:
Переменная | Тип | Описание |
f | text | Файловая переменная |
s | string | Имя файла, исходная строка |
i | byte | Номер позиции символа в строке |
m | string | Переменная, в которой формируется результирующая строка |
с | char | Переменная, которой присваивается значение i-го символа строки s |
Пользователь вводит название файла
read(s);
К названию добавляется расширение *.txt
s:=s+'.txt';
Если такого файла не существует
if not fileexists(s)
то программа выводит сообщение «Файл с таким именем не найден»
then
...