chuyển đổi một số từ cơ số 2 sang cơ số 10
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Nguyên tắc của phương pháp chuyển đổi từ hệ cơ số 10 sang hệ cơ số 2 là lấy số cần chuyển đổi chia cho 2 (kết quả chỉ lấy phần nguyên), sau đó tiếp tục lấy kết quả chia 2 (và cũng chỉ lấy phần nguyên), kết quả số nhị phân thu được là tập hợp các số dư của các phép chia.
uses crt;
var d:array[1..100]of byte;
n,i,j,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
repeat
write('Nhap he dem can doi:'); readln(k);
until (k=2) or (k=8) or (k=16);
i:=1;
repeat
d[i]:=n mod k;
n:=n div k;
i:=i+1;
until n=0;
writeln('So he ',k,' la: ');
for j:=i-1 downto 1 do
begin
case d[j] of
0..9:write(d[j]);
10..16:write(chr(d[j]+55));
end;
end;
readln;
end.
25610=1000000002
1100110012=1⋅28+1⋅27+0⋅26+0⋅25+1⋅24+1⋅23+0⋅22+0⋅21+1⋅20=40910
uses crt;
var st:string;
i,j,n,d,x,y:integer;
kq,lt:longint;
begin
clrscr;
write('nhap so nhi phan:'); readln(st);
d:=length(st);
kq:=0;
for i:=1 to d do
begin
lt:=1;
for j:=1 to d-i do
lt:=lt*2;
val(st[i],x,y);
kq:=kq+x*lt;
end;
writeln(st,' doi sang he 10 la: ',kq);
readln;
end.