Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
18
Добавлен:
02.05.2014
Размер:
107.52 Кб
Скачать

Представление алгоритма в виде блок-схемы:

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

Выполнил:_________________

Защитил:___________________

Соседние файлы в папке Лабораторная работа1