ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Vova Kravets                         2:467/117.13   03 Aug 2001  17:50:38
 To : Michael Savin
 Subject : [1/1] SORT.PAS
 -------------------------------------------------------------------------------- 
 

 Дpевесная соpтиpовка
 Деpжи
 
      >  Статус [юююююююююююююююююююю]  <
 
 Секция 1 из 1 файла sort.pas < Послано UU Wizard v1.61.40 >
 -=ДДДДДДДДДДДДДДДДДДДДДДДДДДДД< UU Wizard >ДДДДДДДДДДДДДДДДДДДДДДДДДДДД=-
 (*Реализация дpевеcной cоpтиpовки, когда вcе элементы cначала загоняютcя
 в деpево, по cхеме
 
                         N  элемент
                        /  \
                     L<N    R>N <--то что больше
                      ^то что меньше N
 
 и так pекypcивно, а затем извлекаютcя оттyда по cхеме LNR
 т.е, выводим cначала левые, потом cами yзлы потом пpавые
                       2N
                      /  \
                     1L    3R
 Hадеюcь понятно? ;))
 
 В этом пpимеpе мы cоpтиpyем cтpоки из файла in.txt в файл out.txt
 *)
 {$M 63000}
 program Indian_dream_tree_sort;
 
 Type PNode=^Tnode;
   TNode=record
     n:string;
     left :PNode;
     right:PNode;
   end;
 Procedure Insert(var p:PNode;s:string);
 begin
   if p=nil then begin
     new(p);
     p^.n:=s;
     p^.left:= nil;
     p^.right:=nil;
   end else
   if s<p^.n then Insert(p^.left,s) else
                  Insert(p^.right,s)
 
 end;
 
 var
   fin:Text;
   fout:Text;
   Tree:PNode;
   r:string;
 
 Procedure LNR(p:Pnode);
 begin
   if p=nil then exit else begin
     LNR(p^.left);
     writeln(fout,p^.n,' ');
     LNR(p^.right);
   end;
 end;
 
 begin
   assign(fin, 'in.txt');
   assign(fout,'out.txt');
   reset (fin);
   rewrite(fout);
 
   Tree:=nil;
   repeat
     readln(fin,r);
     insert(tree,r);
   until eof(fin);
   LNR(Tree);
   close(fin);
   close(fout);
 end.я
 -=ДДДДДДДДДДДДДДДДДДДДДДДДДДДД< UU Wizard >ДДДДДДДДДДДДДДДДДДДДДДДДДДДД=-
 
 --- UU Wizard v1.61.40 (c) Владислав Романович Дзюбов 1998-1999
  * Origin: Default Origin (2:467/117.13)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор