Aedsan_4n993r

Assalamualaikum Wr. Wb.

[Cara Mengurutkan Suatu Data Numerik/Alphabethik]

 Mengurutkan angka/mengacak angka:

Algoritmanya adalah :

  1. Tentukan/masukkan beberapa bilangan, misal : 1,8,2,3,0,6,4 atau dalam bentuk alphabet(abjghfu)

  2. Lakukan proses dan tentukan cara pengurutannya.
    • Pengurutan Data ( Sorting )

      Teknik Sorting ini dapat digunakan untuk mengurutkan data urut dari kecil ke besar maupun dari besar ke kecil baik unutk data numerik atau alphabetik.Teknik sorting ini sangat banyak sekali caranya, tetapi yang sering digunakan dan relatip mudah yaitu metode “Bubble Sort” dan “Straight Selection“.

    • Metode Bubble Sort

      Seperti gelembung (”bubble”) yang timbul ke permukaan air, metode ini juga menimbulkan angka terbesar dan menaruhnya pada akhir urutan, mengatur sampai urut dari kecil sampai besar. Untuk metode sorting ini, semua data dibacakan terlebih dahulu ke omputer dan disimpan di “memori komputer”, kemudian pengurutan baru dilakukan.

  • Metode Straight Selection

    Metode ini sebenarnya kebalikan dari metode bubble sort. Metode seleksi langsung ini akan memilih nilai yang terkecil dan meletakkannya di urutan terkemuka. Nilai-nilai terkecil berikutnya akan diseleksi dan diletakkan diurutan setelah nilai terkecil pertama, kedua, dan seterusnya sampai akhirnya di dapat nilai yang urut dari kecil ke besar. Program berikut akan mengambil data yang sama dengan metode Bubble sort. Dari hasil output langkah-langkah pengurutan akan tampak perbedaan proses pengurutannya.

      

  1. Sebelum mengurutkan, maka tentukan dahulu data yang tipe mana yang akan diurutkan.

  2. Jika data yang diurutkan adalah data yang numerik(1,8,9,3,6,5,2,4,0). 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 : “

    1. FOR I = 1 TO N

    2. PRINT BIL( I );

    3. NEXT I

    4. PRINT:PRINT

    5. PRINT “LANGKAH PENGURUTAN : ”

    6. FOR J= 1 TO N-1

    7. FOR I= 1 TO N-J

    8. IF BIL( I ) < BIL( I+1 ) THEN 151

    9. TUKAR=BIL( I )

    10. BIL( I ) = BIL( I+1 )

    11. BIL( X+1 ) = TUKAR

    12. NEXT I

    13. PRINT “LANGKAH KE : “; J;” : ”

    14. FOR K=1 TO N

    15. PRINT BIL(K);

    16. NEXT K

    17. PRINT

    18. NEXT J

    19. PRINT:PRINT”SETELAH URUT : ”

    20. PRINT”DATA”,”URUT KECIL”,”URUT BESAR”

    21. FOR I= 1 TO N

    22. PRINT Y( I ),BIL( I ),BIL( N+1-I)

    23. NEXT I

    24. END

    Kemudian:  

  3. For I = 1 to N

  4. Print Abjad$( I );

  5. Next I

  6. Print:Print

  7. Print”Langkah Pengurutan”

  8. For J = 1 to N-1

  9. For I = 1 to N-J

  10. If Abjad$( I ) < Abjad$( I+1 ) then 151

  11. Tukar$ = Abjad$( I )

  12. Abjad$( I ) = Abjad$( I+1 )

  13. Abjad$( X+1 ) = Tukar$

  14. Next I

  15. Print”Langkah ke:”; J ;” : ”

  16. For K = 1 to N

  17. Print Abjad$(K);

  18. Next K

  19. Print

  20. Next J

  21. Print: Print”Setelah Urut : ”

  22. Print “Data”,”Urut kecil”,”Urut besar”

  23. For I = 1 to N

  24. Print Y$( I ), Abjad$( I ), Abjad$( N+1-I)

  25. Next I

  26. End

      Jika data yang diurutkan adalah data yang alphabetik (a,h,d,k,u,e,t,c,v,x,b,n), dan Misalnya karakter “A” adalah bernilai lebih kecil dari karakter “B”, karena nilai ekuivalen A untuk kode ASCII adalah 65 dan b adalah 66. Maka langkah-langkahnya adalah sebagai berikut:

       

      REM * SORTING MENGURUTKAN ABJAD*

      REM * METODE BUBBLE SORT *

      1. CLS

      2. LOCATE 2,4:INPUT “BANYAK ABJAD YANG DIURUTKAN : “, N

      3. DIM ABAJD$(N),Y$(N)

      4. PRINT

      5. LOCATE 4,4:PRINT “INPUT ABJAD YG AKAN DIURUTKAN : “

      6. FOR I = 1 TO N STEP 1

      7. LOCATE 4+I,4:PRINT” ABJAD KE – “;I;” : “

      8. LOCATE 4+I,22:INPUT “”,ABJAD$ ( I )

      9. Y$( I ) = ABJAD$( I )

      10. NEXT I

      11. PRINT

      12. CLS

      13. PRINT “DATA SEBELUM URUT : “

      Kemudian:

    1. For I = 1 to N

    2. Print Abjad$( I );

    3. Next I

    4. Print:Print

    5. Print”Langkah Pengurutan”

    6. For J = 1 to N-1

    7. For I = 1 to N-J

    8. If Abjad$( I ) < Abjad$( I+1 ) then 151

    9. Tukar$ = Abjad$( I )

    10. Abjad$( I ) = Abjad$( I+1 )

    11. Abjad$( X+1 ) = Tukar$

    12. Next I

    13. Print”Langkah ke:”; J ;” : ”

    14. For K = 1 to N

    15. Print Abjad$(K);

    16. Next K

    17. Print

    18. Next J

    19. Print: Print”Setelah Urut : ”

    20. Print “Data”,”Urut kecil”,”Urut besar”

    21. For I = 1 to N

    22. Print Y$( I ), Abjad$( I ), Abjad$( N+1-I)

    23. Next I

    24. End 

Flowchartnya :

Halaman1

Halaman 2.

September 25, 2007 - Posted by | tugas1

Belum ada komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: