Program pascal konversi desimal ke biner

By Masprastyo

Saturday, July 6, 2013

Assalamu'alaykum..
kini Dosenmuda mau bagi2 program lagi nih.. Program ini berguna untuk mengubah nilai desimal ke biner. langsung aja cekidot.

Program konversiDecToBin;
uses crt;
var
        bilangan:integer;
function dectobin(desimal:integer) :string;
var
        hasilbagi,sisa:integer;
        bin:char;
        bilbiner:string;

begin
        clrscr;

        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';

        {Menggabungkan sisa pada setiap perulangan untuk membentuk digit biner}

                bilbiner:=bin+bilbiner;
                desimal:=hasilbagi;
                hasilbagi:=desimal div 2;
        end;
        dectobin:='1' + bilbiner;
end;
      begin
      clrscr;

        write('masukkan bilangan Desimal ?'); readln(bilangan);

        write('Bilangan binernya : ', dectobin(bilangan));
        readln;

end.

kalau ada pertanyaan langsung aja komen ya :)

Share :

Facebook Twitter Google+