Строки.Delphi.Консольная. - Помощь студентам

Atoris · 29.11.2010, 08:27

Найти K-ое вхождение подстроки в строку.
На экран вывести позицию K-ого вхождения.

Z1000000 · 29.11.2010, 13:01

Сам сделал что-нибудь?

Mad_Cat · 29.11.2010, 14:31

Код:

s1:=s;i:=0;
while (i<k) and (pos(pod,s1))<>0 do
begin
delete(s1,pos(pod,s1),length(pod));
i:=i+1;
end;
if pos(pod,s1)<>0 then
writeln(pos(pod,s1));

29.11.2010, 08:27	#1
Atoris Пользователь Регистрация: 10.10.2010 Сообщений: 32	Строки.Delphi.Консольная. Найти K-ое вхождение подстроки в строку. На экран вывести позицию K-ого вхождения.

29.11.2010, 13:01	#2
Z1000000 Форумчанин Регистрация: 04.05.2010 Сообщений: 495	Сам сделал что-нибудь? Нажми на весы, поставь + Для благодарностей : WebMoney WMR R252732729948

29.11.2010, 14:31	#3
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `s1:=s;i:=0; while (i<k) and (pos(pod,s1))<>0 do begin delete(s1,pos(pod,s1),length(pod)); i:=i+1; end; if pos(pod,s1)<>0 then writeln(pos(pod,s1));` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Строки.Delphi.Консольная.	Atoris	Помощь студентам	0	21.11.2010 01:21
Интеграл по методу 3/8. Задача. Delphi консольная.	Atoris	Помощь студентам	1	17.11.2010 09:22
Задача. Строки. Delphi консольная.	Atoris	Помощь студентам	4	16.11.2010 09:44
Консольная графика	NoHeart	Общие вопросы C/C++	1	17.01.2010 20:25
Консольная графика в С++	xbobikx	Общие вопросы C/C++	1	07.07.2009 00:42