помогите умоляю с задачкой на Pascale, работа со строками Опции

[Baturaanna]

Составить процедуру, позволяющую определить позицию самого правого вхождения заданного символа в исходную строку. Если строка не содержит символа, то результатом работы будет -1.

Помогите кто может. Заранее благодарна.Я вообще в этом Паскале слабо соображаю.

[klem4]

по поводу м/ж извиняюсь, по поводу решения, да окей, exit я не приметил ... и все-же, а чем pos то не подходит ? Какраз первое вхождение находит ... Ну а если бес pos то можно покороче, вот так:

function first_pos(const s: string; const ch: char): Integer;
var
  i: byte;
begin
  i := 1;
  while (i <= length(s)) and (s[i] <> ch) do inc(i);
  if (i <= length(s)) then first_pos := i else first_pos := -1;
end;

Добавлено через 14 мин.
или вот еще вариант

function first_pos(s: string; ch: char; i: Byte): Integer;
begin
  if i > length(s) then first_pos := -1 else
   if s[i] = ch then first_pos := i else first_pos := first_pos(s, ch, succ(i));
end;

Сообщение отредактировано: klem4 - 13.07.2007 19:45