- Просмотров: 3213
- Комментариев: 0
- Подписаться на обновления
- Печатать
- Поделиться
Pascal: Чтение и запись данных в файл
Ввод мы будем осуществлять из файла input.txt
Вывод будем производить в файл output.txt
Начнем!
Для того, чтобы организовать ввод данных из файла нам надо:
1. Завести переменную типа текст и переменную в которую будем записывать прочитанное значение.
Var t:text; a:integer;2. Связать эту текстовую переменную с файлом из которого будет производиться чтение.
Begin
assign(t,'input.txt');
3. Открыть файл для чтения.
reset(t);
4. Теперь можно читать данные. Тут нужно понимать и помнить отличия процедуры read, от readln. Если в файле данные записаны в одной строке, через пробел, то мы пользуемся все время процедурой read столько раз, сколько чисел нужно прочитать.
Если же строк несколько, то когда доходим до символа стоящего в конце строки, используем readln. В результате чего будет считано последнее число строки и курсор переместится на новую.
read(t,a);
Внимание! Для чтения из файла в скобках необходимо на первом месте указать ту текстовую переменную которую Вы связали с входным файлом, затем список переменных для чтения.
Самой распространенной ошибкой является то что забывают ставить эту переменную (текстовую).
5. Как только мы прочитали все переменные необходимо закрыть файл.
close(t);
Внимание! Процедура close освобождает переменную t и мы можем её использовать в других целях, например для вывода данных. Если мы её не закрыли (нужно продолжать чтение), то для вывода необходимо будет завести еще одну текстовую переменную.
Все! На этом ввод окончен.
Опишем процесс вывода результатов в текстовый файл.
1. Опять как и в случае с вводом, необходимо связать текстовую переменную с выходным файлом. Файл называем output.txt.
assign(t,'output.txt');
2. Затем необходимо создать или перезаписать файл output.txt
rewrite(t);
3. Выводим данные. Не забываем ставить файловую переменную в начале списка вывода.
write(t,'Вот число из файла input.txt ', a);
4. Как и в предидущем случае после вывода всех данных необходимо закрыть файл.
close(t);
Запишем программу целиком.
Program Vvod_Vivod;
var
a:longint;
t:text;
Begin
assign(t,'input.txt');
reset(t);
read(t,a);
close(t);
assign (t,'output.txt');
rewrite(t);
write(t,a);
close(t);
End.
Редактировалось Дата: