Нахождение одинаковых строк в двух файлах и вывод результата в третий файл - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста.
Есть два тестовых файла, которые содержат строки (файлы большие, по 60k строк в каждом).
Задача сравнить эти два этих файла и найти одинаковые строки и вывести эти строки в третий файл, который программа будет создавать.
Структура файла такова, что все строки имеют фиксированную длину (41 символ).
Пример:
В конце программы нужно вывести на экран количество одинаковых строк, которые были найдены программой, иначе написать "Не найдено"
Что у меня получилось:
Спойлер
Перебор q1 и q2 сейчас сделан по фактическому количеству строк в тестовых файлах, в идеале нужен EOF, но с ним программа вообще отказывалась запускаться.
Подскажите пожалуйста, где я ошибся?
Если что самый похожий вариант
Переписать в третий файл только те строчки, которые есть и в первом, и во втором файлах.
уже был испробован - в файл результата не выводится ни одной строки.
Решение задачи: «Нахождение одинаковых строк в двух файлах и вывод результата в третий файл»
textual
Листинг программы
while s[Length(s)] in [#9,' '] do Delete(s,Length(s),1);
Объяснение кода листинга программы
- В цикле while происходит проверка условия s[Length(s)] in [#9,' ']. Это условие означает, что текущая строка (s) содержит последний символ ('#9') и пробел (' '). Если это условие выполняется, то происходит удаление последнего символа из строки s.
- Далее следует команда Delete(s,Length(s),1), которая удаляет последний символ из строки s. Здесь Length(s) используется для определения длины строки s.
- Затем происходит выход из цикла while с помощью оператора break.
- После выхода из цикла while происходит переход к следующей итерации цикла, при этом переменная s обновляется, чтобы содержать обрезанную строку.
- Цикл повторяется до тех пор, пока условие s[Length(s)] in [#9,' '] не станет ложным. Это означает, что в строке s больше нет символов '#9' и пробела.
- После завершения цикла while происходит переход к следующему оператору, который будет выполнен.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д