Пример 6.1. Определение заданных последовательностей символов в строке

Даны: целое число N, символы S1,S2,…,SN. Определить число входящих в последовательность заданных комбинаций букв.

Вид компонентов на форме:

Процедура обработки щелчка на кнопке "Выполнить"

procedure TForm1.Button1Click(Sender: TObject);

var Str:string; otvet, i, N: integer;

Begin

i =0; otvet:=0; N:=StrToInt(Edit1.Text);

if N<>length (Str) then begin Label5.Caption:= ’Ошибка!

Длина строки должна быть равна числу N’;

Edit1.Text:=’ ’;Edit2.Text:=’ ’; Edit3.Text:= ’ ’; Exit; end;

if Length(Edit3.Text)<>3 then begin

Label5.Caption:=’Ошибка!

Искомая комбинация должна содержать 3 символа’;

Edit1.Text:=”; Edit2.Text:=”; Edit3.Text:=”; Exit; end;

while i<N do begin i:=i+1;

if (str[i]=Edit3.Text[1]) and (str[i+1]=Edit3.Text[2]) and

(str[i+2]=Edit3.Text[3]) then begin i:=i+2;

Otvet:=otvet+1; end; end;

Label5.Caption:=’Ответ: найдено’

+IntTostr(otvet)+’искомых комбинаций’;

End;