|
发表于 2006-12-19 16:57:54
|
显示全部楼层
给出一个fortran的实现,由 中华韧峰 提供
[php]
Character(Len=12) Function InttoStr(Num) Result(Rst)
Integer,Intent(in)::Num
Integer i,k1,k2,k
k2=Abs(Num)
If (K2<=9) Then
Rst=char(k2+48)
Else
k1=mod(k2,10)
Rst(12:12)=char(k1+48)
k2=(k2-k1)/10
i=12
k=1
Do While(k2>0)
k1=mod(k2,10)
i=i-1
k=k+1
Rst(i:i)=char(k1+48)
k2=(k2-k1)/10
EndDO
Rst=Rst(12-k+1:12)
EndIf
If (Num<0) Rst='-'//Rst
EndFunction
[/php] |
|