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

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

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

Новые блоги и статьи Все статьи Все блоги /
Чистый C и C++ в Qt Creator: ставим среду без VPN и настраиваем MinGW/CMake, без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

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

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