Program Konversi
PROGRAM KONVERSI
Bagaimana membuat program yang dapat mengkonversikan bilangan decimal menjadi bilangan biner?
Nggak usah bingung, dibawah ini adalah syntax untuk program yang mengkonversikan bilangan decimal menjadi bilangan biner
uses wincrt;
var
desimal,d,sisa,biner:integer;
begin
write (' angka desimal '); readln (desimal);
d:=0;
repeat
sisa:= desimal mod 2;
desimal:= desimal div 2;
if (d=0) then
d:=1
else
d:=d*10;
biner := biner+sisa*d;
until desimal = 0;
write ('biner=', biner );
end.
Bisakah membuat program kebalikannya ( program mengkonversikan bilangan biner menjadi bilangan decimal)?
Bisa dong!(hehehe). Syntaxnya seperti dibawah ini
Program konversi_biner;
uses wincrt;
var
desimal,b,sisa,biner:integer;
begin
write (' angka biner '); readln (biner);
b:=0;
repeat
sisa:= biner mod 10;
biner:= biner div 10;
if (b=0) then
b:=1
else
b:=b*2;
desimal:= desimal+sisa*b;
until biner = 0;
write ('desimal=', desimal );
end.
Saya jamin program ini bisa jalan! "(^_^)"
0 komentar:
Posting Komentar