DuNiaMuu.. DuNiakuu..

Bilangan desimal disusun atas 10 buah digit yakni 0,1,2,3,4,5,6,7,8,9. Karena digit penyusunnya sebanyak 10 maka disebut sebagai sistem bilangan berbasis 10. Bagaimana caranya agar sistem bilangan desimal ini dapat dikonversikan ke biner???? Hal ini dapat dilakukan dengan melakukan pembagian bilangan desimal dengan 2 hingga bilangan desimal tersebut lebih kecil dari 2. Bilangan biner adalah sisa hasil pembagian. Misalkan terdapat bilangan desimal 10 maka bilangan binernya adalah:
10 : 2 = 5 sisa 0
5 : 2 = 2 sisa 1
2 : 2 = 1 sisa 0
1 : 2 = 0 sisa 1

sehingga diperoleh bilangan biner adalah 1010. pembacaan bilangan biner ini dari bawah keatas loh… nah,,, yang ini tadi menghitungnya secara manual…sekarang kita bisa mengkonversikan bilangan desimal ke biner dengan menggunakan Pascal…

program desimalbiner;

uses wincrt;

var hasilbagi,desimal,sisa:integer;

biner,bilbiner,bin:string;

begin

write('desimal=');

read(desimal);

hasilbagi:=desimal div 2;

bilbiner:=' ';

while(hasilbagi>=1)do

begin

sisa:=desimal mod 2;

if(sisa=0)then biner:='0'

else if(sisa=1)then biner:='1';

bilbiner:=biner+bilbiner;

desimal:=hasilbagi;

hasilbagi:=desimal div 2

end;

bin:='1'+bilbiner;

writeln('hasil biner=',bin);

end.