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

[Baturaanna]

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

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

[Baturaanna]

А если тебе не трудно напиши текст программы. Я вообще не представляю что такое процедура, как её описать и вообще зачем она нужна.

[Baturaanna]

именно процедура.

Добавлено через 5 мин.
У меня ещё трудности есть с задачей одной. Ты не знаешь как проверить в стречается ли в данном тексте определённая последовательность букв. Например: дан текст: лдвифдиди=-042349348аа84ьтп, проверить есть ли в нём последовательность 'абв', к примеру. Ну это так, если есть мысли напиши. И так уже припахала.

[compiler]

именно процедура.

держи

procedure GetPosition(const str:string; ch:char; var int:integer);
//ищет в строке str символ ch и возращает позицию int
var i:integer;
begin
	int:=-1;
	for i:=1 to length(str) do if str[i]=ch then int:=i;  
end;

У меня ещё трудности есть с задачей одной. Ты не знаешь как проверить в стречается ли в данном тексте определённая последовательность букв. Например: дан текст: лдвифдиди=-042349348аа84ьтп, проверить есть ли в нём последовательность 'абв', к примеру. Ну это так, если есть мысли напиши. И так уже припахала.

для этого есть pos

function IfInStr (const str1,str2:string):boolean;
//если в строке str1 есть str2 тогда возращает истинну в противном случае ложь
begin
	IfInStr := (pos(str2, str1) <> 0);
end;

Сообщение отредактировано: compiler - 29.06.2007 17:37

[Neznaika]

[quote name='compiler' date='29.06.2007 18:21' post='107326']
держи

procedure GetPosition(const str:string; ch:char; var int:integer);
//ищет в строке str символ ch и возращает позицию int
var i:integer;
begin
	int:=-1;
	for i:=1 to length(str) do if str[i]=ch then int:=i;  
end;

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

Правильное решение:

procedure GetRightChPosition( S : String; Ch : Char; var Position : Integer );
var
  I : Integer;
begin
   for I := Length(S) downto 1 do
     if S[I] = Ch then   { Нашли! }
       begin
          Position := I;
          Exit
       end;
   Position := -1  { Не нашли! }
end;

По моему так.

P.S.
Нехорошо обманывать девушек

[compiler]

Хммм, ошибочка в компиляторе!

Ты о чем? Ошибочка компилятора? Ошибочка в выборе компилятора? ( )
о комментариях...
-----ну замени выделение комментариев, или допиши макросы...
об алгоритме
-----ну, использовал другой, без прирываний..
о const
-----все зависит от компилятора(специально установил TP, в последних версиях(тестировал7.0)работает, в 6.0--нет)

Нехорошо обманывать девушек

так ты о чем?

Сообщение отредактировано: compiler - 13.07.2007 13:55