home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / EBASIC.ZIP / COMBINE.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  640 b   |  17 lines
  1.               REM   PROGRAM COMBINE
  2.               REM   N THINGS TAKEN T AT A TIME
  3.            50   INPUT "THINGS,GROUPS";N,T
  4.                 IF N EQ 0 THEN STOP
  5.                 C=1
  6.                 FOR X=N TO N-T+1 STEP -1
  7.                     C=C*X
  8.                     NEXT X
  9.                         FOR X=T TO 1 STEP -1
  10.                         C=C/X    REM DIVIDE BY T!
  11.                         NEXT X
  12.            PRINT:PRINT
  13.            PRINT N;" THINGS TAKEN ";T; " AT A TIME HAVE "; \
  14.                     C;" COMBINATIONS"
  15.               PRINT:PRINT
  16.                 GO TO 50
  17.