thuongth467

mình đang cần một số bài code chuyển từ hệ decimal sang hề hex trong shell script. bạn nào có thì gửi cho mình nhá: .
Thanhs!!!

__________________

NHQuyNam

shell script có phải là vbscript hok ?

ở đây mình viết hàm bằng pascal, bạn chịu khó chuyển sang ngôn ngữ khác nhé :

function dectohex(n:integer):string;
var i:byte;
t,tam:string;
begin
dectohex:='';
tam:='';
t:='';
repeat
case (n mod 16) of
10:tam:=tam+'A';
11:tam:=tam+'B';
12:tam:=tam+'C';
13:tam:=tam+'D';
14:tam:=tam+'E';
15:tam:=tam+'F';
else
str(n mod 16,t);
tam:=tam+t;
end;
n:=n div 16;
until n=0;
for i:=length(tam) downto 1 do dectohex:=dectohex+tam[i];
end;

__________________
Thà bỏ bạn gái chứ không bỏ lập trình

Mời các bạn tham gia diễn đàn của mình : http://diendanpascal.tk