Написать реализацию функции Pos

25.02.2011, 20:56. **Показов** 5749. **Ответов** 3

Нужно написать свою функцию POS.
Без использования встроенных строковых функций(кроме length()).

Спасибо.

@Dekio · 25.02.2011, 20:58

digwnews, ваши наработки?

25.02.2011, 21:06

Да наработок почти нет.
Я не могу составить алгоритм.
Написал нахождение первого символа второй строки в первую, но после нахождения этого значения не знаю как дальше пойти проверять символы.
Напр., для такого примера:
Вхождение в "abccba" "cba". Нахожу первый "с", затем проверяю следующий символ, он не совпадает. Но как продолжить поиск не придумаю.

Pascal

program pos;
var
s: string;
l: string;
i, k: integer;
begin
read(s, l);
i:=1;
k:=1;
 
while(not(s[i]=l[k])) do
begin
i:=i+1;
 
end;

@Puporev · 26.02.2011, 08:57

В Паскале можно и без Length.

Pascal

uses crt;
function MyPos(ps,st:string):byte;
var n,m,i,j,p:byte;
    s:string;
begin
p:=0;
n:=ord(st[0]);
m:=ord(ps[0]);
for i:=1 to n-m+1 do
if st[i]=ps[1] then
 begin
  s:='';
  for j:=i to i+m-1 do
  s:=s+st[j];
  if s=ps then
   begin
    p:=i;
    break;
   end;
 end;
MyPos:=p;
end;
var s,s1:string;
begin
clrscr;
writeln('Строка:');
readln(s);
writeln('Подстрока:');
readln(s1);
write(MyPos(s1,s));
readln
end.

digwnews
		1
	Написать реализацию функции Pos 25.02.2011, 20:56. Показов 5749. Ответов 3 Метки нет (Все метки) Нужно написать свою функцию POS. Без использования встроенных строковых функций(кроме length()). Спасибо.

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	25.02.2011, 20:58	2
	digwnews, ваши наработки? 0

Опции темы

Написать реализацию функции Pos

Решение