Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
ВнизПерестановки букв. Найти похожие ветки
← →
Букварь (2002-02-08 12:31) [8]Берется словарик в текстовом виде и орабатывается примерно так:
Repeat
WordWork := UpperCase(WordMain);
Readln (DictFile,WordDict);
FrmMain.PrBarMain.Position := FrmMain.PrBarMain.Position + 1;
If WordDict = "" Then Continue;
WordDict := UpperCase(WordDict);
Yes := true;
For ch:=1 to length(WordDict) do
begin
WordChar := copy(WordDict,ch,1);
If pos(WordChar,WordWork) = 0 Then
Begin
Yes := False;
Break
End;
If pos(" ",WordWork) > 0 Then Delete(WordWork,pos(" ",WordWork),1);
If pos(WordChar,WordWork) > 0 Then Delete(WordWork,pos(WordChar,WordWork),1)
end { of for } ;
If Yes = true Then Writeln(ItogFile,WordDict);
Until EOF(DictFile);
Хотя мозгами подобные вещи решать значительно приятнее и интереснее. Просто башка сегодня от перемен погоды разламывается - думать сам совсем не могу.
Могу порекомендовать для любителей подобной забавы
http://games.rax.ru/blitz/
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c