Примеры задач

Строки символов


1. Задание: напишите функцию count, которая получает два параметра str1 и str2 типа string и возвращает число, указывающее, сколько раз str2 встречается в str1. Функция не должна изменять свои параметры. Кроме того, любая литера в str1 может учитываться не более чем в одном вхождении str2. Например, cout(‘балалайка’,’ала’) должна возвращать 1, а не 2.

Методика решения

Используемые переменные:
Str1, str2 – исходные строки;
S – строка, в которую заносятся первые length(str2) символов строки str1;
I, j – натуральные переменные для задания циклов;
Schet – счётчик количества вхождений;
K - номер позиции, начиная с которой строка str2 входит в str1.

Для реализации данной программы понадобятся следующие стандартные процедуры и функции для работы со строками:
Функция pos(s, c) определяет номер позиции, начиная с которой строка s первый раз входит в строку с ;
Процедура удаления delete(s, k, n) – из строки s удаляется n символов, начиная с k - того.

Функция count(str1,str2)
С помощью функции pos(str2, str1) определяем, начиная с какой позиции строка str2 первый раз входит в строку str1 .
С помощью процедуры delete(st,k,length(str1)) удаляем из строки str2 подстроку str1 и все символы, стоящие перед подстрокой str1 , начиная с первого. Счётчик увеличиваем на 1 (изначально его необходимо обнулить).
Эти действия необходимо повторять, пока есть вхождения строки str2 в строку str1 (пока pos(str2, str1) < > 0).
Функции возвращаем значение счётчика.

Листинг программы

Program ex4_5;
Uses Crt;
Var str1,str2,s:string;
i,j:integer;
Function Count(var str1,str2:string):integer;
Var schet,k:integer; st1,st2:string;
Begin
schet:=0;
while pos(str2,str1)<>0 do
begin
k:=pos(str2,str1);
schet:=schet+1;
delete(str1,1,k+length(str2)-1);
end;
Count:=schet;
End;
BEGIN CLRSCR;
WriteLn('Input str1: ');
ReadLn(str1);
WriteLn('Input str2: ');
ReadLn(str2);
WriteLn('Строка str2 встречается в строке str1 ',Count(str1,str2),' раз(а).');
READKEY;
END.

Запустить программу






Назад

Закрыть