С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Одуванчик)
0 / 0 / 1
Регистрация: 10.01.2012
Сообщений: 28
1

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

19.03.2012, 16:47. Просмотров 829. Ответов 9
Метки нет (Все метки)

Создать символьные файлы F и G и определить количество одинаковых слов входящих в оба файла
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2012, 16:47
Ответы с готовыми решениями:

Даны символьные файлы F и G. Создать файл Р, сначала записав элементы файла F, а дальше - элементы файла G
Даны символьные файлы F и G. Создать файл Р, сначала записав элементы файла F,...

Текстовые файлы. Определить количество слов и чисел в текстовом файле
Данная программа на Паскаль определяет количество слов и чисел в текстовом...

Тестовые файлы. Подсчитать количество слов в строке
дан текстовый файл,содержащий строку. Подсчитать количество слов в этой строке.

Текстовые файлы. Создать новый файл, объединив исходные файлы
даны текстовые файлы Name1 и Name2 .создать Name3 файл объединив Name1 и Name2...

Символьные файлы
Помогите пожалуйста с решением задачки, а то я чёт не могу догнать... Ну...

9
chealbert
237 / 127 / 80
Регистрация: 13.10.2011
Сообщений: 421
19.03.2012, 17:22 2
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 - сделайте в любом текстовом редакторе и впишите туда пару слов.
1
Одуванчик)
0 / 0 / 1
Регистрация: 10.01.2012
Сообщений: 28
19.03.2012, 17:27  [ТС] 3
Спасиббббббббб.... сейчас попробую всё прокрутить... если что то будет не понятно можно спрошу ??????
0
chealbert
237 / 127 / 80
Регистрация: 13.10.2011
Сообщений: 421
19.03.2012, 17:55 4
ага можно
0
Одуванчик)
0 / 0 / 1
Регистрация: 10.01.2012
Сообщений: 28
19.03.2012, 18:01  [ТС] 5
Подожди а как замутить файл с расширение .dat че то не догоню !!!!!
0
chealbert
237 / 127 / 80
Регистрация: 13.10.2011
Сообщений: 421
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
237 / 127 / 80
Регистрация: 13.10.2011
Сообщений: 421
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
237 / 127 / 80
Регистрация: 13.10.2011
Сообщений: 421
19.03.2012, 19:56 10
Вобще-то не должно иметь значения. Но латиница лучше. Имеет значение регистр: Кот и кот - разные слова.
0
19.03.2012, 19:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2012, 19:56

Запись. Символьные файлы
Дано символьные файлы f и g. Записать в файл p сначала компоненты файла f, а...

Файлы. Символьные переменные.
Задачи с файлами.. 1. Предложение состоит из слов, между словами один пробел....

Создать два файла с положительными и отрицательными числами данного файла (типизированные файлы)
Данный файл целых чисел. Создать два новых файла, первый из которых содержит...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru