Distribution of 0 digits in factorial series: Difference between revisions
Content added Content deleted
(added pascal) |
m (→{{header|REXX}}: changed a comment.) |
||
| Line 443: | Line 443: | ||
!= ! * i /*calculate the factorial of BIG. */ |
!= ! * i /*calculate the factorial of BIG. */ |
||
end /*i*/ |
end /*i*/ |
||
if pos('E', !)>0 then do /*if |
if pos('E', !)>0 then do /*if in exponential format, get EXP. */ |
||
parse var ! 'E' x /*parse the exponent from the number. */ |
parse var ! 'E' x /*parse the exponent from the number. */ |
||
numeric digits x+1 /*set the decimal digits to X plus 1.*/ |
numeric digits x+1 /*set the decimal digits to X plus 1.*/ |
||