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

Вниз

Задача №2   Найти похожие ветки 

 
Bayer_Linse ©   (2003-06-29 09:30) [0]

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


 
No_Name   (2003-06-29 11:02) [1]

Ну, уж не судите строго :) ...

const
Count = 100;

type
LettersArray = array [1..32] of Byte;

procedure InitWord(var L: LettersArray; W: String);
var
I: Integer;
Ch: Char;
begin
for I := 1 to 33 do
L[I] := 0;
for I := 1 to Length(W) do
begin
Ch := W[I];
case Ch of
"


 
No_Name   (2003-06-29 11:06) [2]

"


 
Всеволод Соловьёв ©   (2003-06-29 12:12) [3]

создать обработкой словаря массив множеств, в множества запхнуть все буквы из которых состоят слова (Include, Exclude). потом в цикле простьо смотреть if a[i]=a[j] then тыры-пыры :)



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
6-44780
Drain_x
2003-05-07 12:11
2003.07.14
Как в win2000 программно открыть доступ к каталогу ?


7-44915
pitay
2003-05-01 11:30
2003.07.14
Значки рабочего стола


1-44721
Брат
2003-07-01 10:10
2003.07.14
Как подключить dll?


7-44929
Scrach
2003-05-04 03:07
2003.07.14
Есть индентификатор процесса (PID), дискриптор процесса (Handle)


1-44649
I/Oann
2003-06-30 12:47
2003.07.14
VCL сомпонент в CLX приложении