HOT Scene Stuff/hotscenestuffzyklop1996.iso/diskmags/deutsch/microcod/micro5/source/bas/kombi2_4.bas

BASIC Source File | 1995-06-24 | 545b | 16 lines

DECLARE FUNCTION fakultaet# (x!, y!)
CLEAR , , 10000
CLS
INPUT "Geben Sie bitte eine Zahl für n ein: ", N!
INPUT "Geben Sie bitte eine Zahl für k ein: ", K!
PRINT "Die Zahl der Möglichkeiten für"; N!; "über"; K!; ": ";
PRINT N! / K! * fakultaet#((N! - 1), (K! - 1))
END

FUNCTION fakultaet# (x!, y!)
 IF y! = 0 THEN fakultaet# = 1 ELSE fakultaet# = ...
    ... x! / y! * fakultaet#((x! - 1), (y - 1))
    REM Auch die letzten beiden Zeilen sind wieder nur eine
    REM Zeile. Das Format ... Na, ja, ihr wißt schon.
END FUNCTION