Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.14;
Скачать: CL | DM;

Вниз

Пмогите, мне с текстом...   Найти похожие ветки 

 
Archy   (2006-04-22 19:23) [0]

Вообщем у меня такая задача: есть алфавит из 8 букв (кирилица) и текст состоящий из этих букв.
Как текст в мемо разбить на буквы, чтоб потом посчитать частоту появления каждого символа.

Заранее спасибо.


 
antonn ©   (2006-04-22 19:32) [1]

Archy   (22.04.06 19:23)
есть алфавит из 8 букв (кирилица)

боже...


 
Мефисто   (2006-04-22 19:36) [2]

Уже вскоре наверно появится FAQ по студентчиским задачкам :)))

>> есть алфавит из 8 букв (кирилица)
Не ваша правда, в русском алфавите больше букв..

Для данной реализации потребуется:

цикл: for или while или repeat

для поиска подстроки в строке подойдут:

Pos, PosEx, AnsiPos

И соотвественно переменая, в которую будет заносится количество совпадений


 
Archy   (2006-04-22 19:38) [3]

что ты возмущаешься? знаешь как посчитать частоты?


 
Archy   (2006-04-22 19:39) [4]

Мефисто спасибо


 
Leonid Troyanovsky ©   (2006-04-22 19:40) [5]


> Мефисто   (22.04.06 19:36) [2]

> для поиска подстроки в строке подойдут:


А зачем здесь поиск подстроки?

--
Regards, LVT.


 
Лшдлуттнсфе   (2006-04-22 19:43) [6]

var
 abc : array[0..7] of char; // алфавит
 freq : array[0..7] of integer; //частота
 i, ii : integer;
begin
 .... // обнулем частоту и заполняем алфавит
 for i := 1 to length(memo1.text) do
   for ii := 0 to 7 do if memo1.text[i] = abc[ii] then inc(freq[ii]);
end;

всякие там pos тут неуместны...


 
Archy   (2006-04-22 19:46) [7]

Лшдлуттнсфе, что делает код inc(freq[ii])?


 
Kilkennycat ©   (2006-04-22 19:47) [8]

увеличивает на единицу значение ячейки массива


 
Archy   (2006-04-22 19:49) [9]

Все, разобрался..


 
Мефисто   (2006-04-22 19:55) [10]

Leonid Troyanovsky ©   (22.04.06 19:40) [5]
Лшдлуттнсфе   (22.04.06 19:43) [6]

А у меня телепатия плохо работает :)
Что подразумевалось под алфавитом из 8-и букв? Слово или каждый символ в отдельности. Я понял, как слово.



Страницы: 1 вся ветка

Текущий архив: 2006.05.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.062 c
15-1145191437
Pazitron_Brain
2006-04-16 16:43
2006.05.14
CMS без баз данных


6-1137715846
Yegorchic
2006-01-20 03:10
2006.05.14
TClientSocket


15-1145451368
lookin
2006-04-19 16:56
2006.05.14
С команд будут снимать очки за расистские выходки фанатов


3-1142241362
Alex_Delphi
2006-03-13 12:16
2006.05.14
Как програмно добавить пользователя в InterBase


15-1145127439
Nic
2006-04-15 22:57
2006.05.14
Технология создания крупных сайтов