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

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

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

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

@chealbert · 19.03.2012, 17:22

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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

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

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@Одуванчик) 0 / 0 / 1 Регистрация: 10.01.2012 Сообщений: 28

	Файлы. Создать символьные файлы и определить количество одинаковых слов, входящих в оба файла 19.03.2012, 16:47. Показов 1299. Ответов 9 Метки нет (Все метки) Создать символьные файлы F и G и определить количество одинаковых слов входящих в оба файла 0

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

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

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

@chealbert 257 / 143 / 85 Регистрация: 13.10.2011 Сообщений: 454
	19.03.2012, 18:07
	Можно что угодно написать, хоть 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 [ТС]
	Сделал запустил ввожу одинаковые слова а выдает что количество слов 0((( хотя слова одинаковые ! 0

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

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

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