Практическая часть

Задачи для самостоятельного решения:

1. Создать на диске С:\ текстовый файл (file.txt). Записать в этот файл небольшую информацию.

2. Составить полную цепочку команд текстового файла. Имя вводится с клавиатуры.

3. Создать файл в папке Bin. Переименовать этот файл. Имя создаваемого файла и имя нового файла вводятся с клавиатуры.

4. Проверить существует ли файл с именем fil.doc на диске.

5. Создать файл и записать в него фразу «Здравствуй мир!»

6. Создать текстовый файл (расширение .txt) и записать в него пять одинаковых строк.

7. Есть текстовый файл (из предыдущего задания), дописать в него 6 одинаковых строк.

8. В конец существующего текстового файла записать новую строку с текстом «До свидания, люди!».

9. Дан массив строк. Записать их в файл, расположив каждый элемент массива на отдельной строке с сохранением порядка.

10. Дан текстовый файл, состоящий из первых десяти натуральных чисел. Вывести на экран первых пять.

11. Удалите некоторый файл.

12. Имеется текстовый файл. Напечатать его первую строку.

13. Имеется текстовый файл. Напечатать его некоторую строку.

14. Дан текстовый файл (расширение .txt) посчитать количество символов в нем.

15. Дан текстовый файл (расширение .txt) посчитать количество строк в нем.

16. Дан текстовый файл (расширение .txt) посчитать количество символов в каждой строке.

17. Создать типизированный файл и записать в него число 500

18. Создать типизированный файл и записать в него число 4,5

19. Создать типизированный файл и записать в него слово «Привет»

20. Создать типизированный файл и записать в него 5 одинаковых целых чисел

21. Создать типизированный файл и записать в него 5 одинаковых вещественных чисел

22. Создать типизированный файл и записать в него 5 одинаковых слов

23. Создать типизированный файл и записать в него числа 10, 12, …,16

24. Создать типизированный файл и записать в него 7 целых чисел

25. Создать типизированный файл и записать в него 4 вещественных числа

26. Создать типизированный файл и записать в него 5 слов

Контрольные вопросы.

1. Верно ли, что элементы файла могут быть только одного типа?

2. Можно ли сравнивать файлы или присваивать один другому?

3. Установите, возможны ли приведенные ниже объявления файлов:

1) type WordFile=file of word;

   var MyFile : WordFile;

2) var MyFile : file of Word.

12.10. Установите, какая задача решается программой

var FileName : string; {имя файла}

Fvar :fileofchar; {переменная файлового типа}

Letter :char; {читаемый из файла символ}

begin write('Введите имя файла ');

readln(FileName);

assign(Fvar,FileName);

{$I-} {отключен автоматический контроль ввода/вывода}

reset(FVar);

{$I+} {включен автоматический контроль ввода/вывода}

if ioresult<>0

then begin writeln('Неоткрытфайл ',FileName); Halt end;

while not eof(Fvar) do

begin read(Fvar,Letter);

Letter:=upcase(Letter);

seek(Fvar,filepos(Fvar)-1);

write(Fvar,Letter)

end;

close(Fvar)

end.

Практическое занятие №20 Использование стандартных процедур и функций для работы с файлами.

Цель работы: научиться использовать стандартных процедур и функций для работы с файлами.

Теоретическая часть

Текстовые файлы.

Текстовый файл можно рассматривать как последовательность символов разбитую на строки длиной от 0 до 256 символов.

Описание:

var

f: text;

Для текстовых файлов существует специальный вид чтения и записи (read, write).

Открытие текстового файла.

• rewrite(f); - открыт для записи

• reset(f); - открыт для чтения

• append(f); - открывает уже существующий файл и позиционирует указатель обработки на конец файла. После такого открытия текстовый файл можно только дополнить информацией, начиная с конца строки.

Процедуры и функции обработки текстовых файлов.

1. read(f,v1,[v2..vn]) – считывает одно или более значений из текстового файла в одну или более переменных, если переменные v1,[v2..vn] – строкового типа, то считывается строка или символы, если v1 – целого типа приведет к считыванию последовательности цифр, которая затем интерпретируется в число, значение которого будет присвоено переменной v1. В случае если вместо последовательности цифр идет любая другая последовательность символов выдается сообщение об ошибке;

2. readln(f,v1,[v2..vn]) – выполняет те же действия, что и предыдущая процедура, а затем делает пропуск до начала следующей строки файла;

3. write(f,v1,[v2..vn]) – записывает в текстовый файл одно или более значений;

4. writeln(f,v1,[v2..vn]) - выполняет те же действия, что и предыдущая процедура, а затем добавляет к файлу метку конца строки.

5. eoln(f); - логическая процедура, возвращает для файла состояния конца строки;

6. eof(f); - логическая процедура, возвращает для файла состояния конца файла;

7. seekeof(f); - логическая процедура, возвращает для файла состояния конца файла;

8. seekeoln(f); - логическая процедура, возвращает для файла состояния конца строки, причем указатель файла пропускает все пробелы и знаки табуляции, предшествующие маркеру.