| | |
| 16. SORTIEREN VON WÖRTERN | |
| Dieses Programm sortiert eine Wortgruppe (von 2 bis 10 Wörter) in alphabetischer Reihenfolge. | |
| | |
| 10 REM SORTING WORDS IN | |
| 20 REM ALPHABETIC ORDER | |
| 30 CLS | |
| 40 PRINT "SORTIEREN VON WOERTERN(2-10)" | |
| 50 INPUT "WIEVIELE WOERTER";A | |
| 60 DIM A$(9) | |
| 70 FOR I = 1 TO A | |
| 80 PRINT "WORT";I; : INPUT A$(I - 1) | |
| 90 NEXT | |
| 100 FOR J = 0 TO A - 1 | |
| 110 FOR I = 1 TO A | |
| 120 IF A$(I) > A$(I - 1) THEN 140 | |
| 130 B$ = A$(I) : A$(I) = A$(I - 1) : A$(I - 1) = B$ | |
| 140 NEXT : NEXT | |
| 150 FOR I = 1 TO A | |
| 160 PRINT A$(I);" "; | |
| 170 NEXT | |
| 100 END | |
