0 / 0 / 0
Регистрация: 07.12.2019
Сообщений: 8
1
Delphi 6-7

Дано предложение. Заменить в нем каждое третье вхождения буквосочетания 'про' на 'нет'

07.12.2019, 10:19. Показов 396. Ответов 3
Метки нет (Все метки)

Дано предложение. Заменить в нем каждое третье вхождения буквосочетания про на нет.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2019, 10:19
Ответы с готовыми решениями:

Дано предложение. Заменить в нем все вхождения буквосочетания про на нет
Дано Предложение. Заменить в нем все вхождения буквосочетания про на нет!

Строки символов. Дано предложение.Заменить в нем все вхождения буквосочетания ах на ух
1)Дано предложение.Заменить в нем все вхождения буквосочетания ах на ух (задача по теме Строки...

Дано предложение. Заменить в нем все вхождения буквосочетания "да" на "нет"
Дано предложение. Заменить в нем все вхождения буквосочетания да на нет.

Дано предложение. Заменить в нем все вхождения буквосочетания "бит" на "рог"
Ни как не могли понять с другом как решить задачу. Задача со строками. Дано предложение. Заменить...

3
Эксперт Pascal/Delphi
6758 / 4532 / 4802
Регистрация: 05.06.2014
Сообщений: 22,351
07.12.2019, 10:36 2
Заменить в предложении все вхождения буквосочетания "про" на "нет".
0
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
07.12.2019, 10:37 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i,k:integer;
begin
s:=Edit1.Text;
k:=0;
for i:=1 to length(s)-2 do
 begin
  if copy(s,i,3)='про' then
    begin
     inc(k);
     if k mod 3=0 then
      begin
       delete(s,i,3);
       insert('нет',s,i);
      end
     end
 end;
Edit2.Text:=s;
end;
0
-1 / 7 / 3
Регистрация: 18.11.2019
Сообщений: 161
07.12.2019, 19:59 4
Если выбрать вариант с copy то по ссылке из поста 2 пост 7 лучшее решение этой задачи.
Хотя с оговоркой что нужно вставить блок на проверку 3 вхождения как в этой теме пост 3

Добавлено через 6 минут
Но если было бы, любое заданное сочетание заменить на другое любое заданное сочетание на любой другой счёт вхождения, следовало бы делать - по другому.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2019, 19:59

Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух"
Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух".

Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух".
Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух".

Дано предложение. Заменить в нем все вхождения буквосочетания "да" на "не"
Дано предложение. Заменить в нем все вхождения буквосочетания "да" на "не".

Дано предложение. Дано предложение.Определить, есть ли в нем буквосочетания чу или щу
1)Дано предложение.Определить, есть ли в нем буквосочетания чу или щу.В случае положительного...

Дано предложение. Заменить в нем все вхождения подстроки Str1 на подстроку Str2
2. Дано предложение. Заменить в нем все вхождения подстроки Str1 на подстроку Str2.

Дано предложение. Заменить в нем все вхождения подстроки Strl на подстроку Str2
Дано предложение. Заменить в нем все вхождения подстроки Strl на подстроку Str2. Помогите,...


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

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

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