home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l043 / 3.ddi / FIB8087.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-11-02  |  1.1 KB  |  46 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. {$N+}
  5. program Fib8087;
  6. {
  7.   Sample program from P-335 in the Owner's Handbook that
  8.   demonstrates how to avoid 8087 stack overflow in recursive
  9.   functions that use the 8087 math co-processor. Local variables
  10.   are used to store temporary results on the 8086 stack.
  11.  
  12.   Note: THIS PROGRAM REQUIRES A MATH CO-PROCESSOR
  13. }
  14.  
  15. var
  16.   i : integer;
  17.  
  18. function Fib(N : integer) : extended;
  19. { calculate the fibonacci sequence for N }
  20. var
  21.   F1, F2 : extended;
  22. begin
  23.   if N = 0 then
  24.     Fib := 0.0
  25.   else
  26.     if N = 1 then
  27.       Fib := 1.0
  28.     else
  29.     begin
  30.       (* Use this line instead of the 3 lines that follow this
  31.          comment to cause an 8087 stack overflow for values of
  32.          N >= 8:
  33.       Fib := Fib(N - 1) + Fib(N - 2);  { will cause overflow for N > 8 }
  34.       *)
  35.  
  36.       F1 := Fib(N - 1);         { store results in temporaries on 8086 }
  37.       F2 := Fib(N - 2);         { stack to avoid 8087 stack overflow }
  38.       Fib := F1 + F2;
  39.     end;
  40. end; { Fib }
  41.  
  42. begin
  43.   for i := 0 to 15 do
  44.     Writeln(i, '. ', Fib(i));
  45. end.
  46.