home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / LB09C.ZIP / FOR_NEXT.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-01-22  |  537 b   |  26 lines
  1.  
  2.     PRINT"Compute a Factorial"
  3.     INPUT"Enter a number"+">"; start
  4.     factorial = 1
  5.     FOR index = 1 TO start
  6.         factorial = factorial * index
  7.     NEXT index
  8.     PRINT"The factorial of "; start; " is "; factorial
  9.  
  10.     PRINT
  11.  
  12.     PRINT"Compute a Reciprocal"
  13.     INPUT">"; start
  14.     PRINT"The reciprocal of "; start; " is "; 1/start
  15.  
  16.     PRINT
  17.  
  18.     PRINT"Compute a Square"
  19.     INPUT">"; start
  20.     PRINT"The square of "; start; " is "; start*start
  21.  
  22.     FOR x = 1 TO 5 STEP .3
  23.         PRINT x*x
  24.     NEXT x
  25.  
  26.