clip379 : 16000000の謎(2)
Created Mon Nov 22 15:46:11 2010
Last Modified Mon Nov 22 15:46:11 2010
program float
real*8 a
integer b
a = 0
b = 1000000
do i=1,18000000
if(b <= i) then
b = b + 100000
write(*,*) i, a
endif
a = a + 1e-6
enddo
end
*
Cited From:
clip379 : 16000000の謎(2)
real*8 a
integer b
a = 0
b = 1000000
do i=1,18000000
if(b <= i) then
b = b + 100000
write(*,*) i, a
endif
a = a + 1e-6
enddo
end