Записать из двух файлов в третий строки, которые начинаются на один и тот же символ - Pascal

Узнай цену своей работы

Формулировка задачи:

Задание заключается в том, что нужно записать из двух файлов в третий строки, которые начинаются на один и тот же символ. Но у меня почему-то не записывается.
uses crt;
var f1,f2,f3:text;
a,b:string;
begin
assign(f1,'G:\12\f1.txt');
assign(f2,'G:\12\f2.txt');
assign(f3,'G:\12\f3.txt');
reset(f1);
reset(f2);
rewrite(f3);
while not eof(f1)and eof(f2) do
begin
readln(f1,a);
readln(f2,b);
if a[1]=b[1] then writeln(f3,a,b);
end;
close(f3);
while not eof(f1) do
begin
readln(f1,a);
writeln(a);
end;
readkey;
clrscr;
while not eof(f2) do
begin
readln(f2,a);
writeln(a);
end;
readkey;
clrscr;
reset(f3);
Writeln('Итоговый файл:');
while not eof(f3) do
begin
readln(f3,a);
writeln(a);
end;
close(f1);
close(f2);
close(f3);
end.
1.txt«Симпсоны» (англ. The Simpsons) — самый длинный мультсериал в истории американского телевидения Первая мини-серия Good night была показана в «Шоу Трейси Ульман» 19 апреля 1987 года. Демонстрация полноценных серий мультсериала началась 17 декабря 1989 года на канале FOX. Мультсериал в настоящее время известен телезрителям более чем в 100 странах. Это насыщенное сатирой (в том числе социальной) шоу высмеивает многие клише и стереотипы. особенности мировых культур в целом, знаменитостей и даже само телевидение и телеканал «Fox» не стесняется затрагивать такие скользкие вопросы как политика и религия. Журнал Time в 1998 году назвал Симпсонов лучшим телевизионным сериалом XX века. 27 июля 2007 года в США прошла премьера полнометражного мультфильма с героями сериала, «The Simpsons Movie». На волне успеха сериала было выпущено множество связанной продукции.
2.txt«Гриффины» (англ. Family Guy, дословно «семьянин») — американский анимационный ситком, созданный Сетом Макфарлейном для телекомпании Fox Broadcasting Company. В центре сюжета неблагополучная[2][3] семья Гриффинов, состоящая из родителей, Питера и Лоис, их детей, Криса, Мэг и Стьюи, а также Брайана — антропоморфного пса. Действие ситкома происходит в Куахоге, вымышленном пригороде Провиденса, штат Род-Айленд. Большая часть юмора сериала представлена в форме так называемых врезок, которые зачастую не имеют ничего общего с сюжетом и содержат шутки на различные щепетильные и спорные темы, такие как политика, рабство, инвалидность, феминизм, ожирение и другие. Идея «Гриффинов» пришла Макфарлейну ещё в колледже, но к её реализации он приступил после работы над своими первыми анимационными проектами, «Жизнь Ларри» и «Ларри и Стив». Он переделал главных персонажей этих фильмов, Ларри и его пса Стива, в Питера и Брайана соответственно. 15 мая 1998 года, сняв семиминутный пилотный эпизод, Макфарлейн представил свою идею руководителям телеканала Fox, которые дали проекту зелёный свет и запустили производство сериала. Ситком продержался три сезона, и в 2002 году его закрыли. Но хорошие продажи «Гриффинов» на DVD и высокие рейтинги показов на Adult Swim побудили руководство возобновить шоу в 2004-м.

Решение задачи: «Записать из двух файлов в третий строки, которые начинаются на один и тот же символ»

textual
Листинг программы
  while (not eof(f1)) and (not eof(f2)) do

Объяснение кода листинга программы

  1. Две переменные, которые считывают строки из двух файлов:
    • f1: файл 1
    • f2: файл 2
      1. Условие для цикла while: цикл будет выполняться до тех пор, пока не достигнут конец файла для обоих файлов (eof).
      2. Внутри цикла while выполняется следующая инструкция:
    • Если символ в строке из файла 1 равен символу в строке из файла 2, то выполняется следующая инструкция.
      • Записывается строка из файла 1 в файл 3.
      • Перемещается позиция чтения файла 1 в начало следующей строки.
      • Перемещается позиция чтения файла 2 в начало следующей строки.
    • Если символ в строке из файла 1 не равен символу в строке из файла 2, то выполняется следующая инструкция.
      • Перемещается позиция чтения файла 1 в начало следующей строки.
      • Перемещается позиция чтения файла 2 в начало следующей строки.
        1. Цикл while продолжается до тех пор, пока не будут выполнены условия для остановки (eof).

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы