Автор Тема: Дан текстовый файл со строками. Найти повторяющиеся слова и заменить  (Прочитано 5849 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн bifshtex

  • Пользователь
  • **
  • Сообщений: 70
    • Просмотр профиля
Данила, Infstudent помогите пожалуйста...
не знаю даже как к ней приступить((

Дан текстовый файл со строками. Найти повторяющиеся слова, после чего заменить эти повторяющиеся слова словом 'povtor', начиная со второго. И записать в типизованный файл количество повторяющихся слов.
« Последнее редактирование: 16 Февраля 2010, 10:37:29 от Asix »

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
А что именно не получается?
« Последнее редактирование: 16 Февраля 2010, 10:37:37 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн bifshtex

  • Пользователь
  • **
  • Сообщений: 70
    • Просмотр профиля
как бы ты приступил к этой задаче?
как найти повторяющиеся слова?..
« Последнее редактирование: 16 Февраля 2010, 10:37:43 от Asix »

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
Ну смотри как бы я приступил к этой задаче мы считываем строки в массив, а дальше сравниваем его элементы между собой, если они равны, то увеличить счетчик. Чуть позже допишу алгоритм доконца    
 
  
« Последнее редактирование: 16 Февраля 2010, 10:37:51 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
Далее организуем сравнение следующим  образом: во внешнем цикле мы берем первый элемент массива, во втором внутреннем пробегаем все остальные, проверяя равенство строк и в случае совпадения увеличивая счетчик. Массив строк разумеется используется, который опишем так Test:array of string;      
« Последнее редактирование: 16 Февраля 2010, 10:37:58 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
Вот тебе код, который считывает строки из файла
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
f:textfile;
i,j:integer;
c:char;
text:array of string;
begin
i:=1;
j:=0;
c:=' ';
AssignFile(f,'Test.txt');
Rewrite(f);
while c<>'q' do
begin
writeln('vvod?');
readln(c);
writeln(f,random(20));
end;
close(f);
reset(f);
while not eof(f) do
begin
setlength(text,i);
readln(f,text[j]);
writeln(text[j]);
inc(i);
inc(j);
end;
readln;
end.
  Я там записываю строки генератором случайных чисел
« Последнее редактирование: 16 Февраля 2010, 10:38:03 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн bifshtex

  • Пользователь
  • **
  • Сообщений: 70
    • Просмотр профиля
блин, опять этот Делфи))))
спасиб за помощь, буду разбираться))
« Последнее редактирование: 16 Февраля 2010, 10:38:11 от Asix »

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
Не опять а снова) Честно говоря Delphi 7  давно халявно валяется в инете))Замени sysutils на crt
« Последнее редактирование: 16 Февраля 2010, 10:38:23 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

 

Подсчет циклов в Паскале, найти корни уравнения методом половинного деления

Автор Anastasia_Right

Ответов: 1
Просмотров: 4389
Последний ответ 10 Октября 2011, 18:42:03
от holloloh
Найти ошибки в программе, составить блок-схему алгоритма, Паскаль

Автор Murmansk

Ответов: 27
Просмотров: 10424
Последний ответ 22 Февраля 2010, 18:52:06
от InfStudent
Java Script. Правьте, плиз, две программы, не могу найти ошибку..

Автор Round

Ответов: 5
Просмотров: 4056
Последний ответ 02 Апреля 2010, 18:31:07
от Round
Помогите найти ошибку в программе на С++ (диффур второго порядка)

Автор artecovez

Ответов: 1
Просмотров: 3829
Последний ответ 27 Апреля 2010, 19:38:10
от Данила
Курсовик Borland C++, матрица, найти количество нулевых элементов

Автор ivanets

Ответов: 0
Просмотров: 4363
Последний ответ 20 Декабря 2010, 00:16:01
от ivanets