(Учащиеся набирают текст программы на ПК)
Program WriteTextFile;
Var
| t: Text; | |
| Begin | |
| Assign (t, ‘text1.txt’); | |
| Rewrite (t); | |
| Write (t, ‘Мой первый текстовый файл’); | |
| Close (t); |
End.
Убедиться, что файл создан, можно с помощью любого текстового редактора, открыв в нем данный файл.
Примечание.
Файлы, созданные программами MS-DOS, а именно такими программами являются все, написанные в Turbo Pascal, содержат символы в кодировке 866, следовательно, для их просмотра в ОС Windows следует указывать тип файла «Текст MS-DOS».
Задание 1. Создайте в блокноте текстовый файл, запишите в него информацию «Фамилия Имя, класс». Сохраните файл на винчестере (на диске C или D). Составьте программу записи в файл строки «Мы изучаем новую тему». Откройте файл в блокноте и проанализируйте данные, содержащиеся в файле.
Приведем пример чтения информации из файла, созданного предыдущим примером. Считав строку из файла, выведем ее на экран.
Пример 2. Чтение текстового файла
(Учащиеся набирают текст программы на ПК)
Program ReadtextFile;
Uses
Crt;
Var
| T: text; | {описание файловой переменной с именем t для работы с текстовыми файлами} |
| S: string; | {описание строковой переменной, в которую будет производиться чтение из файла} |
| Begin | |
| ClrScr; | |
| Assign(t, ‘text1.txt’); | {сопоставление файловой переменной t файлу с именем text1.txt, находящемуся в текущем каталоге} |
| Reset(t); | {открытие файла, которому сопоставлена переменная t (text1.txt) для чтения} |
| ReadLn(t, s); | {чтение строки из файла в переменную s} |
| WriteLn(s); | {вывод прочитанной строки на экран} |
| Close(t); | {закрытие файла, которому сопоставлена переменная t (text1.txt) для чтения} |
ReadKey;
End.
Задание 2. По аналогии с примером 2 напишите программу чтения информации из созданного вами файла в задании 1 и вывода этой информации на экран.
Задание 3. Напишите программу создания файла в текущем каталоге и записи в него 5 одинаковых строк.
Задание 4. Напишите программу создания файла на жестком диске и записи в него одной и той же строки столько раз пока пользователь не введет число 0.
Добавление информации в текстовый файл
Для текстовых файлов предусмотрена возможность добавления информации в их конец. Для этого следует открывать файл не процедурой ReWrite, а процедурой Append (от англ. Append – добавить).
Append (<файловая переменная>);
После вызова данной процедуры файл открывается для записи, но информация в нем не стирается, как в случае использования процедуры ReWrite. Указатель текущего элемента автоматически перемещается в конец файла, куда и будет дописываться выводимая информация.
Допишем к файлу, созданному в программе WriteTextFile, еще одну строку: «Состоит из двух строк»
Program WriteTextFile2;
Var
| t: Text; | |
| Begin | |
| Assign (t, ‘text1.txt’); | |
| Append (t); | {Открытие файла для добавления информации} |
| Write(t, ‘Состоит из двух строк’); | |
| Close (t); |
End.
Задание 5. Напишите программу создание файла в текущем каталоге и записи в него строки, содержащей ФИО вашего классного руководителя. Закройте файл. Добавьте в созданный вами файл информацию о том, какой предмет преподает ваш классный руководитель.
Задание 6. Напишите программу нахождения суммы цифр числа, введенного с клавиатуры. Результат запишите в файл в виде:
Суммы цифр числа =
Задание 7. Напишите программу нахождения факториала числа, записанного в файле. В этот же файл запишите промежуточные результаты вычисления и значение факториала числа.
Определение размера текстового файла
Все приведённые выше программы читали информацию из файла, основываясь на некотором жестком формате, задаваемым методом создания этого файла. Однако программа не всегда располагает информацией о количестве единиц информации, которые должны содержаться в файле.
Например, одна программа производит измерения температуры и записывает их в файл. Затем другая программа должна прочитать этот файл и вычислить среднюю температуру. При разработке второй программы не известно, сколько измерений записано в файле, известен только тип данных, который используется для записи каждого измерения в файл.
Напишем программу, которая вначале своей работы будет запрашивать у пользователя количество измерений. Затем пользователю должно быть предложено ввести заданное количество чисел, которые будут записываться в файл. Для хранения чисел будем использовать текстовый файл, в каждой строке которого будет располагаться одно число.