Файлы. Создать символьные файлы и определить количество одинаковых слов, входящих в оба файла

@Одуванчик) · Регистрация: 10.01.2012

Author24 — интернет-сервис помощи студентам

Создать символьные файлы F и G и определить количество одинаковых слов входящих в оба файла

@chealbert · 19.03.2012, 17:22

Pascal

Program n1;
Var f,g:text;
    s1,s2:string;
    c1,c2:char;
    i:integer;
begin
 assign(f,'file1.dat');
 reset(f);
 assign(g,'file1.dat');
 reset(g);
 i:=0;
 while not eof(f) do
  begin
   s1:='';
   while not eoln(f) do
    begin
     read(f,c1);
     if c1<>' ' then s1:=s1+c1 else
      begin
       while not eof(g) do
        begin
         s2:='';
         while not eoln(g) do
          begin
           read(g,c2);
           if c2<>' ' then s2:=s2+c2 else
            begin
             if s1=s2 then begin write(s1);i:=i+1;end;
             s2:='';
            end;
          end;
         readln(g);
        end;
       s1:='';
      end;
     end;
   readln(f);
   writeln;
  end;
 close(g);
 close(f);
 writeln('Slov odinakovih: ',i);
End.

file1.dat и file2.dat - сделайте в любом текстовом редакторе и впишите туда пару слов.

@Одуванчик) · 19.03.2012, 17:27 **[ТС]**

Спасиббббббббб.... сейчас попробую всё прокрутить... если что то будет не понятно можно спрошу ??????

@chealbert · 19.03.2012, 17:55

ага можно

@Одуванчик) · 19.03.2012, 18:01 **[ТС]**

Подожди а как замутить файл с расширение .dat че то не догоню !!!!!

@chealbert · 19.03.2012, 18:07

Можно что угодно написать, хоть tupo-1.txt и tupo-2.txt - измените в программе и создайте вручную в блокноте файлы с такими именами. Файлы должны быть в том же каталоге что и программа или нужно указывать полный путь файла: assign(f,'c:\tp\tupo-1.txt')

@Одуванчик) · 19.03.2012, 18:25 **[ТС]**

Сделал запустил ввожу одинаковые слова а выдает что количество слов 0((( хотя слова одинаковые !

@chealbert · 19.03.2012, 18:43

Ну не знаю... Я писал английские слова через один пробел.
Если после 17 строки: read(f,c1); написать write(c1); то будет выводится на экран содержимое первого файла - так можна проверить то он читает или нет.

Или я неправильно понял задание: одинаковые слова - это слово в одном файле и точно такое же во втором?

@Одуванчик) · 19.03.2012, 19:43 **[ТС]**

да да это правильно а если русский слова или не имеет значение ?

@chealbert · 19.03.2012, 19:56

Вобще-то не должно иметь значения. Но латиница лучше. Имеет значение регистр: Кот и кот - разные слова.

@Одуванчик) 0 / 0 / 1 Регистрация: 10.01.2012 Сообщений: 28
		1
	Файлы. Создать символьные файлы и определить количество одинаковых слов, входящих в оба файла 19.03.2012, 16:47. Показов 1181. Ответов 9 Метки нет (Все метки) Создать символьные файлы F и G и определить количество одинаковых слов входящих в оба файла 0

@Одуванчик) 0 / 0 / 1 Регистрация: 10.01.2012 Сообщений: 28
	19.03.2012, 17:27 [ТС]	3
	Спасиббббббббб.... сейчас попробую всё прокрутить... если что то будет не понятно можно спрошу ?????? 0

@chealbert 257 / 143 / 85 Регистрация: 13.10.2011 Сообщений: 454
	19.03.2012, 17:55	4
	ага можно 0

@Одуванчик) 0 / 0 / 1 Регистрация: 10.01.2012 Сообщений: 28
	19.03.2012, 18:01 [ТС]	5
	Подожди а как замутить файл с расширение .dat че то не догоню !!!!! 0

@chealbert 257 / 143 / 85 Регистрация: 13.10.2011 Сообщений: 454
	19.03.2012, 18:07	6
	Можно что угодно написать, хоть tupo-1.txt и tupo-2.txt - измените в программе и создайте вручную в блокноте файлы с такими именами. Файлы должны быть в том же каталоге что и программа или нужно указывать полный путь файла: assign(f,'c:\tp\tupo-1.txt') 1

@Одуванчик) 0 / 0 / 1 Регистрация: 10.01.2012 Сообщений: 28
	19.03.2012, 18:25 [ТС]	7
	Сделал запустил ввожу одинаковые слова а выдает что количество слов 0((( хотя слова одинаковые ! 0

@chealbert 257 / 143 / 85 Регистрация: 13.10.2011 Сообщений: 454
	19.03.2012, 18:43	8
	Ну не знаю... Я писал английские слова через один пробел. Если после 17 строки: read(f,c1); написать write(c1); то будет выводится на экран содержимое первого файла - так можна проверить то он читает или нет. Или я неправильно понял задание: одинаковые слова - это слово в одном файле и точно такое же во втором? 0

@Одуванчик) 0 / 0 / 1 Регистрация: 10.01.2012 Сообщений: 28
	19.03.2012, 19:43 [ТС]	9
	да да это правильно а если русский слова или не имеет значение ? 0

@chealbert 257 / 143 / 85 Регистрация: 13.10.2011 Сообщений: 454
	19.03.2012, 19:56	10
	Вобще-то не должно иметь значения. Но латиница лучше. Имеет значение регистр: Кот и кот - разные слова. 0