найти ошибку в задаче!

[dark999]

Условие:

Даны 2 текстовых файла. Записать в третий только те строки, которые есть и в первом и во втором файлах.


Код программы:

Program lab8;
uses crt;
var
f,f1,f2:text;
s,s1:String;
begin
clrscr;
  Assign(f,'D:\222.txt');
  reset(f);
  Assign(f1,'D:\333.txt');
  reset(f1);
  Assign(f2,'D:\444.txt');
  rewrite(f2);
  while(not eof(f))do
  begin
     readln(f,s);
     writeln(s);
     reset(f1);
     while(not eof(f1))do
     begin
       readln(f1,s1);
       if s = s1 then
   {  writeln(s1);}
     end;
    Close(f1);
  end;
  Close(f2);
  Close(f);
  readln;
  readkey;
end.

Откладка:

Выводит только те строки, которые есть в первом файле!

[phomm]

бррр, ну, собственно, он их и выводит: writeln(s); а вывод одинаковой строки у вас закомментен, как это, кстати, так компилится... ведь получается что end сразу после then , и вывода в 3 файл не вижу.

также думаю первый reset(f1); можно убрать, всё равно ведь в цике его делаете

[dark999]

напиши правильный код пожалуйста, с исправленными ошибками который ты нашел



Хотя я уже САМ додумался, спасибо

[BoozZzilla]

что САМ додумался ты молодец

[black_prog]

Сейчас нет паскаля под рукой, но смысл таков.
Из первого файла читаем первое слово (не знаю что там у вас), а после мы начинаем перебирать второй файл и если слова = тогда сделать запись во второй файл. Поробую поправить но могу допустить ошибки.

Program lab8;
uses crt;
var
f,f1,f2:text;
s,s1:String;
begin
clrscr;
  Assign(f,'D:\222.txt');
  reset(f);
  Assign(f1,'D:\333.txt');
  reset(f1);
  Assign(f2,'D:\444.txt');
  rewrite(f2);
  while(not eof(f))do
  begin
     readln(f,s);
     while(not eof(f1))do
     begin
       readln(f1,s1);
       if s = s1 then
                         begin
                                write (f2, s);
                         end;

     end;
    Close(f1);
  end;
  Close(f2);
  Close(f);
  readln;
  readkey;
end.