Konversi Desimal ke Biner

Desimal ke binner

Ambil sebuah contoh bilangan desimal yang akan dikonversi ke biner. Setelah itu, lakukan konversi masing2

Misalkan bilangan desimal yang ingin dikonversi adalah 2510.

Maka langkah yang dilakukan adalah membagi tahap demi tahap angka 2510 tersebut dengan 2, seperti berikut :

25 : 2 = 12,5

Jawaban di atas memang benar, tapi bukan tahapan yang kita inginkan. Tahapan yang tepat untuk melakukan proses konversi ini sebagai berikut :

25 : 2 = 12 sisa 1.    —–> Sampai disini masih mengerti kan?

Langkah selanjutnya adalah membagi angka 12 tersebut dengan 2 lagi. Hasilnya sebagai berikut :

12 : 2 = 6 sisa 0.      —–> Ingat, selalu tulis sisanya.

Proses tersebut dilanjutkan sampai angka yang hendak dibagi adalah 0, sebagai berikut :



25 : 2 = 12 sisa 1.

12 : 2 = 6 sisa 0.

6 : 2 = 3 sisa 0.

3 : 2 = 1 sisa 1.

1 : 2 = 0 sisa 1.

0 : 2 = 0 sisa 0….



Nah, setelah didapat perhitungan tadi, pertanyaan berikutnya adalah, hasil konversinya yang mana? Ya, hasil konversinya adalah urutan seluruh sisa-sisa perhitungan telah diperoleh, dimulai dari bawah ke atas.

Maka hasilnya adalah 0110012. Angka 0 di awal tidak perlu ditulis, sehingga hasilnya menjadi 110012. Sip?
berikut pemograman pascal untuk konversi desikmal ke biner

program konversi_biner;
uses wincrt;
var desimal,d,sisa,biner:longint;
begin
write('Angka Desimal');readln(desimal);
d:=0;
repeat
      sisa:=desimal mod 2;
      desimal:=desimal div 2;
      if (d=0)then
         d:=1
      else
          d:=d*10;
     biner:=biner+sisa*d
until desimal=0;
write ('Biner= ',biner);
end.

Posted in: 1311100133, biner, desimal, pascal, program pascal, program pascal biner, turbo pascal