Форум: "Потрепаться";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];
ВнизЗадача №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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c