Hickerson series of almost integers: Difference between revisions
Hickerson series of almost integers (view source)
Revision as of 14:36, 30 October 2019
, 4 years ago→{{header|Fortran}}: even if there is a real(8) kind, "q" is not standard conformant: replaced this
(Ada version) |
m (→{{header|Fortran}}: even if there is a real(8) kind, "q" is not standard conformant: replaced this) |
||
Line 576:
=={{header|Fortran}}==
<lang fortran>
implicit none▼
integer, parameter :: q = selected_real_kind(30)
integer, parameter :: l = selected_int_kind(15)
▲implicit none
real(
integer
l2 = log(2.0_q)
do
do
k = floor((s - floor(s, l)) * 10)
else▼
endif▼
end do▼
▲ is = s
▲ if (f == 0 .or. f == 9) then
▲ write(*,10)n,s,''
▲ else
▲ write(*,10)n,s,' NOT'
▲ endif
▲end do
▲10 format('h(',i2,') = ',F23.3,' is',A,' an almost-integer')
▲end program Hickerson</lang>
{{out}}
<pre>
h( 1) = 1.041 is an almost-integer
Line 619 ⟶ 621:
h(17) = 130370767029135900.458 is NOT an almost-integer
</pre>
=={{header|FreeBASIC}}==
{{libheader|GMP}}
|