[TuNeRmAn]

Вообщем смысл такой, может у кого-нить есть исходник под Delphi такой вот проги:

Задача состоит в том что в заданном нами тексте состоящим из русских строчных букв(слова могут быть разделены пробелами или знаками препинания) определить частоту вхождения каждого символа.

Очень нужна заранее благодарен..

[lmikle]

Поройся по форуму за последние месяц-два. Что-то подобное уже пролетало.

[TuNeRmAn]

Поискал, не нашел =(

[Winny]

Тебе нужно узнать количество каждой буквы русского алфавита в тексте? Сделай массив из символов, в котором будет содержатся алфавит, потом сравнивай в цикле выбранную букву и символ текста. Если они равны, добавляешь к количеству повторения буквы одну единицу. Получается цикл в цикле.

[Aristarh Dark]

А еще лучше не делать никакого массива русских букв, а внимательно посмотреть в сторону функции Ord()

[TuNeRmAn]

Все я сделал вот исходник пожет кому пригодится...
скачать

Админы не баньте меня, если здесь нельзя выкладывать ссылки просто удалите пост, заранее спасибо.

[Winny]

Сообщение от Aristarh Dark

А еще лучше не делать никакого массива русских букв, а внимательно посмотреть в сторону функции Ord()

Забыл, извини...

[darksoftware]

приведение к типу байт будет быстрее. Вызов функции - уже лишняя операция. В C это реализовано правильно - байт и есть unsigned char.

Вот простейший алгоритм.

var counter: array [192..255] of longint;

for i:=192 to 255 do counter[i]:=0;

for i:=1 to length(s) do

if s[i] in [#192..#255] then counter[byte(s[i])]:=counter[byte(s[i])]+1;

В массиве будет кол-во повторений символов диапазона CP1251 Cyrillic. Под любой диапазон кодировки 866 переделать элементарно.