Пмогите, мне с текстом...

← →
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])?

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

← →
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-и букв? Слово или каждый символ в отдельности. Я понял, как слово.

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