home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / MISCTI10.ZIP / TI317.ASC < prev    next >
Encoding:
Text File  |  1988-04-18  |  2.3 KB  |  112 lines
  1. PRODUCT : TURBO PASCAL TUTOR     NUMBER : 317
  2. VERSION : 2.00
  3.      OS : PC-DOS
  4.    DATE : July 17, 1986
  5.  
  6.   TITLE : RECURSION MODIFICATIONS
  7.  
  8. The  following is a list of modifications to be made to the  file 
  9. RECUR.EX  in version 2.0 of the Turbo Pascal Tutor.  The  changes 
  10. prevent  the program from hanging after deleting the root of  the 
  11. binary tree.
  12.  
  13. NOTE:  This  code modification updates your version of the  Turbo 
  14. Pascal Tutor to version 2.00A.
  15.  
  16. 1. Make a backup copy of the file RECUR.EX.
  17. 2. Load the file RECUR.EX into the Turbo Pascal editor.
  18. 3. In the function LeftNode:
  19.  
  20. Change from:
  21.         .
  22.         .
  23.         .
  24.         .
  25.         .
  26.         .
  27. Change to:
  28.         .
  29.         .
  30.         .
  31.                                                { Ver. 2.00A }
  32.         .                                      { Modification }
  33.         .
  34.         .
  35.  
  36. 4. In the procedure LeftAndRightNil, change from:
  37.         .
  38.         .
  39.         .
  40.       if LeftNode(Node) then
  41.       else
  42.         .
  43.         .
  44.         .
  45.  
  46.  
  47. Change to:
  48.         .
  49.         .
  50.         .
  51.       if Node <> Root then               { Ver. 2.00A Addition }
  52.       begin                              { Ver. 2.00A Addition }
  53.         if LeftNode(Node) then
  54.         else
  55.       end;                               { Ver. 2.00A Addition }
  56.         .
  57.         .
  58.         .
  59.  
  60. 5. In the procedure LeftNil, change from:
  61.         .
  62.         .
  63.         .
  64.       if LeftNode(Node) then
  65.       else
  66.         .
  67.         .
  68.         .
  69. Change to:
  70.         .
  71.         .
  72.         .
  73.       if Node <> Root then                    { Ver. 2.00A
  74. Addition }
  75.       begin                                   { Ver. 2.00A
  76. Addition }
  77.         if LeftNode(Node) then
  78.         else
  79.       end;                                    { Ver. 2.00A
  80. Addition }
  81.         .
  82.         .
  83.         .
  84.  
  85.  
  86. 6. In the procedure RightNil, change from:
  87.         .
  88.         .
  89.         .
  90.       if LeftNode(Node) then
  91.       else
  92.         .
  93.         .
  94.         .
  95. Change to:
  96.         .
  97.         .
  98.         .
  99.       if Node <> Root then                    { Ver. 2.00A
  100. Addition }
  101.       begin                                   { Ver. 2.00A
  102. Addition }
  103.         if LeftNode(Node) then
  104.         else
  105.       end;                                    { Ver. 2.00A
  106. Addition }
  107.         .
  108.         .
  109.         .
  110.  
  111. 7. Save the file.
  112.