home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG003.ARK / COMBINE.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  587b  |  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.