Вывод в текстовый файл

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

Для организации вывода данных в текстовый файл следует:

• объявить в программе файловую переменную с типом Text;
• связать файловую переменную с файлом внешней памяти с помощью оператора Assign;
• открыть файл для записи с помощью процедуры Rewrite;
• осуществить запись в файл с помощью операторов Write или WriteLn;
• закрыть файл с помощью оператора Close.

Пример 3. Требуется записать в текстовый файл таблицу умножения на 2.

Var A: Integer;

ТМ: Text; {Описание файловой переменной}

Begin

Assign (ТМ, 'E:\TabMul.txt'); {Связывание переменной ТМ с файлом}

Rewrite(ТМ); {Открытие файла для записи} {Циклический вывод в файл таблицы умножения}

For А:=2 То 9 Do WriteLn(ТМ, 2, '*', А, '=', 2*А);

Close(ТМ) {Закрытие файла}

End.

Процедуры открытия файла для записи и запись в файл имеют следующий формат:

Rewrite (<файловая переменная>)

Write (<файловая переменная>, <список вывода>)

WriteLn (<файловая переменная>, <список вывода>)

Если файла с именем, указанным в операторе Assign, на диске не было, то программа его создаст. Если такой файл уже был, то его прежнее содержание будет утеряно и в него запишутся новые данные. В конце выполнения оператора WriteLn выставляется признак EOLN. Оператор Write этого не делает. Закрытие файла приводит к выставлению признака EOF.

В результате выполнения программы в корневом каталоге диска Е появится файл с именем TabMul.txt. Открыв его в текстовом редакторе, увидим:

2*2 = 4
2*3 = 6
2*4 = 8
2*5 = 10
2*6 = 12
2*7 = 14
2*8 = 16
2*9 = 18

IV. Закрепление изученного материала

Домашнее задание Семакин И.Г., Хеннер Е.К., Шеина Т. Ю.Информатика. 10 класс. §27, стр.181, §28, стр.185. Законспектировать правила описания  символьных величин и символьных строк. Сфотографировать конспект и отправить преподавателю на эл.почту valvovk@mail.ru или отправить сообщением в группу Вконтакте https://vk.com/club194179937