| | |
| 15. SORTIEREN VON ZAHLEN | |
| Wenn Sie eine Zahlengruppe (von 2 bis 20) eingeben, dann sortiert Ihnen das Programm diese Zahlen in aufsteigender Reihenfolge, Können Sie das Programm so modifizieren, daB es in absteigender Reihenfolge sortiert? | |
| | |
| 10 REM SORTING NOS. IN | |
| 20 REM ASCENDING ORDER | |
| 30 CLS | |
| 40 PRINT "SORTIEREN VON ZAHLEN (2-20)" | |
| 50 INPUT "WIEVIELE ZAHLEN";A | |
| 60 DIM A(19) | |
| 70 FOR I = 1 TO A | |
| 80 PRINT "ZAHL";I; : INPUT A(I - 1) | |
| 90 NEXT | |
| 100 FOR J = 0 TO A - 2 | |
| 110 FOR I = 0 TO A - 2 | |
| 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 = 0 TO A - 1 | |
| 160 PRINT A(I); | |
| 170 NEXT | |
| 190 END | |
