Bt:Chuyen He 10 sang he 2

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Bt:Chuyen He 10 sang he 2

Bài gửi  hiepxuan20008 on 2010-11-20, 13:39

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

hiepxuan20008

Tổng số bài gửi : 1
Join date : 20/11/2010

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bt:Chuyen He 10 sang he 2

Bài gửi  assassin64 on 2010-12-24, 19:47

Đây là bài chuyển số decimal sang hexa, tương tự như chuyển từ decimal sang binary. Mong góp ý:

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ử tongue

assassin64

Tổng số bài gửi : 5
Join date : 30/12/2009

Xem lý lịch thành viên

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết