home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / fibfxn.asp < prev    next >
Text File  |  1996-10-22  |  758b  |  42 lines
  1.     <FONT SIZE=1>    Random number:  <%=rnd()%>  <BR>
  2.             Date/time:    <%=now()%>  <BR>
  3.     </font>
  4.  
  5.     <%N = 17%>
  6.     <H1>Fibonacci numbers through <%=N%></H1><BR>
  7.     <BR>
  8.     <BR>
  9.     <BR>
  10.     <BR>
  11.     <BR>
  12.     <BR>
  13.     Computations done via function calls<BR>
  14.     <TABLE BORDER>
  15.     <%for i = 0 to N%>
  16.         <TR> 
  17.         <TD ALIGN=RIGHT><FONT SIZE=1> <%=i%> </font></TD>
  18.         <TD ALIGN=RIGHT><FONT SIZE=2> <%=Fibonacci(i)%> </font></TD>
  19.         </TR>
  20.     <%next%>
  21.     </TABLE>
  22.  
  23. <SCRIPT Runat=Server Language=VBScript>
  24. Function Fibonacci(i)
  25.     fibA = 1
  26.     fibB = 1
  27.     if (i = 0) then
  28.         Fibonacci = fibA
  29.     elseif (i = 1) then
  30.         Fibonacci = fibB
  31.     elseif (i > 1) then
  32.         for j = 2 to i
  33.             fib = fibA + fibB
  34.             fibA = fibB
  35.             fibB = fib
  36.         next
  37.         Fibonacci = fib
  38.     end if
  39. End Function
  40. </SCRIPT>
  41.  
  42.