Question

Cách chuyển số nhị phân sang số thập phân nhanh gọn. Bạn nào bt giúp mk vs.

Mk cảm ơn nhiều !

Answer 1

uses crt;
var s:string;
a:array[1..100] of integer;
n,i,k,gt:integer;
begin
clrscr;
write('nhap vao xau nhi phan:');
readln(s);
for i:=1 to length(s) do
if s[i]='1' then
a[i]:=1
else
a[i]:=0;
n:=0;
for i:=1 to length(s) do
begin
gt:=1;
for k:=1 to length(s)-1 do
gt:=gt*2;
n:=n+a[i]*gt;
end;
write('so thap phan la:',n);
readln;
end.