Пример выполнения задания

Написать программу проверки принадлежности букв некоторой введенной строки к латинскому алфавиту.

Для решения данной задачи необходимо во введенной строке выделять каждый символ и проверять его на принадлежность к латинскому алфавиту. Схема алгоритма представлена на рис. 5.1. Ниже приведен текст программы.

Рис. 5.11 Алгоритм определения принадлежности буквы к латинскому алфавиту.

{Программа проверки на принадлежность к латинскому алфавиту }

{Переменные: a-исходная строка, a[i]-символ, i-параметр цикла, }

{n-длина строки }

Program check;

var

a:string;

i, n:byte;

begin {check}

writeln('Введите строку');

readln(a);

writeln('В строке');

writeln(a);

n:=length(a);

for i:=1 to n do

if (a[i]>='A') and (a[i]<='Z') or (a[i]>='a') and (a[i]<='z')

then writeln('буква ',a[i],' в позиции ',i,' - латинская');

End.{check}

Составить программу определения частоты появления строчных букв латинского алфавита в тексте, вводимом с клавиатуры.

Для решения поставленной задачи организуем прежде всего массив, который будет содержать число повторений каждой буквы. При вводе текста содержимое элемента массива, соответствующего вводимой букве, будет увеличиваться на единицу. Признаком конца вводимого текста можно считать одновременное нажатие клавиш <Ctrl> + <Z>.

Текст программы будет иметь следующий вид:

{Распределение частот появления букв}

{Переменные: letters – число появления букв}

{ symbol – входная литера }

{ index – индекс цикла }

{ n – число символов текста }

program letterfreq;

var

letters:array['a'..'z'] of integer;

symbol:char;

index:char;

n:integer;

begin

n:=0;

{Чтение текста}

while not eof do

begin

read(symbol);

inc(n);

if (symbol>='a') and (symbol<='z')

then inc(letters[symbol])

end;

{Печать результата}

writeln('lettera Chastota');

for index:='a' to 'z' do

writeln(index:3,letters[index]/n:10:2);

end.