home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / win / fr / micropas / recherch.p < prev    next >
Text File  |  1994-11-08  |  840b  |  47 lines
  1. program Recherche;
  2.  
  3. type arbre = ^noeud;
  4.      noeud = record
  5.                  val : integer;
  6.                  g,d : arbre;
  7.              end;
  8.  
  9.              
  10. var a5, a7 : arbre;
  11.  
  12.  
  13. function Nouveau(v : integer; a,b : arbre) : arbre;
  14. var c : arbre;
  15. begin
  16.     new(c);
  17.     c^.val := v;
  18.     c^.g := a;
  19.     c^.d := b;
  20.     Nouveau := c;
  21. end;
  22.  
  23.  
  24. function Recherche(v : integer; a: arbre) : arbre;
  25. var r : arbre;
  26. begin
  27.     if a = nil then
  28.         r := nil
  29.     else 
  30.         if v = a^.val then
  31.             r := a
  32.         else
  33.             if v < a^.val then
  34.                 r := Recherche(v, a^.g)
  35.             else
  36.                 r := Recherche(v, a^.d);
  37.         
  38.     Recherche := r;
  39. end;
  40.  
  41.  
  42. begin
  43.     a5 := Nouveau(12,Nouveau(8,Nouveau(6,nil,nil),nil),Nouveau(13,nil,nil));
  44.  
  45.     a7 := Recherche(6,a5);
  46. end.
  47.