Chuyển đổi cơ sở từ cơ số 10 -> cơ số K
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.
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.
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.
Số HS THCS của năm 2009-2010 là: 10800-(10800x1/20)=10260(HS)
Số HS THCS của năm học 2010-2011 là: 10260-(10260x10%)=9234(HS)
25610=1000000002
1100110012=1⋅28+1⋅27+0⋅26+0⋅25+1⋅24+1⋅23+0⋅22+0⋅21+1⋅20=40910
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 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.