Паскаль на школе. Работа с текстовыми файламиx

Работа с файлами.
Текстовые файлы – это файлы, которые состоят из любых символов. Они
организуются по строкам, каждая из которых заканчивается символом
конец строки.
Обозначение: eoln (End Of Line).
Для начала работы с файлом необходимо связать файловую переменную в
программе с файлом на диске.
Для этого используется процедура:
assign(A,B)
А - Имя файловой переменной
B – полное имя файла на диске.
Файловая переменная должна быть описана в обычном разделе описаний.
A: text
Пример:
Var
A: text;
Begin
assign(A,’info.txt’);
Создание текстового файла
Для создания нового файла либо для коррекции уже имеющегося
необходимо воспользоваться процедурой
Rewrite.
Для записи информации применяются 2 процедуры:
Write – для записи символов
Writeln – для записи строк
После действий с файлом его следует закрыть, для чего предназначена
процедура close(A),
где А – имя файловой переменной.
Пример: создание текстового файла и внесение в него данных.
program primer;
var
A: text;
S: string;
I: integer;
begin
assign(A,'prim1.txt');
rewrite(A);
for I:=1 to 3 do
begin
writeln('Введите строку');
readln(S);
writeln(A,S);
end;
close(A);
end.
Чтение из файла
Возможна ситуация, когда нам требуется открыть имеющийся файл для
чтения данных.
Для этого после создания файловой переменной следует воспользоваться
процедурой: reset(A).
Для чтения строк из файла необходимо воспользоваться процедурой
readln(A,S)
где А – имя файловой переменной,
S – переменная строкового типа.
В процессе работы с файлом требуется использовать еще одну функцию
EOF(A).
Данная функция возвращает одно из двух значений:
 True, если достигнут конец файла.
 False, еще не достигнут конец файла
Пример: чтение текстового файла и вывод информации на экран.
Program primer;
var
A: text;
S: string;
begin
assign(A,'prim1.txt');
reset(A);
while not eof(A) do
begin
readln(A,S);
writeln(S);
end;
close(A);
end.
Процедуры для работы с текстовым файлом.
Erase(A) - удаляет неоткрытый файл, задаваемый файловой переменной А.
Rename(A,B) - переименовывает файл, задаваемый файловой переменной А,
в файл с именем В.
Append(A) – открывает имеющийся файл для его дополнения. В этом случае
указатель ставится не в начало, а в конец файла, куда будут дописываться
новые компоненты.
Практические работы
Задача 1. Создать текстовый файл из 4 строк и записать в него фамилию, имя,
отчество и год рождения.
Задача 2. Прочитать созданный текстовый файл и вывести информацию на
экран.
Задача 3. Создать текстовый файл из 3 строк, при этом в первой строке
должна быть буква А и код буквы, во второй В и код буквы, в третьей С и код
буквы (буквы не вводим).
Задача 4. Создать текстовый файл из 5 строк, при этом в первой строке
должна быть буква А, во второй В, в третьей С и т. д. в соответствии с
последовательностью букв в английском алфавите (буквы получаем
используя код ы).
Задача 5. Создать текстовый файл из 20 строк, при этом в первой строке
должна быть одна буква А, во второй две буквы В, в третьей 3 буквы С и т.
д. в соответствии с последовательностью букв в английском алфавите (буквы
получаем используя коды).
Задача 6. Имеем созданный текстовый файл с набором строк. Необходимо
создать другой файл с теми же строками.
Задача 7. Подсчитать число строк в созданном файле.
Задача 8 В новом файле в начале каждой строки поставить её порядковый
номер. При этом следует в новом файле отделить пробелом номер строки и
содержание самой строки.
Задача 9. Подсчитать число строк, которые начинаются с цифры.
Задача10. Записать в текстовый файл и вывести на экран монитора таблицу
умножения на 2 в виде:
2х2=4
2х3=6
2 х 4 = 8 и т.д. Вывод циклический (от 2 до 9), произведение
считаем.
Задача 11. Напишите программу, по которой из текстового файла будут
прочитаны 3 числа: а, в, с – коэффициенты квадратного уравнения, затем
будут вычислены корни этого уравнения. Выведите результаты на экран и в
текстовый файл.
Задача12. Составить программу, которая подсчитывает количество цифр,
которые предшествуют первому символу ‘!’. Данные читаем из текстового
файла. Результат выводим на экран монитора.
Задача13. Составить программу, которая удаляет все цифры, которые
встречаются в строке.
Данные читаем из текстового файла. Полученную строку вывести в другой
текстовый файл
Задача 14. Имеем созданный текстовый файл с набором строк(файл1).
Необходимо произвести замену первого и второго символа в каждой строке
(первый символ меняется местами со вторым) и записать полученные
строки в другой файл(файл2). Файл1 удалить.
Задача 15. . Имеем созданный текстовый файл с набором строк. Допишите в
конец файла общее число содержащихся в нем строк, а также количество
строк, начинающихся с пробела.
Задача 16 Выведите собственный текст программы на экран.
Задача 17. Имеем созданный текстовый файл, который состоит из целых
положительных чисел. Найти и вывести на экран, максимальное число,
содержащееся в этом файле.