помогите умоляю с задачкой на 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