Функция RightPosition. Делфи.

maxluka · 23.11.2010, 19:56

Напишите функцию RightPosition(str1, str2: string), которая получает два параметра str1 и str2 типа string и возвращает позицию начала последнего появления str2 в str1. Например, RightPosition('Миссисипи', 'си') вернет значение 6.

MrSTEP · 01.12.2010, 13:20

Похожая функция есть уже в стандартном наборе, называется pos. Описание аналогично приведенному вами

AlexZir · 01.12.2010, 13:45

Алексей, pos() возвращает первое включение подстроки в строку, а тут нужно анализировать последнее.

MrSTEP · 02.12.2010, 00:38

Тьфу, последнее.. Невнимательность.. А в чем проблема у вас? сами пробовали что-то сделать?

maxluka · 03.12.2010, 00:31

пробывал но вообще не получается((
помогите пожалуйста у кого есть время

NDV · 03.12.2010, 14:07

Код:

function RightPosition(str1, str2: string): integer;
var
   n1, n2, i: integer;
   s: string;
begin
n1:=Length(str1);
n2:=Length(str2);
result:=0;
for i:=n1 downto n2 do
begin
     if str1[i]=str2[n2] then
     begin
          s:=copy(str1, i-n2+1, n2);
          if str2=s then
          begin
                Result:=i-n2+1;
                exit
          end;
     end;
end;
end;

У меня вот так получилось. Обратный цикл использовался исключительно из соображений быстродействия

23.11.2010, 19:56	#1 (permalink)
maxluka Новичок Регистрация: 23.11.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Функция RightPosition. Делфи. Напишите функцию RightPosition(str1, str2: string), которая получает два параметра str1 и str2 типа string и возвращает позицию начала последнего появления str2 в str1. Например, RightPosition('Миссисипи', 'си') вернет значение 6.

01.12.2010, 13:45	#3 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Алексей, pos() возвращает первое включение подстроки в строку, а тут нужно анализировать последнее. __________________ Убить всех человеков!

03.12.2010, 14:07	#6 (permalink)
NDV Member Регистрация: 13.06.2010 Сообщений: 55 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 40	Код: function RightPosition(str1, str2: string): integer; var n1, n2, i: integer; s: string; begin n1:=Length(str1); n2:=Length(str2); result:=0; for i:=n1 downto n2 do begin if str1[i]=str2[n2] then begin s:=copy(str1, i-n2+1, n2); if str2=s then begin Result:=i-n2+1; exit end; end; end; end; У меня вот так получилось. Обратный цикл использовался исключительно из соображений быстродействия

23.11.2010, 19:56
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Когда то на форуме уже создавались подобные топики Функция root и экстремум функции f(x) в Mathcad Функция Есть ли в биосе такая функция? Функция Есть ли в Samsung'е такая функция? Функция и процедура

01.12.2010, 13:20	#2 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Похожая функция есть уже в стандартном наборе, называется pos. Описание аналогично приведенному вами

02.12.2010, 00:38	#4 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Тьфу, последнее.. Невнимательность.. А в чем проблема у вас? сами пробовали что-то сделать?

03.12.2010, 00:31	#5 (permalink)
maxluka Новичок Регистрация: 23.11.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	пробывал но вообще не получается(( помогите пожалуйста у кого есть время

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070