Работа с файлами в Pascal

Работа с файлами в Pascal

Часто в программах на паскаль необходимо загрузить начальную информацию из файла. Это активно используется в математических компьютерных расчётах, компьютерных играх и при работе с данными. Для того, чтобы считывать информацию из файла в программах паскаль, существуют удобные команды работы с файлами
На этом уроке мы разберём, как работать с файлами в pascal. Напишем простой пример, в котором программа считывает данные с одного файла и записывает в другой.
Считывание данных из файла в pascal
Для того, чтобы работать с файлами в pascal, необходимо создать переменную типа text.
var имя файловой переменной : text;
Пример
var f: text;

Далее необходимо связать конкретный файл с данной переменной, это делается с помощью команды
assign(имя файловой переменной,'адрес файла');

Пример

assign(f,'C:\Users\User\Desktop\data.txt');

Чтобы открыть файл, используется команда
reset (имя файловой переменной);
Пример
reset (f);

Для считывания из файла используется команда
readln (имя файловой переменной, переменная);
Пример
readln (f, a);

В конце работы с файлом, его необходимо закрыть командой 
close(имя файловой переменной);
 Пример
close(f);

Пример программы на паскаль, которая считывает информацию из файла и выводит её на экран
var f: text;
var a,b :integer;
begin
assign(f,'C:\Users\User\Desktop\data.txt');
reset (f);
readln (f, a);
readln(f,b);
writeln(a);
writeln(b);
close(f);
end.

Запись информации в файл на pascal

Результаты работы в программе на паскаль можно сохранять в файл и использовать их в дальнейшем. 
Разберём пример записи значений двух переменных в файл.
Чтобы работать с файлами в pascal, нужно создать переменную типа text.
var имя файловой переменной : text;
Пример
var out: text;

После этого надо связать конкретный файл с данной переменной, для этого применим команду
assign(имя файловой переменной,'адрес файла');

Пример

assign(out,'C:\Users\User\Desktop\data.txt');

Чтобы открыть файл и вписать в него информацию, используется команда
rewrite(имя файловой переменной);
Пример
rewrite(out);
Чтобы вписать в файл информацию, применяется команда
writeln(имя файловой переменной,переменная);

Пример
writeln(out,a);

После завершения работы с файлом, его необходимо закрыть командой 
close(имя файловой переменной);
 Пример
close(out);
Пример программы на паскаль, которая записывает в файл информацию
var out:text;
var a,b :integer;
begin 
assign(out,'C:\Users\User\Desktop\out.txt');
rewrite(out);
writeln(out,a);
writeln(out,b);
close(out);
end.

Полный код программы на pascal, которая считывает с файла информацию и записывает в другой
var f: text;
var out:text;
var a,b :integer;
begin
assign(f,'C:\Users\User\Desktop\data.txt');
reset (f);
readln (f, a);
readln(f,b);
writeln(a);
writeln(b);
close(f);
assign(out,'C:\Users\User\Desktop\out.txt');
rewrite(out);
writeln(out,a);
writeln(out,b);
close(out):
end.

Вернуться к содержанию курса Pascal

Поделиться: