## BASIC PROGRAMME

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

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 |

Programm : Download

<< Inhaltsverzeichnis | Kontakt : Webmaster