Реализовать функцию Pos(a, n) через другие функции. (Turbo Delphi)

[Just-Joni]

Здравствуйте, пожалуйста помогите решить задачу:
"Реализовать функцию Pos(a, n), возвращающую индекс первого вхождения элемента n в массиве целых чисел a, либо -1." Реализовать нужно через другие функции, вроде "Delete", "Insert", "Copy" и т.д.

[Аватар]

массиве целых чисел

Реализовать нужно через другие функции, вроде "Delete", "Insert", "Copy"

При чем эти функции и массив? В массиве просто цикл и сравнение

[Stilet]

function Pos(s,c:String):Integer;
var i:Integer;
begin
 for i:=1 to Length(s)-Length(c) do
  if copy(s,i,Length(c))=s then begin Pos:=i; break; end;
end;

[Just-Joni]

Большое спасибо! Очень выручили!

[Just-Joni]

Если не сложно - не могли бы помочь с ещё одним заданием: http://www.programmersforum.ru/showthread.php?t=252101

[Serge_Bliznykov]

не совсем верно, нужно в начале иницилизацию -1 сделать:

function Pos(s,c:String):Integer;
var i:Integer;
begin
 Pos := -1; 
 for i:=1 to Length(s)-Length(c) do
  if copy(s,i,Length(c))=s then begin Pos:=i; break; end;
end;

[Poma][a]

не совсем верно, нужно в начале иницилизацию -1 сделать:

-1, конечно, хорошо.. но всё же стандартный Pos в случае отсутствия подстроки в строке вернет 0..

[Serge_Bliznykov]

Сообщение от Poma][a

-1, конечно, хорошо.. но всё же стандартный Pos в случае отсутствия подстроки в строке вернет 0..

так. Невнимательность Вас погубит.
цитирую

Сообщение от Just-Joni

Здравствуйте, пожалуйста помогите решить задачу:
"Реализовать функцию Pos(a, n), возвращающую индекс первого вхождения элемента n в массиве целых чисел a, либо -1."

[Poma][a]

так. Невнимательность Вас погубит.
цитирую

Снова..
Уж простите..

[Just-Joni]

Сообщение от Serge_Bliznykov

не совсем верно, нужно в начале иницилизацию -1 сделать:

function Pos(s,c:String):Integer;
var i:Integer;
begin
 Pos := -1; 
 for i:=1 to Length(s)-Length(c) do
  if copy(s,i,Length(c))=s then begin Pos:=i; break; end;
end;

Преподаватель сразу сказал что ошибка: в задании сказано о МАССИВЕ, а тут - про СТРОКУ