Прога про текстовый файл, Пожалуйста, помогите кто-нибудь!!! Опции

[avaness]

Вот задали такую задачку:
В текстовом файле записаны слова. Определить, сколько раз встречается каждое слово и вывести в обратном порядке.
Прошу выслать код

[avaness]

успеть-то успел...
но прогу забраковал препод (типа - "не универсальная")
Мне теперь нужно сделать прогу с помощью бинарных деревьев. Прога уже почти готова. Надо только дописать процедуры, чтобы слова выводились по частоте появления. Принцип таков: надо из одного дерева скопировать данные в другое, а потом в другом дереве изменить критерий вывода (cnt) и потом вывести на экран.
Кто-нибудь в курсе – как это делать?
Мне надо к утру завтрашнего дня.
Код только надо чуть-чуть дописать, препод код, который я высылаю, посмотрел - всё нормально, только дописать надо процедурки.
(прога должна быть в консоли)

program  durilka;

{$APPTYPE CONSOLE}


type Droot=^doot;
     doot = record
     cnt:integer;
     inf:string;
     next:droot;
     end;
    PRoot=^Root;
    Root = record
    cnt:integer;
    inf:string;
    Left:PRoot;
    Right:PRoot;
    end;

Procedure Add(var Root:Proot;i:string);

begin
if Root<>nil then
with Root^ do
begin
  if inf<i then Add(Right,i)
      else
       if inf>i then Add(Left,i)
         else
           if inf=i then
           Inc(cnt);

end
 else
 begin
{добавляем новый узел}
 New(Root);
  with Root^ do
  begin
    Inf:=i;
    cnt:=1;
    Left:=Nil;
    Right:=Nil;
  end
 end
end; {end procedure add}

{ процедура печати элементов дерева в порядке убывания значения }
Procedure Print(P:Proot);

   begin
    if P<>Nil then with P^ do
     begin
    { обход справа налево}
     Print(left);
            writeln(inf, '(', cnt, ')');
     print(right);
    end;
end;


Procedure Delete(R:PRoot);
   begin
     if R<>Nil then begin
     Delete(R^.right);
     Delete(R^.left);
     DisPose®
   end;
end;


{программа}
var F:text;
    Filename:string;
    inf:string;
    c:Proot;
    tree2:Droot;
    {Count:integer;}

    begin



//write('input filename - ');readln(Filename);
Assign(f,'f.txt');
{$I-} reset(f); {$I+}
  if IOResult<>0 then
  begin
   writeln('error!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');
   exit
  end;
c:=Nil;
{заполняем дерево дв.поиска}
   {write('Enter are word - ');
   read(inf);
   Count:=0;}
   while not eof(f) do
    begin
     readln(f,inf);
     Add(c,inf);


    end;
     {Writeln('Count');}
  Close(f);
if c=Nil then
writeln('file is empty')
else
 begin
   writeln('####->4321->####');
Print©;
//******
//tree:=nil;

 writeln;
Delete©;
end;
readln;
end.

Текстовый файл отдельно создавал. Его содержание:

moloko
student
ogurec
moloko
salo
salo

Ну чё - кто-нибудь поможет мне?

Сообщение отредактировано: volvo - 2.11.2006 17:37

[volvo]

прогу забраковал препод (типа - "не универсальная")
Мне теперь нужно сделать прогу с помощью бинарных деревьев.
<...>
Ну чё - кто-нибудь поможет мне?

Ага... А завтра тебе твой препод скажет, что и это решение неуниверсально... Окажется, что надо через стеки реализовывать, например. Сейчас прям, будем десятки раз править... Ты сразу ТОЧНОЕ задание давай, а уж потом, извини... "Коней на переправе не меняют" (С)

[avaness]

Ага... А завтра тебе твой препод скажет, что и это решение неуниверсально... Окажется, что надо через стеки реализовывать, например. Сейчас прям, будем десятки раз править... Ты сразу ТОЧНОЕ задание давай, а уж потом, извини... "Коней на переправе не меняют" (С)

когда препод давал мне эту задачу - в условии НЕ БЫЛО указано - с помощью чего делать. И уж тем более не говорилось об УНИВЕРСАЛЬНОСТИ проги. Я сам в шоке.