program konversiDecToBin;
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
bilangan := 200;
write('Bilangan binernya : ', decToBin(bilangan));
readln;
end.
Program Pascal untuk mengkonversi bilangan desimal ke biner
Written By Mangku on Selasa, 22 November 2011 | 13.41
Label:
Tutorial
0 komentar:
Speak up your mind
Tell us what you're thinking... !