## BASIC PROGRAMME

Zurück 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

18. ZUFALLSWÖRTER |
Diesmal sollen Sie ein Wort aus vier Buchstaben finden. Sie gehen dabei genauso vor wie bei der Zufallszahl. |
10 REM GUESS AN ENGLISH WORD |
20 CLS |
30 C$ = "FISHRUSHRESTSIDETALKDIRTWORKGIRLJUMPMOOD" |
40 I = ( RND (10) - 1) * 4 + 1 |
50 A$ = MID$ (C$,I,4) : S = 1 |
60 PRINT "SUCHEN SIE EIN WORT" |
70 INPUT "(4 BUCHSTABEN)";B$ |
80 FOR J = 1 TO 4 |
90 IF MID$ (A$,1,J) = MID$ (B$,1,J) THEN NEXT |
100 PRINT "SIE HABEN";J - 1; |
110 PRINT "BUCHSTABEN RICHTIG" |
120 IF J < > 5 THEN S = S + 1 : GOTO 60 |
130 PRINT "SIE HATTEN";S; |
140 PRINT "VERSUCHE" |
150 END |

Programm : Download

<< Inhaltsverzeichnis | Kontakt : Webmaster