Описать функцию целого типа, возвращающую номер позиции, с которой в строке содержится последнее вхождение подстроки

@Alexxxxxxxxx · Регистрация: 21.10.2011

Author24 — интернет-сервис помощи студентам

Описать функцию PosLast (subs,s,k) целого типа,возвращающую номер позиции, с которой в строке s содержится последнее вхождение подстроки subs. Если в строке s отсутствуют подстроки subs, то функция возвращает 0. Вывести значения этой функции для пяти данных пар subs и s.
Спасибо заранее!!!

@Puporev · 12.12.2011, 18:28

Pascal

uses crt;
function PosLast(subs,s:string):byte;//не понял для чего параметр к
var i,k:byte;
begin
k:=0;
i:=length(s);
while(i>=1)and(k=0) do
if copy(s,i,length(subs))=subs then k:=i
else i:=i-1;
PosLast:=k;
end;
var s,s1:string;
    i:byte;
begin
clrscr;
for i:=1 to 5 do
 begin
  writeln('Введите строку');
  readln(s);
  writeln('Введите подстроку');
  readln(s1);
  writeln('Номер позиции последнего вхождения=',PosLast(s1,s));
  writeln;
 end;
readln
end.

@Alexxxxxxxxx · 12.12.2011, 18:31 **[ТС]**

Огромное спасибо , ты меня опять выручил , спасибо !!!)))

@Alexxxxxxxxx 0 / 0 / 0 Регистрация: 21.10.2011 Сообщений: 26
		1
	Описать функцию целого типа, возвращающую номер позиции, с которой в строке содержится последнее вхождение подстроки 12.12.2011, 18:08. Показов 3139. Ответов 2 Метки нет (Все метки) Описать функцию PosLast (subs,s,k) целого типа,возвращающую номер позиции, с которой в строке s содержится последнее вхождение подстроки subs. Если в строке s отсутствуют подстроки subs, то функция возвращает 0. Вывести значения этой функции для пяти данных пар subs и s. Спасибо заранее!!! 0

@Alexxxxxxxxx 0 / 0 / 0 Регистрация: 21.10.2011 Сообщений: 26
	12.12.2011, 18:31 [ТС]	3
	Огромное спасибо , ты меня опять выручил , спасибо !!!))) 0

Описать функцию целого типа, возвращающую номер позиции, с которой в строке содержится последнее вхождение подстроки

Решение