Ако под честота се разбира колко пъти се среща една буква в даден текст, решението е едноредово:

var F : array [0..255] of integer=[0,0,0 ...]; { 256 нули }
i: integer;
Txt: string;

// тука слагаш въвеждането на F
for i:=1 to length (Txt) do Inc (F [ord (Txt [ i ])]);
// тука изплюваш резултата

И накрая, "Благодаря" не пием!

чети и дишай по-леко

Редактирано от Pechenia на 10.02.03 11:32.