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

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

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

Создать символьные файлы 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# 14 UnmanagedCoder 10.03.2025 Предстоящая версия C# 14 обещает принести изменения, которые сделают разработку еще более приятной и эффективной. Что стоит отметить, так это влияние сообщества разработчиков на формирование новых. . .	Формулы поворота Igor3D 10.03.2025 Добрый день Тема Эти формулы приводятся во множестве тьюториалов, часто под видом "матрица вращения на плоскости". x' = x * cos(a) - y * sin(a) y' = y * cos(a) + x * sin(a) Как бы Вы их. . .	Что нового в .NET 10 UnmanagedCoder 10.03.2025 . NET 10 выходит как релиз с длительной поддержкой (LTS), включающей три года обновлений. В этом обновлении Microsoft сфокусировались на нескольких направлениях: производительность, оптимизация. . .	Отложенное высвобождение, RCU и Hazard Pointer в C++26 NullReferenced 09.03.2025 Многопоточное программирование стало важной частью современной разработки. Когда несколько потоков одновременно работают с общими данными, возникает целый ряд проблем, связанных с синхронизацией и. . .	Неблокирующийся стек на C++26 NullReferenced 09.03.2025 Традиционные способы синхронизации в многопоточном программировании — мьютексы, семафоры, условные переменные — часто превращаются в узкое место в плане производительности. При этом неблокирующиеся. . .
Обработка строк в C++26: Новые возможности string и string_view NullReferenced 09.03.2025 Новый стандарт C++26 предлагает много улучшений для работы с привычными string и относительно новыми string_view. string_view - это невладеющая ссылка на последовательность символов, появившаяся в. . .	Мой первый аддон для Blender 3D, с помощью нейронки (не зная даже азов пайтона, но это не значит что так и с остальным). Hrethgir 09.03.2025 Потратил весь день. Пол-дня мне хватило, чтобы понять что с версией с 14B мне не одолеть написание функционального кода, на языке с которым я вообще никак не знаком - пайтон. Версия 22B от другого. . .	Einstein@Home сегодня исполняется двадцать лет! Programma_Boinc 09.03.2025 Einstein@Home сегодня исполняется двадцать лет! Отправлено 19 февраля 2025 года в 17:20:21 UTC Я хочу поздравить всех наших волонтеров, разработчиков и ученых из Einstein@Home. Мы официально. . .	Заполнители и расширенный набор символов в C++26 NullReferenced 09.03.2025 C++26 представляет два важных обновления: заполнители и расширенный набор символов. Заполнители (placeholders) решают давнюю проблему лаконичности кода в шаблонных выражениях и лямбда-функциях. Они. . .	Контракты в C++26 NullReferenced 09.03.2025 Контракты – это механизм, позволяющий указывать предусловия, постусловия и инварианты для функций в коде. Эта функциональность должна была стать частью C++20, но была исключена на встрече комитета. . .

@Одуванчик) 0 / 0 / 1 Регистрация: 10.01.2012 Сообщений: 28
		1
	Файлы. Создать символьные файлы и определить количество одинаковых слов, входящих в оба файла 19.03.2012, 16:47. Показов 1200. Ответов 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