Program Konversi


PROGRAM KONVERSI



Bagaimana membuat program yang dapat mengkonversikan bilangan decimal menjadi bilangan biner?

            Nggak usah bingung, dibawah ini adalah syntax untuk program yang mengkonversikan bilangan decimal menjadi bilangan biner

Program konversi_desimal_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.




Bisakah membuat program kebalikannya ( program mengkonversikan bilangan biner menjadi  bilangan decimal)?

             Bisa dong!(hehehe). Syntaxnya seperti dibawah ini

Program konversi_biner;
uses wincrt;
var    
     desimal,b,sisa,biner:integer;
begin
     write (' angka biner '); readln (biner);
    b:=0;
      repeat  
     sisa:= biner mod 10;
     biner:= biner div 10;
     if (b=0) then
     b:=1
     else
     b:=b*2;
    desimal:= desimal+sisa*b;
     until biner = 0;
      write ('desimal=', desimal );
end.

Saya jamin program ini bisa jalan! "(^_^)"

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

0 komentar:

Posting Komentar