Сравнить соответствующие строки двух текстовых файлов - Pascal ABC
Формулировка задачи:
Сравните соответствующие строки двух текстовых файлов. Если строки совпали, то запишите эту строку в результирующий текстовый файл. Вывести на экран данные файлы и полученный. Если полученный файл пуст, вывести соответствующее сообщение.
Решение задачи: «Сравнить соответствующие строки двух текстовых файлов»
textual
Листинг программы
Var f1,f2,g:text; s1,s2:string; Begin Assign(f1,'in1.txt');Reset(f1); Assign(f2,'in2.txt');Reset(f2); Assign(g,'out.txt');Reset(g); writeln('Первый файл'); While not Eof(f1) do Begin readln(f1,s1); writeln(s1); End; writeln('Второй файл'); While not Eof(f2) do Begin readln(f2,s1); writeln(s1); End; Close(f1);Close(f2); Reset(f1);Reset(f2); While (not eof(f1))and(not eof(f2)) do Begin readln(f1,s1); readln(f2,s2); if s1=s2 then writeln(g,s2); End; Close(g);Reset(g); if not eof(g) then writeln('Результатирующий файл пуст') else Begin writeln('Результатирующий файл'); While not Eof(g) do Begin readln(g,s1); writeln(s1); End; End; Close(f1);Close(f2);Close(g); End.
Объяснение кода листинга программы
- Создаются три файловых указателя: f1, f2 и g.
- Файловый указатель f1 инициализируется файлом 'in1.txt', а файловый указатель f2 - файлом 'in2.txt'.
- Файловый указатель g инициализируется файлом 'out.txt'.
- Выводится сообщение
Первый файл
и содержимое файла, связанного с f1, выводится на экран построчно. - Выводится сообщение
Второй файл
и содержимое файла, связанного с f2, выводится на экран построчно. - Файловые указатели f1 и f2 закрываются.
- Файловые указатели f1 и f2 сбрасываются.
- Пока оба файловых указателя не указывают на конец файла, происходит следующее: а) считывается строка из файла, связанного с f1, и сохраняется в переменной s1; б) считывается строка из файла, связанного с f2, и сохраняется в переменной s2; в) если s1 равно s2, то s2 записывается в файл, связанный с g.
- Файловый указатель g закрывается.
- Если файловый указатель g не указывает на конец файла, выводится сообщение
Результатирующий файл пуст
. - Если файловый указатель g указывает на конец файла, выводится сообщение
Результатирующий файл
. - Пока файловый указатель g не указывает на конец файла, происходит следующее: а) считывается строка из файла, связанного с g, и сохраняется в переменной s1; б) s1 выводится на экран.
- Файловые указатели f1, f2 и g закрываются.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д