Игра - составление слов.

[blackberryx]

Правила просты : есть исходное слово. Допустим, космонавтика.
Есть база данных слов в файле baza.txt
Надо записать в файл ans.txt все слова из baza.txt , которые можно составить из букв слова космонавтика.
Написал программу, однако при trace обнаружил, что берёт слова не из baza.txt, а из левого источника. (Или проблема с кодировкой, которою я решить не могу)

var t,a : text;
    slovo,source : string;
    bukva : char;
    i,j : integer;
    m : array[1..40] of char;
Function check (slovo, source : string) : boolean;
Var tmp, src : string; k : integer;
Begin
   For k:=1 To Length(slovo) Do
   Begin
      tmp:=copy(source,pos(slovo[i], source),1);
      src:=src+tmp;
   End;
   If src=slovo Then check:=true else check:=false;
End;
begin
   Writeln('Vvedite ishodnoe slovo');
   Readln(source);
   Assign(t, 'baza.txt');
   Reset(t);
   Assign(a, 'ans.txt');
   Append(a);
   While not EoF(t) do
   Begin
      Readln(t, slovo);
      If check(slovo, source) then Writeln(a, slovo);
   End;
End.

Помогите дописать программу, пожалуйста. Файл базы могу приложить, если надо.

[puporev]

Или проблема с кодировкой, которою я решить не могу)

Именно так. Кодировка в текстовых редакторах под Виндой ANSI под Дос - ASCII. Выходы: 1. Писать файл базы в редакторе Паскаля и сохранять *.pas 2. Конвертировать предварительно файл из Win в Dos. Написать процедуру конвертирования в программе.

procedure Convert(var a:string);
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [192..239] then a[i]:=chr(ord(a[i])-64)
else if ord(a[i]) in [240..255] then a[i]:=chr(ord(a[i])-16)
else if ord(a[i])=168 then a[i]:=chr(ord(240))
else if ord(a[i])=184 then a[i]:=chr(ord(241));
end;

После чтения строки из файла писать Convert(s);

[blackberryx]

puporev, огромнейшее вам спасибо

Ещё вопрос возник : а если база данных около мегабайта и там около 1000000 слов, может ли программка не работать?
Алгоритм, походу, корявый. Поэтому в ans.txt вообще ничего не выводится.

[Serge_Bliznykov]

1) в конце программы надо ОБЯЗАТЕЛЬНО закрывать открытые файлы! (тем более те файлы, куда идёт запись).

2)

а если база данных около мегабайта и там около 1000000 слов,

У Вас линейный последовательный алгоритм, он никак не привязан к количеству слов в базе, поэтому слов может быть хоть миллиард. Проблема в другом - быстродействие. в реальной (практической) задаче, я бы выводил % обработки или при обработки каждого тысячного (или каждую десятитысячного - надо смотреть по скорости) слова выводил на экран символ- чтобы было видно, что программа работает и не зависла... Психологически мы все устроены так, что если запущенная программа "молчит" две-три минуты, то мы ждём, ещё минуты через 2-3 начинаем нервничать и подозревать, что всё повисло, а минут через 15-20 программа будет жестко снята с выполнения как наглухо зависшая...
А вот если она будет писать процентики - такого уже не произойдёт...


ВАЖНО!
имхо, алгоритм нахождения слова у вас неверный!
1) src не очищается перед циклом
2) не проверяется есть ли позиция нужного символа в строке
3) берётся переменная, которая от цикла вообще не зависит (надо
copy(source,pos(slovo[k], source),1);

 For k:=1 To Length(slovo) Do
   Begin
      tmp:=copy(source,pos(slovo[i], source),1);

не зачёт...

p.s. если сформулируете правила по которому из одного слова может быть составлено другое слово - я постараюсь Вам функцию Check написать... под правилами я имею в виду следующее - 1) все ли буквы исходного слова должны войти в новое слово (я предполагаю, что могут НЕ ВСЕ например, из слова КОСТЬ можно составить слова КОТ и ТОК. Верно? ) 2) можно ли задействовать одну букву из заданного слова НЕСКОЛЬКО раз? Например, из слова ЛОМКА слово МОЛОКО можно составить?

p.p.s. и ещё, если это не учебная задача, то я бы рекомендовал Вам использовать для реализации какой нибудь ЯП (и компилятор под Windows (т.е. получить WIN32 приложение). Это на современных компьютерах будет работать намного быстрее и эффективнее!

[blackberryx]

О! Вроде заработало. Только там левая кодировка... Как перевести из Досовской в Анси?

[puporev]

procedure Convert1(var a:string);{ASCII->ANSI}
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [128..175] then a[i]:=chr(ord(a[i])+64)
else if ord(a[i]) in [224..239] then a[i]:=chr(ord(a[i])+16)
else if ord(a[i])=240 then a[i]:=chr(ord(168))
else if ord(a[i])=241then a[i]:=chr(ord(184));
end;