Program Pascal Konversi Bilangan Desimal ke Bilangan Biner

Program KONVERSI;
Uses wincrt;
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
Clrscr;
     Gotoxy(2,2);
     Write('MASUKKAN BILANGAN DESIMAL : ');
     Readln(bilangan);
     Gotoxy(2,4);
     Write('BILANGAN BINERNYA         : ', decToBin(bilangan));
End.

Artikel Terkait