Teknik Informatika

guys gw kali ini mau share tentang konversi bilangan
nah dulu kita di kenalkan berbagai macam bilangan kan
sekarang di TI kita di kenalkan bilangan baru nih namanya bilangan binner dimana bilangan tersebut hanya berisi bilangan '0' dan '1' yang berarti 'TRUE' or 'FALSE' nah konversi dari desimal ke binner cukup ribet makanya di sini gw mau share sedikit tentang pembuatan program konversi desimal ke binner
nih script nya ada di bawah ini :

Uses crt;

Var     Des     : Integer;
        ulang   : char;
        Bin     : String;

begin
ulang:='y';
while ulang='y' do
Begin
Write ('Masukan Bilangan Desimal : ');
ReadLn (Des);
Bin := ' ';
Repeat
Begin
{Menghitung Biner Dari Sisa Hasil Bagi}
If Des mod 2 = 0 Then Bin := '0' + Bin
Else Bin := '1' + Bin;
{Membagi Bulat Bil Desimal}
Des := Des div 2;
End;
Until Des = 0;
WriteLn ('Bilangan Biner : ',Bin);
write ('Ulang Lagi [y/n] =');
readln(ulang);
clrscr;
End;
End.

simple kan nih output nya gw kasih juga

 pict : output