## BASIC PROGRAMME

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

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 |

Programm : Download

<< Inhaltsverzeichnis | Kontakt : Webmaster