Halaman

Rabu, 27 Februari 2013

algoritma (8,5,3,1,9,7,2)

mengurutkan angka (8,5,3,1,9,7,2) dengan menggunakan algoritma                                                                Maka langkah-langkahnya adalah sebagai berikut:
* SORTING MENGURUTKAN DATA *
* METODE BUBBLE SORT *
1. CLS
2. INPUT “BANYAK BILANGAN YANG DIURUTKAN : “, N
3. DIM BIL(N),Y(N)
4. PRINT
5. PRINT “INPUT BILANGAN YG AKAN DIURUTKAN : “
6. FOR I = 1 TO N STEP 1
7. PRINT” BILANGAN KE – “;I;” : “
8. INPUT “”,BIL( I )
9. Y( I ) = BIL( I )
10. NEXT I
11. PRINT
12. CLS
13. PRINT “DATA SEBELUM URUT : “
                                                                                                                                                                                                                                                            FOR I = 1 TO N
PRINT BIL( I );
NEXT I
PRINT:PRINT
PRINT “LANGKAH PENGURUTAN : ”
FOR J= 1 TO N-1
FOR I= 1 TO N-J
IF BIL( I ) < BIL( I+1 ) THEN 151
TUKAR=BIL( I )
BIL( I ) = BIL( I+1 )
BIL( X+1 ) = TUKAR
NEXT I
PRINT “LANGKAH KE : “; J;” : ”
FOR K=1 TO N
PRINT BIL(K);
NEXT K
PRINT
NEXT J
PRINT:PRINT”SETELAH URUT : ”
PRINT”DATA”,”URUT KECIL”,”URUT BESAR”
FOR I= 1 TO N
PRINT Y( I ),BIL( I ),BIL( N+1-I)
NEXT I
END
Kemudian:
For I = 1 to N
Print Abjad$( I );
Next I
Print:Print
Print”Langkah Pengurutan”
For J = 1 to N-1
For I = 1 to N-J
If Abjad$( I ) < Abjad$( I+1 ) then 151
Tukar$ = Abjad$( I )
Abjad$( I ) = Abjad$( I+1 )
Abjad$( X+1 ) = Tukar$
Next I
Print”Langkah ke:”; J ;” : ”
For K = 1 to N
Print Abjad$(K);
Next K
Print
Next J
Print: Print”Setelah Urut : ”
Print “Data”,”Urut kecil”,”Urut besar”
For I = 1 to N
Print Y$( I ), Abjad$( I ), Abjad$( N+1-I)
Next I
End
                                                                                                                                                                                                                                                                                                                                selamat mencoba

Tidak ada komentar:

Posting Komentar