Уточненный алгоритм

1.1 Задать Эталонную_строку.

1.2 m = Длина(Эталонной_строки).

2.1. Ввести Предложение.

2.2. n = Длина(Предложения).

3.1. Для номера символа Эталонной_строки (j) от 1 до m выполнить

3.1.1. Количество_символов_j = 0.

3.1.2. Для номера символа Предложения (i) от 1 до n выполнить

Если Предложение_i = Эталонная_Строка_j то

Количество_символов_j = Количество_символов_j + 1.

4.1. Min = MaxInt (Максимальное целое).

4.2. Номер_Min = 0. ( Минимум не найден).

4.3. Для номера символа Эталонной_строки (j) от 1 до m выполнить

4.3.1. Если Количество_символов_j > 0 ( символ встречается в предложении), то

а) Min = Количество_символов_j;

б) Номер_Min = j.

4.4. Вывести Эталонная_Строка _{Номер_Min} и Min.

5. Закончить.

Поиск минимума в данном случае выполняется в условиях некоторой неопределенности, так как неизвестно, какие из массива найденных количеств будут иметь ненулевые значения. Чтобы избежать присваивания переменной Min нуля, на ее место перед началом поиска минимума записывается абсурдно большое число - MaxInt (Максимальное целое), которое затем будет заменено первой же ненулевой величиной.

Программа для приведенного алгоритма будет иметь вид

Program Min_Gl;

Const

Nmax= 20; { Максимальное количество счетчиков гласных }

Var

Predl,Gl:String; { Предложение и эталонная строка }

Kol:Array[1..Nmax] Of Integer; { Счетчики гласных }

n,m,i,j,Min,Nom:Integer; { Вспомогательные переменные }

Begin

Gl:=’аеёиоуыэюяАЕЁИОУЫЭЮЯ’; {Строка гласных (эталонов)}

m:=Length(Gl);

WriteLn('Введите предложение');

ReadLn(Predl);

n := Length(Predl);

For j:=1 to m do

Begin

Kol[j] := 0;

For i:=1 to n do

If Predl[i] = Gl[j] then

Kol[j]:=kol[j] + 1;

End;

Min:=MaxInt;

Nom:=0;

For j:=1 to m do

If kol[j]>0 then

If kol[j]< Min then

Begin

Min:= kol[j];

Nom:=j;

End;

Writeln('Наиболее редкая гласная в предложении -', Gl[Nom]);

Writeln('Она встречается ',Min,' раз');

Writeln('Работа окончена. Нажмите клавишу ENTER');

Readln;

End.