|
Nama Program
Konversi Binner ke Desimal
Bahasa
Pascal
uses wincrt;
type input=string[16];
procedure bin2dec(s:input;var k:word);
var i,j,a:integer;
begin
if s[length(s)]='1' then k:=1;
for i:=length(s)-1 downto 1 do
if s[i]='1' then
begin
a:=1;
for j:=i to length(s)-1 do a:=a*2;
k:=k+a;
end;
end;
var hasil:word;
data:input;
begin
readln(data);
bin2dec(data,hasil);
writeln(hasil);
end.
Konversi Binner ke Desimal
Bahasa
Pascal
uses wincrt;
type input=string[16];
procedure bin2dec(s:input;var k:word);
var i,j,a:integer;
begin
if s[length(s)]='1' then k:=1;
for i:=length(s)-1 downto 1 do
if s[i]='1' then
begin
a:=1;
for j:=i to length(s)-1 do a:=a*2;
k:=k+a;
end;
end;
var hasil:word;
data:input;
begin
readln(data);
bin2dec(data,hasil);
writeln(hasil);
end.
