Program Konversi Bilangan Desimal Ke Biner Pascal

OVERDIV - Contoh Program Konversi Bilangan Desimal (Decimal) ke Biner Pascal menggunakan Turbo Pascal for Windows 1.5 (TPW 1.5)

Bagi yang belum punya TPW 1.5, silahkan download aplikasinya disini >>

BERIKUT CODING PROGRAMNYA :

program destobin;
uses wincrt;

var
Des : integer;
Bin : string;

begin
writeln('Konversi Bilangan Desimal Ke Biner');
writeln('==================================');
writeln;
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;
writeln('Hasil Konversi');
writeln('==============');
writeln;
WriteLn ('Bilangan Biner : ',Bin);
end.

SCREENSHOT :

SEMOGA BERMANFAAT :)

Tweet