Program Konversi Desimal Biner

PROGRAM KONVERSI_DECIMAL BINER;

uses wincrt;

var bilangan, hasilbagi, sisa, desimal : integer;

biner : char;

bilanganbiner, hasilkonversi : string;

begin

readln (desimal);

hasilbagi := desimal div 2;

bilanganbiner := '';

while (hasilbagi >= 1) do

begin

sisa := desimal mod 2;

if (sisa = 0) then biner := '0'

else if (sisa = 1) then biner := '1';

bilanganbiner := biner + bilanganbiner;

desimal := hasilbagi;

hasilbagi := desimal div 2;

end;

hasilkonversi := '1' + bilanganbiner;

write('Dikonversikan ke bilangan biner hasilnya adalah : ', hasilkonversi);

readln;

end.