Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.12.2008, 22:18
TuNeRmAn TuNeRmAn вне форума
Прохожий
 
Регистрация: 09.12.2008
Сообщения: 3
Репутация: 10
По умолчанию русский алфавит

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

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

Очень нужна заранее благодарен..
Ответить с цитированием
  #2  
Старый 09.12.2008, 22:23
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Поройся по форуму за последние месяц-два. Что-то подобное уже пролетало.
Ответить с цитированием
  #3  
Старый 09.12.2008, 23:05
TuNeRmAn TuNeRmAn вне форума
Прохожий
 
Регистрация: 09.12.2008
Сообщения: 3
Репутация: 10
По умолчанию

Поискал, не нашел =(
Ответить с цитированием
  #4  
Старый 09.12.2008, 23:35
Аватар для Winny
Winny Winny вне форума
Продвинутый
 
Регистрация: 26.05.2007
Адрес: Планета земля, Россия, Москва
Сообщения: 620
Репутация: 30
По умолчанию

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


Последний раз редактировалось Winny, 09.12.2008 в 23:43.
Ответить с цитированием
  #5  
Старый 10.12.2008, 03:17
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

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

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #6  
Старый 10.12.2008, 14:46
TuNeRmAn TuNeRmAn вне форума
Прохожий
 
Регистрация: 09.12.2008
Сообщения: 3
Репутация: 10
По умолчанию

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

Админы не баньте меня, если здесь нельзя выкладывать ссылки просто удалите пост, заранее спасибо.
Ответить с цитированием
  #7  
Старый 10.12.2008, 15:16
Аватар для Winny
Winny Winny вне форума
Продвинутый
 
Регистрация: 26.05.2007
Адрес: Планета земля, Россия, Москва
Сообщения: 620
Репутация: 30
По умолчанию

Цитата:
Сообщение от Aristarh Dark
А еще лучше не делать никакого массива русских букв, а внимательно посмотреть в сторону функции Ord()
Забыл, извини...
__________________

Ответить с цитированием
  #8  
Старый 06.02.2009, 21:26
darksoftware darksoftware вне форума
Прохожий
 
Регистрация: 03.09.2008
Сообщения: 20
Репутация: 10
Лампочка

приведение к типу байт будет быстрее. Вызов функции - уже лишняя операция. В 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 переделать элементарно.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:49.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter