回覆列表
  • 1 # a不會愛的小笨蛋

    以下提供10進位制向2~16進位制轉換的函式,cc為10進位制長整型,函式返回的結果為字串:function convert_b(cc:longint;b:integer):string;var k,i,j:integer; bb:array[1..32] of char; bbb,s:string;begin {以下10進位制再轉為b進位制,b不超過16} k:=1; repeat j:=cc mod b; case j of 0..9:bb[k]:=chr(j+ord("0")); 10:bb[k]:="A"; 11:bb[k]:="B"; 12:bb[k]:="C"; 13:bb[k]:="D"; 14:bb[k]:="E"; 15:bb[k]:="F"; end; cc:=cc div b; if cc>0 then inc(k); until cc=0; bbb:=""; for i:=k downto 1 do bbb:=bbb+bb[i]; str(b:0,s); bbb:="("+bbb+")"+s; convert_b:=bbb;end;

  • 中秋節和大豐收的關聯?
  • 評價項羽的詩?