Представление алгоритма в виде блок-схемы:
A[1]:=','
A[length(st)+2]:=','
i:=2
i:=i+1
A[i]:=st[i-1]
j:=j+1 k:=A[i] B[j]:=n+k
n:='00' i:=1 n:=A[i+1]
i:=i+1
n:='00'
max:=0
i:=1 L:=1 sum:=sum+1 L:=L+1
lider:=i
max:=sum
sum:=0
i:=i+1
i:=1 L:=1 sum:=sum+1 L:=L+1 m:=1
S:=1
m:=m+1
lider:=i
sum:=0
i:=i+1
Текст программы:
program lab_6;
uses crt;
var
i,dl,j,l,max,lider,sum,m,s:integer;
st,n,k:string[32];
A,B:array[1..34] of string;
begin
clrscr;
writeln('Введите строку не большую 32 символов');
read(st);
A[1]:=',';
A[length(st)+2]:=',';
for i:=2 to length(st)+1 do A[i]:=st[i-1];
n:='00';
for i:=1 to length(st)+1 do
begin
if (A[i]=',') and (A[i+1]<>',') and (n='00') then n:=A[i+1];
if (n<>'00') and (A[i]<>',') and (A[i+1]=',') then
begin
j:=j+1;
k:=A[i];
writeln(j,' пара- ',n,'___',k);
B[j]:=n+k;
n:='00';
end;
end;
for i:=1 to j do
begin
for l:=1 to j do
if B[i]=B[l] then sum:=sum+1;
if sum>max then
begin
lider:=i;
max:=sum;
end;
sum:=0;
end;
write('Наиболее часто встречающиеся пары- ');
if max=1 then write('все пары встречаются по одному разу') else
write(lider);
for i:=1 to j do
begin
for l:=1 to j do if B[i]=B[l] then sum:=sum+1;
if (sum=max) and (B[i]<>B[lider]) then
begin
s:=0;
for m:=1 to i-1 do if B[m]=B[i] then s:=1;
if s=0 then
begin
write(',',i);
lider:=i;
end;
end;
sum:=0;
end;
readln;
readln;
end.
Тестовый примеры:
Пример 1:
Входные данные: st=клавиатура,мышь,ложка,кнопка,нож
Выходные данные: 1 пара- к____а
2 пара- м____ь
3 пара- л____а
4 пара- к____а
5 пара- н____ж
Наиболее часто встречающиеся пары- 1
Пример 2:
Входные данные: st=клавиатура,мышь,ложка,собака,нож
Выходные данные: 1 пара- к____а
2 пара- м____ь
3 пара- л____а
4 пара- с____а
5 пара- н____ж
Наиболее часто встречающиеся пары- все пары встречаются по одному разу
Пример 3:
Входные данные: st=клавиатура,мышь,ложка,кошка,лоза
Выходные данные: 1 пара- к____а
2 пара- м____ь
3 пара- л____а
4 пара- к____а
5 пара- л____а
Наиболее часто встречающиеся пары- 1,3
Выполнил:_________________
Защитил:___________________