Сравнить два файла с точностью до слов, Помогите Опции

[FENIX]

Боюсь (знаю, что нарушаю - извините ) праведного гнева модераторов, но мне СРОЧНО нужно сделать эту лабу...
Она - последняя, и если я завтра ее сдам, поставят зачет, а вот если не сдам - начнется геморрой и т.п.
Самое смешное - друг мне помог, и я ее сделал, используя массивы. Но в чертовой методичке указано, что все слова строки хранить в массиве нельзя - можно только отдельные. Как быть?

А задача вот какая:
сравнить два файла с точностью до слов (без учета неотображаемых символов и пробелов между словами). Совпадающие слова вывести в третий файл, несовпадающие слова в четвертый, а их количества на экран.

Вот текст проги, который есть на данный момент (которая работает, но могут быть траблы при сдаче):

Код

Program Lab;
var f1,f2,f3,f4 : text;
st, nd : array[1..100] of string[20];
i, j, k : byte;
maxa, maxb : byte;
ch : char;

BEGIN
i:=1;
assign(f1,'File_1.txt');
reset(f1);

While not EOF(f1) do
begin
  read(f1,ch);
  if (ch <> #13) and (ch <> ' ') then
  begin
     if ch<>#10 then
     st[i]:=st[i]+ch
  end
  else if st[i]<>'' then
  begin
     maxa:=i;
     inc(i);
  end;
end;

If (ch<>#13) and (ch<>' ') and (ch<>#10) then maxa:=i;
close(f1);
i:=1;
assign(f2,'File_2.txt');
reset(f2);

While not EOF(f2) do
begin
  read(f2,ch);
  if (ch<>#13) and (ch<>' ') then
  begin
     if ch<>#10 then
     nd[i]:=nd[i]+ch
  end
  else if nd[i]<>'' then
  begin
     maxb:=i;
     inc(i);
  end;
end;
If (ch<>#13) and (ch<>' ') and (ch<>#10) then maxb:=i;
close(f2);

For i:=1 to maxa do
For j:=i to maxa do
If (j<>i) and (st[i]=st[j]) then st[j]:='';

For i:=1 to maxb do
For j:=i to maxb do
If (j<>i) and (nd[i]=nd[j]) then nd[j]:='';
assign(f3,'File_3.txt');
rewrite(f3);
ch:=' ';
For i:=1 to maxa do
For j:=1 to maxb do
If (st[i]=nd[j]) and (st[i]<>'') then
begin
  for k:=1 to length(st[i]) do
  write(f3,st[i][k]);
  write(f3,ch);
  st[i]:='';
  nd[j]:='';
end;
close(f3);
assign(f4,'File_4.txt');
rewrite(f4);
For i:=1 to maxa do
if st[i]<>'' then
begin
  for k:=1 to length(st[i]) do
  write(f4,st[i][k]);
  write(f4,ch);
end;
For i:=1 to maxb do
if nd[i]<>'' then
begin
  for k:=1 to length(nd[i]) do
  write(f4,nd[i][k]);
  write(f4,ch);
end;
close(f4);
END.

[volvo]

FENIX
По-моему, сравнение надо делать вот так:

Код

Program Lab;
uses crt;

type
 char_file = file of char;
const
 first_file  = '01.txt';
 second_file = '02.txt';
 third_file  = '03.txt';
 fourth_file = '04.txt';


function get_word(var f: char_file): string;
 const
   chars = ['A' .. 'Z', '0' .. '9']; {добавь сюда еще символы которые могут входить в слова}
 var
   s: string;
   ch: char;
   more: boolean;
 begin
   get_word := '';

   s := ''; more := true;
   while (not eof(f)) and more do
     begin
       read(f, ch);
       if upcase(ch) in chars
         then s := s + ch
       else
         if s <> '' then
           more := not more
     end;
   get_word := s;
 end;

function write_file(var f: text; s: string): byte;
 begin
   writeln(f, s);
   write_file := 1
 end;


var f_first, f_second: char_file;
   f_third, f_fourth: text;
   yes_count, no_count: integer;
   s_one, s_two: string;

BEGIN
 assign(f_first, first_file);
 reset(f_first);

 assign(f_second, second_file);
 reset(f_second);

 assign(f_third, third_file);
 rewrite(f_third);
 assign(f_fourth, fourth_file);
 rewrite(f_fourth);

 yes_count := 0;
 no_count := 0;

 while not(eof(f_first)) or not(eof(f_second)) do
   begin
     s_one := get_word(f_first); s_two := get_word(f_second);
     if s_one = s_two then
       inc(yes_count, write_file(f_third, s_one))
     else
       inc(no_count, write_file(f_fourth, s_one + ' ' + s_two))
   end;

 if eof(f_first) then
   while not eof(f_second) do
     inc(no_count, write_file(f_third, get_word(f_second)))
 else
   while not eof(f_first) do
     inc(no_count, write_file(f_third, get_word(f_first)));

 writeln('совпадающих слов: ', yes_count);
 writeln('несовпадающих слов: ', no_count);

 close(f_fourth);
 close(f_third);
 close(f_second);
 close(f_first)
END.

[FENIX]

2 volvo
Хм...
Программа че-то не работает правильно.

Пример 1-го файла:
Tomorrow I will go to the ULSU

2-ой файл:
Tomorrow I will not go to the ULSTU because I want sleep

3-ий файл:
Tomorrow I will ,

а не "Tomorrow I will go to the", как должно быть.

Да, кстати, мы работаем с текстовыми файлами.

Сообщение отредактировано: FENIX - 22.12.2004 21:57

[volvo]

FENIX
Проверь:

Код

Program Lab;
uses crt;

type
 char_file = file of char;
const
 first_file:string  = '02345.txt';
 second_file:string = '02346.txt';
 third_file  = '03.txt';
 fourth_file = '04.txt';


function get_word(var f: char_file): string;
 const
   chars = ['A' .. 'Z', '0' .. '9'];
 var
   s: string;
   ch: char;
   more: boolean;
 begin
   get_word := '';

   s := ''; more := true;
   while (not eof(f)) and more do
     begin
       read(f, ch);
       if upcase(ch) in chars
         then s := s + ch
       else
         if s <> '' then
           more := not more
     end;
   get_word := s;
 end;

function write_file(var f: text; s: string): byte;
 begin
   write(f, s + ' ');
   write_file := 1
 end;


var f_first, f_second: char_file;
   f_third, f_fourth: text;
   yes_count, no_count: integer;
   s_one, s_two: string;

   exists: boolean;
   sz_1, sz_2: longint;

BEGIN
 assign(f_first, first_file);
 reset(f_first); sz_1 := filesize(f_first);

 assign(f_second, second_file);
 reset(f_second); sz_2 := filesize(f_second);

 if sz_1 < sz_2 then
   begin
     close(f_first);
     close(f_second);

     assign(f_first, second_file); reset(f_first);
     assign(f_second, first_file); reset(f_second);
   end;

 assign(f_third, third_file);
 rewrite(f_third);
 assign(f_fourth, fourth_file);
 rewrite(f_fourth);

 yes_count := 0;
 no_count := 0;

 while not eof(f_first) do
   begin
     s_one := get_word(f_first);
     reset(f_second); exists := false;

     while (not eof(f_second)) and (not exists) do
       begin
         s_two := get_word(f_second);
         exists := (s_one = s_two);
       end;

     if exists then
       inc(yes_count, write_file(f_third, s_one))
     else
       inc(no_count, write_file(f_fourth, s_one))

   end;

 writeln('совпадающих слов: ', yes_count);
 writeln('несовпадающих слов: ', no_count);

 close(f_fourth);
 close(f_third);
 close(f_second);
 close(f_first)
END.

[FENIX]

Я поизвращался со словами в файлах, и программа работает неправильно.
По-моему, ошибка уже в алгоритме проги.
ИМХО, слова должны сравниваться так - первое слово из 1-го файла со всеми из 2-го и т.д. Плюс, если слова повторяются, то они в 3-ий файл должны быть записаны один раз, а не столько, сколько встречаются.
А тут получаются пары - первое с первым, второе со вторым и т.п.
Может ты попробуешь разделять строку из файла на слова методом, вроде этого:

Код

While no eof(f)
begin
readln(f,st);
st:= st + ' ';
for i := 1 to length(st) do
if st[i] <> ' '
then buf:=buf+st[i]

и т.д.

Что-то похожее нам показывали в универе.

Сообщение отредактировано: volvo - 23.12.2004 0:07

[volvo]

FENIX
Тест свой приведи... Я все-таки программу отлаживаю перед тем, как запостить...

Может ты попробуешь разделять строку из файла на слова методом, вроде этого:

А может ты сам попробуешь? Разобраться в алгоритме... Я читаю данные из файла Словами, а не строками. Я же не знаю твоих требований - что есть на входе, что должно быть на выходе, все вслепую...

[volvo]

ИМХО, слова должны сравниваться так - первое слово из 1-го файла со всеми из 2-го и т.д.

Так это и делается!!! Ты какую программу тестировал?

[FENIX]

Файл 1-ий:
Tomorrow I will to go the ULSU

2-ий:
ULSTU I want will 5sdf not because imho go to the dfgdf sleep Tomorrow

В 4-м нет ULSU.

Я не понял, что такое more в get_word...

Сообщение отредактировано: FENIX - 23.12.2004 0:32

[volvo]

FENIX
Вот еще одна версия. Дальше исправляй сам... Алгоритм очень простой... :yes:

[FENIX]

2 volvo
О, да !

Вот теперь все работает - ОГРОМНОЕ СПАСИБО :D

Сообщение отредактировано: FENIX - 23.12.2004 1:06