program biner_desimal;
uses wincrt;
var bilbiner:string;

function pangkat(a,b:integer):integer;
var i, hasil:integer;
begin
hasil:=1;
for i:=1 to b do
begin
hasil:=hasil*a;
end;
pangkat:=hasil;
end;

function bin2dec(biner:string):integer;
var n,sum,i:integer;
begin
n:=length(biner);
sum:=0;
for i :=n-1 downto 0 do
begin
if(biner[n-1]='0')then sum:=sum+0*pangkat(2,i)
else if (biner[n-1]='1')then sum:=sum+1*pangkat(2,i);
end;
bin2dec:=sum;
writeln('bin 2 dec');
end;
begin
clrscr;
writeln('konversi bilangan biner ke desimal');
writeln;
write('masukkan bilangan biner= ');
readln(bilbiner);
write('bilangan desimalnya= ',bin2dec(bilbiner));
readkey;

end.

0 komentar:

Post a Comment