Bt:Chuyen He 10 sang he 2
2 posters
Trang 1 trong tổng số 1 trang
Bt:Chuyen He 10 sang he 2
program chuyenhe;
var N,i,a,b[1],b[2],b[3],b[4],b[5],b[6],b[7],b[8]:byte;
begin
write('nhap so can convert');
readln(N);
a:=N;
i:=1;
b[1]:=0;
b[2]:=0;
b[3]:=0;
b[4]:=0;
b[5]:=0;
b[6]:=0;
b[7]:=0;
b[8]:=0;
while a<>0 do
begin
b[i]:=a mod 2;
b[1] b[2] b[3] b[4] b[5] b[6] b[7] b[8];
a:=a div 2;
i:=i+1;
end;
writeln('vay ,N,' He 10 chuyen thanh , b[1] b[2] b[3] b[4] b[5] b[6] b[7] b[8],' he 2');
readln
end.
Cho Minh` hoi~ can` thay b[b],b[2],b[3].......... thanh` j` cho hop li
var N,i,a,b[1],b[2],b[3],b[4],b[5],b[6],b[7],b[8]:byte;
begin
write('nhap so can convert');
readln(N);
a:=N;
i:=1;
b[1]:=0;
b[2]:=0;
b[3]:=0;
b[4]:=0;
b[5]:=0;
b[6]:=0;
b[7]:=0;
b[8]:=0;
while a<>0 do
begin
b[i]:=a mod 2;
b[1] b[2] b[3] b[4] b[5] b[6] b[7] b[8];
a:=a div 2;
i:=i+1;
end;
writeln('vay ,N,' He 10 chuyen thanh , b[1] b[2] b[3] b[4] b[5] b[6] b[7] b[8],' he 2');
readln
end.
Cho Minh` hoi~ can` thay b[b],b[2],b[3].......... thanh` j` cho hop li
hiepxuan20008- Tổng số bài gửi : 1
Join date : 20/11/2010
Re: Bt:Chuyen He 10 sang he 2
Đây là bài chuyển số decimal sang hexa, tương tự như chuyển từ decimal sang binary. Mong góp ý:
Bạn có thể thay hằng NumSys từ 16 sang 2 xem có chạy được không??? Mình chưa thử
- Code:
Program B11;
Uses Crt;
Const
NumSys=16;
MyHex: Array[0..15] of Char =
('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
Var
N,Org: Longint;
S: String;
i,len: Integer;
Begin
ClrScr;
Write('Nhap so nguyen N: '); Readln(N);
S:=''; Org:=N;
While (N>0) do
Begin
i := N mod NumSys;
S := MyHex[i]+S;
N := N div NumSys;
End;
Write(S);
Readln;
End.
Bạn có thể thay hằng NumSys từ 16 sang 2 xem có chạy được không??? Mình chưa thử
assassin64- Tổng số bài gửi : 5
Join date : 30/12/2009
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|