Основы программирования на языке Turbo Pascal. Беляева И.В. - 184 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

184
Кроме процедур read и write при работе с текстовыми файлами
используются их разновидности readln и writeln. Отличие заключается в
том, что процедура writeln после записи заданного списка записывает в
файл специальный маркер конца строки. Этот признак воспринимается
как переход к новой строке. Процедура readln после считывания заданного
списка ищет в файле следующий признак конца строки и
подготавливается
к чтению с начала следующей строки.
Program primer;
Var f1,f2:text;
I,n: integer;
S: string;
Begin
{формируем первый файл}
Assign(f1, ‘file1.txt’); {устанавливаем связь файловой переменной с физическим
файлом на диске}
Rewrite(f1);{открываем файл для записи}
Readln(n) {определим количество вводимых строк}
for i:=1 to n do
begin
readln(s); {вводим с клавиатуры строки}
writeln(f1,s); {записываем последовательно строки в файл}
end;
close(f1); {заканчиваем работу с первым файлом, теперь на диске существует
файл с именем file1.txt, содержащий введенные нами строки. На этом программу
можно закончить, работу с файлом можно продолжить в другой программе, в другое
время, но мы продолжим}
{часть вторая: чтение из первого файла и формирование второго}
Reset(f1); {открываем первый файл для чтения}
Assign(f2, ‘file2.txt’); {устанавливаем связь второй файловой переменной с
физическим файлом}
Rewrite(f2); {открываем второй файл для записи}
{Дальше необходимо последовательно считывать строки из первого файла,
проверять выполнение условия и записывать нужные строки во второй файл. Для

Страницы