Konversi Bilangan

1. Konversi biner ke desimal
Yaitu dengan cara mengalikan masing-masing bit dalam bilangan dengan position valuenya. 

 

Contoh :
1 0 0 1₂                                  1 x 2 ⁰ = 1

                                               0 x 2 ¹ = 0

                                               0 x 2 ² = 0                               

                                               1 x 2 ³  = 8  kemudian dijumlahkan

Bilangan desimal                         18₁₀

Algoritama konversi bilangan biner ke desimal:

1.    Mulai

2.    Baca biner

3.    Desimal=desimal div 10

4.    Sisa= desimal mod 10

5.    Desimal=desimal+sisa*b

6.    b= b*2

7.    jika biner 0 pergi ke 1

8.    pergi ke 3

9.    cetak desimal 10. selesai

2. Konversi dari bilangan Desimal ke biner
Yaitu dengan cara membagi bilangan desimal dengan dua kemudian diambil sisa pembagiannya.

Contoh:

45 ₁₀    =
45 : 2  = 22 + sisa    1
22 : 2  = 11 + sisa    0
11 : 2 = 5    + sisa    1
5 : 2     = 2  + sisa    1
2 : 2     = 1  + sisa    0

 01101₂     ditulis dari bawah ke atas

Algoritma konversi bilangan desimal ke biner: 
    

1.    Mulai

2.    Baca desimal

3.    Desimal=desimal div 2

4.    Sisa= desimal mod 2

5.    d= d*2

6.    biner= biner + sisa * d sebelumnya

7.    jika desimal 0 pergi ke 9

8.    pergi ke 3

9.    cetak biner 

10. selesai

      

PROGRAM PASCAL KONVERSI BILANGAN

1.    biner ke desimal

program konversi_biner;

uses wincrt;

var desimal, d, sisa, biner: integer;

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.

2.    Desimal ke biner

program konversi_desimal;

uses wincrt;

var desimal, b, sisa, biner: integer;

begin

write(‘angka biner=’); readln(biner);

b:=1;desimal:=0;

repeat

            sisa:= biner mod 10;

biner:= biner div 10

desimal:=desimal+ sisa*b;

b:=b*2;

until biner=0;

write(‘desimal=’,desimal);

end.