Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2010, 08:56   #1
Figushkin
Пользователь
 
Регистрация: 20.05.2010
Сообщений: 31
По умолчанию Дан файл, содержащий текст на русском языке.

Дан файл, содержащий текст на русском языке. В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком). Получить в новом файле отредактированный текст, в котором удалены по-вторные вхождения слов в предложении.
Figushkin вне форума Ответить с цитированием
Старый 10.06.2010, 16:20   #2
Z1000000
Форумчанин
 
Регистрация: 04.05.2010
Сообщений: 495
По умолчанию

Ты ими ( решениями ) торгуешь что ли ? Может договоримся!
Код:
program AnalizeText;
type
 Symbols = set of Char;
var
 EndSentense,EndWord : Symbols;
 Sym : Char;
 CurWord,PrevWord : String;
 i,k : Integer;
 f,g : Text;
begin
EndSentense := ['.','?'];
EndWord := [' ',Chr(10),Chr(13)];
Assign ( f, '111.txt');
Assign ( g, '222.txt');
Reset ( f );
Rewrite ( g );
PrevWord := '';
while not eof(f) do
 begin
 read ( f, Sym );
 if ( Sym in EndSentense ) or ( Sym in EndWord ) then
  begin
  if CurWord <> '' then
   if PrevWord <> CurWord then
    begin
    write ( g,CurWord );
    PrevWord := CurWord;
    end;
  CurWord := '';
  write ( g, Sym );
  end
 else
  begin
  CurWord := CurWord + Sym;
  end;
 end; // while

Close ( f );
Close ( g );
end.
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948
Z1000000 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан файл, содержащий текст, записанный строчными русскими буквами. Получить в др.файле тот же текст, develish151 Microsoft Office Word 4 05.05.2010 13:20
Дан файл, содержащий целые числа. Найти количество нечетных чисел среди элементов файла stasyan Помощь студентам 12 03.04.2010 18:49
Дан файл, содержащий текст на русском языке.Составить в алфавитном порядке список слов в файл. JiLiYa Паскаль, Turbo Pascal, PascalABC.NET 3 26.12.2008 12:05
Дан файл, содержащий информацию о багаже нескольких пасажиров (кол-во вещей и их общий вес) MariyaVo Паскаль, Turbo Pascal, PascalABC.NET 4 08.12.2008 23:10
Как преобразовать число в текст на русском языке??? Aerodeck Microsoft Office Excel 2 09.10.2007 07:51