VPF::[Pascal] задача на деревья - Форум программистов

Mechanic

Дата 28.5.2006, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: нет
Всего: 7

Любая рекурсия давит на стек.
Уменьши количество нодов. И посмотри размер стека, можно чуть растянуть его.
Нажми в редакторе CTRL+O дважды - появится что-то типа

Цитата

{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}

Там попробуй изменить чуть в большую сторону.

Только это из Delphi. Если найду Pascal, то спробую там скомпилить и запустить, только скажи, что за версия Pascal'я у тебя.

--------------------

Tell me the extensions of the files You backup and I'll tell You who You are.. ©Mch

Mechanic

Дата 28.5.2006, 21:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: нет
Всего: 7

Нашёл Pascal. Там ошибка была. Ноды создавались бесконечно. smile

Вот рабочий вариант

Код


{Borland TP 7.0 file}
{$A+,B-,D+,E-,F-,G+,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 65500,0,655360}

Program Bin_Tree;


Type TTree=^TNode;
     TNode=record
       inf:integer;
       left,right:TTree;
     end;

{Finds maximum Inf value of entire tree}
procedure Search_Max(var T:TTree;var elem:integer);
begin
   if T<>nil
      then
       begin
         if T^.inf>elem
            then elem:=T^.inf;
        Search_Max(T^.right,elem);
        Search_Max(T^.left,elem);
       end;
end;

{Creates Node with Nodes nested childs}
procedure RandomFillTree(var Node: TTree; const Nodes: integer);
var Left, Right: integer;
begin
    {calc parts (Left, Right)}
    if Nodes = 0 then Exit;
    Left := Random(Nodes);
    Right := Nodes - Left-1;
    New(Node);
    Node^.inf := Round(Random(65535));

    {debug output "trace"}
    write('  nodes:',nodes,' Left:',Left,' Right:',Right,' Inf:',Node^.inf);

    Node^.Left := nil; Node^.Right := nil;
    RandomFillTree(Node^.Left, Left);
    RandomFillTree(Node^.Right, Right);
end;

const Total_Nodes = 100;

var T: TTree;
    Max: integer;

begin{main program}
    {Fill tree}
    RandomFillTree(T, Total_Nodes);
    {Search_Max}
    Search_Max(T, Max);
    {Out result}
    writeln;
    writeln('Max = ',Max);
end.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »