home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / kombi1_2.bas < prev    next >
BASIC Source File  |  1995-06-24  |  414b  |  24 lines
  1. CLS
  2. PRODZ##=1
  3. PRINT
  4. INPUT "  Wieviele Entscheidungen? ", E%
  5. PRINT
  6. N$=""
  7. FOR I=1 TO E%
  8. PRINT "  Geben Sie bitte die Zahl der Möglichkeiten für die ";
  9. PRINT STR$(I,1);". Entscheidung ein: ";
  10. INPUT, N%
  11. IF N%<2 THEN GOSUB FEHLER
  12. PRODZ##=(PRODZ##)*N%
  13. NEXT I
  14. PRINT
  15. PRINT "  Die Anzahl der Möglichkeiten ist: ";
  16. PRINT (STR$(PRODZ##,18))
  17. END
  18.  
  19. FEHLER:
  20. PRINT "         FEHLEINGABE!"
  21. N%=1
  22. I=I-1
  23. RETURN
  24.