Für alle Neugierigen, die wissen möchten, wie ich die Wichtelpartner ausgelost habe, hier das MBASIC-Progrämmchen, das ich vorhin auf die Schnelle dafür zusammengezimmert habe. Wahrlich kein Meisterwerk, aber es funktioniert.
Code
10 INPUT "Anzahl Teilnehmer";A
20 DIM A$(A),E$(A)
30 FOR I=1 TO A
40 PRINT "Name Teilnehmer";I;
50 INPUT A$(I)
60 NEXT
100 R=-32768!:PRINT "Bitte die Anykey-Taste druecken!"
110 R=R+1:IF R=32767 THEN R=-32768!
120 R$=INKEY$:IF R$="" THEN 110
130 RANDOMIZE R
200 PRINT R:PRINT "Beginne Auslosung"
202 F=0
205 FOR I=1 TO A:E$(I)=A$(I):NEXT
210 FOR X=1 TO A:PRINT A$(X);
215 IF X=A AND E$(X)<>"" THEN F=1:GOTO 280
220 PRINT"=";
230 Y=INT(.5+RND*A)
240 IF Y=X THEN 220
250 IF E$(Y)="" THEN 220
260 PRINT ">";E$(Y)
270 E$(Y)=""
280 NEXT
290 IF F=0 THEN PRINT "Auslosung beendet":END
300 PRINT:PRINT"Ergebnis ungueltig!":PRINT:GOTO 100
Alles anzeigen