Yusuke.M #3536(2007/10/27 07:32 GMT) [ FORTRAN ] Rating0/0=0.00
なんかFortranがようやく分かってきた。
1 2 3 4 5 6 7 8
INTEGER i INTEGER keta read(*, *) i keta = INT(ALOG10(FLOAT(i))) + 1 write(*, *) '桁数:', keta, ' 最大桁:', 10 ** (keta - 1) end
Rating0/0=0.00-0+
[ reply ]
Yusuke.M
#3536()
[
FORTRAN
]
Rating0/0=0.00
INTEGER i INTEGER keta read(*, *) i keta = INT(ALOG10(FLOAT(i))) + 1 write(*, *) '桁数:', keta, ' 最大桁:', 10 ** (keta - 1) endRating0/0=0.00-0+
[ reply ]