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

@Одуванчик) · Регистрация: 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

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

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

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

	Файлы. Создать символьные файлы и определить количество одинаковых слов, входящих в оба файла 19.03.2012, 16:47. Показов 1323. Ответов 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