| | |
| 2. PERMUTATION UND KOMBINATION | |
| Permutation und Kombination sind zwei populäre Themen in der modernen Mathematik. Mit diesem Programm können Sie die Ergebnisse schnell bekommen. Können Sie den Computer in Schnelligkeit und Genauigkeit schlagen? | |
| | |
| 10 REM PERMUTATION & | |
| 20 REM COMBINATION | |
| 30 CLS | |
| 40 PRINT "PERMUTATION &"; | |
| 50 PRINT "KOMBINATION" | |
| 60 INPUT "GEBEN SIE GESAMTMENGEN EIN";A | |
| 70 INPUT "GEBEN SIE UNTERMENSEN EIN";B | |
| 80 C = 1 : D = 1 | |
| 90 IF B > A THEN 30 | |
| 100 FOR I = A - B + 1 TO A | |
| 110 IF C * I > 1E36 THEN 200 | |
| 120 C = C * I : NEXT | |
| 130 FOR I = 2 TO B | |
| 140 D = D * I : NEXT | |
| 150 PRINT "PERMUTATION =";C | |
| 160 PRINT "KOMBINATION =";C / D | |
| 170 END | |
| 200 PRINT "UEBERLAUF" : GOTO 60 | |
