Делается это в простейшем случае так:
В разделе описания программы пишем: f,f1:text {т.е. "говорим" Паскалю что будем использовать текстовые файлы}
В теле самой программы после бегина: assign(f,'input.txt')
assign(f1,'output.txt') {т.е. говорим что под переменными f и f1 теперь будет скрываться файл с данными для ввода и файл для вывода}
далее по обстоятельствам
reset(f) {если хотим что-ть из файла считать то открываем его для чтения, read(f,x) после чего вводим данные Х из этого файла }
rewrite(f1) {если хотим что-ть в файл записать то открываем его для записи, write(f1,x) после чего выводим данные Х в этот файл }
Ну и напоследок close(f)
close(f1) {закрываем файл}
В итоге, например, программа которая считывала бы 2 числа записанных в строчку через пробел из файла input.txt считала бы их сумму и записывала ее в файл output.txt выглядела бы так:
program p1; var a,b,c:byte;f1,f2:text;
begin assign(f1,'input.txt'); reset(f1); assign(f2,'output.txt'); rewrite(f2);
read(f1,a,b); c:=a+b; write(f2,c);
close(f1); close(f2); end.
Подробнее о файлах можно почитать в учебнике или ЗДЕСЬ. В 3й четверти затрону эту тему и на уроках?.
|