Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 21.01.2020
Сообщений: 4
1

Замена повторяющихся слов в строке на три точки

22.01.2020, 13:06. Просмотров 320. Ответов 1

Здравствуйте, помогите решить задачу по Паскалю, необходимо написать программу, которая находит повторяющиеся слова в строке и заменяет их на три точки "...".

Дан текст не более 255 символов. Слова отделяются друг от друга пробелами. Заменить повторно встречающиеся слова тремя точками.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2020, 13:06
Ответы с готовыми решениями:

Замена одной точки в строке на три точки
Нужно в строке заменить одну точку на три точки Но я умею только один символ на другой вот мой...

В символьной строке вместо каждой точки вставить три точки
В символьной строке типа char, вводимой с клавиатуры вместо каждой найденной точки вставить три...

Заменить в строке 2 повторяющихся символа на 2 точки
если в строке есть 2 повторяющихся символа заменить их на 2 точки

Проверить, встречаются ли в строке три подряд идущих повторяющихся символа
Дана строка. Проверьте, встречаются ли в ней три подряд идущих повторяющихся символа.

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5401 / 3235 / 2375
Регистрация: 22.11.2013
Сообщений: 9,129
28.01.2020, 15:05 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
{ замена повторяющихся слов многоточием }
const Blanks=[#9,#32]; Rep='...';
var
  s, w: String;
  i, j, k: Integer;
begin
  Write(' Текст: '); ReadLn(s); i:=1;
  while i<=Length(s) do begin
    while (i<=Length(s)) and     (s[i] in Blanks) do Inc(i); j:=i;
    while (i<=Length(s)) and not (s[i] in Blanks) do Inc(i); w:=Copy(s,j,i-j);
    if w<>Rep then begin
      k:=i;
      while k<=Length(s) do begin
        while (k<=Length(s)) and     (s[k] in Blanks) do Inc(k); j:=k;
        while (k<=Length(s)) and not (s[k] in Blanks) do Inc(k);
        if w=Copy(s,j,k-j) then begin
          Delete(s,j,k-j); Insert(Rep,s,j); Dec(k,k-j-Length(Rep));
        end;
      end;
    end;
  end;
  WriteLn('Замена: ',s);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2020, 15:05

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Удаление повторяющихся слов в строке
Помогите с написанием программы на ассемблере, которая в строке удаляет повторяющиеся слова и...

Посчитать количество повторяющихся слов в строке
Составить программу, которая вводит с клавиатуры строку, содержащую до 70 символов. В случае...

Определить количество повторяющихся слов в строке.
Дана строка символов, определить количество повторяющихся слов, разделители - пробоел и знаки...

Подсчитать количество повторяющихся слов в строке
Например я пишу в строке блаблаблаблабла, и потом ввхожу слово для поиска бла и у меня должно...


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

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

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