home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / fotoperm.bas < prev    next >
BASIC Source File  |  1995-10-31  |  1KB  |  84 lines
  1.   on error goto FEHLER
  2.    CLS
  3.    DIM KOMBI$(200),I(200),J(200),NAMEN$(200)
  4.    PRINT
  5.    ZAHL%=1 : KOMBI$(ZAHL%)=""
  6.    INPUT "  Wieviele Personen";EZ%
  7.    PRINT
  8.  
  9.    IF EZ%< 2 THEN
  10.      PRINT "  Wie soll EINE Person kombiniert werden?"
  11.      END
  12.    END IF
  13.  
  14.    FOR A=1 TO EZ%
  15.      PRINT "  Name der";:PRINT USING "###"; A;
  16.      PRINT ". Person: ";:INPUT, NAMEN$(A)
  17.    NEXT A
  18.  
  19.    EZ1%=EZ%-1
  20.    FOR I=1 TO EZ1%
  21.      J(I)=I
  22.    NEXT I
  23.  
  24. LOS1:
  25.    I=EZ1%
  26.    FOR L=1 TO EZ%
  27.      KOMBI$(ZAHL%)=KOMBI$(ZAHL%)+NAMEN$(L)+" "
  28.    NEXT L
  29.    ZAHL%=ZAHL%+1
  30.  
  31. LOS2:
  32.    IF J(I)<EZ% THEN
  33.      J(I)=J(I)+1
  34.      H$=NAMEN$(I)
  35.      NAMEN$(I)= NAMEN$(J(I))
  36.      NAMEN$(J(I))=H$
  37.        GOTO LOS1
  38.    END IF
  39.  
  40. LOS3:
  41.      H$=NAMEN$(I)
  42.      NAMEN$(I)= NAMEN$(J(I))
  43.      NAMEN$(J(I))=H$
  44.      J(I)=J(I)-1
  45.      IF J(I)>I THEN LOS3
  46.      I=I-1
  47.    IF I THEN
  48.      GOTO LOS2
  49.    END IF
  50.  
  51. AUSGABE:
  52.   ZAHL%=ZAHL%-1
  53.   PRINT
  54.   PRINT "  Anzahl der Kombinationen: "; ZAHL%
  55.   PRINT
  56.   FOR A=1 TO ZAHL%
  57.     PRINT USING "###";A;
  58.     PRINT ". Kombination: ";KOMBI$(A)
  59.     IF A/20=INT(A/20) THEN
  60.       GOSUB PAUSE
  61.     END IF
  62.   NEXT A
  63. END
  64.  
  65. PAUSE:
  66.   LOCATE 24,50,0
  67.    PRINT "Bitte eine Taste drücken!"
  68.   WHILE INKEY$=""
  69.   WEND
  70.   CLS
  71.   PRINT
  72.   PRINT "  Anzahl der Kombinationen: "; ZAHL%
  73.   PRINT
  74.   RETURN
  75.  
  76. FEHLER:
  77.   PRINT ZAHL%
  78.   PRINT I
  79.   FOR I=1 TO 10
  80.   PRINT KOMBI$(I)
  81.   NEXT I
  82.   END
  83.  
  84.