MEMBUAT PROGRAM KONVERSI DESIMAL KE BINER

Teman-teman dan saudaraku di Indonesia dan seluruh jagat raya, kali ini saya akan sharing sebuah listing program konversi bilangan desimal ke bilangan biner.

Semoga bermanfaat.

program konversiDecToBin;
var bilangan : integer;

function decToBin(desimal : integer) : string;
var hasilBagi, sisa : integer;
    bin : char;
    bilBiner : string;
begin
    hasilBagi := desimal div 2;
    bilBiner := '';

    { syarat perulangan : selama hasil bagi lebih besar sama dengan 1 }

    while (hasilBagi >= 1) do
    begin
         sisa := desimal mod 2;
         if (sisa = 0) then bin := '0'
              else if (sisa = 1) then bin := '1';

         { menggabung sisa pada setiap perulangan untuk membentuk digit biner}

         bilBiner := bin + bilBiner;

         desimal := hasilBagi;
         hasilBagi := desimal div 2;
    end;
    decToBin := '1' + bilBiner;
end;

begin
    bilangan := 200;
    write('Bilangan binernya : ', decToBin(bilangan));
    readln;
end.

Listing program di atas merupakan program pengubah bilangan desimal ke biner dalam pemrograman pascal.

Semoga bermanfaat.