9 例6.1】求:S=+ -+∴ 2!3! 20 考虑该问题有较高 double precision s, z s=0.0d0 的精度要求,因此用 z=0.0d0 双精度类型进行计算。 do5,k=1,20 编程思路在上一章已 Z=Z/k 经讨论过。 S=S+Z 5 continue 需注意对z的定义 print ,s end §2双精度类型数据 2021/2/249 2021/2/24 【例6.1】求： 20! 1 3! 1 2! 1 1! 1 S = + + ++ §2 双精度类型数据 考虑该问题有较高 的精度要求，因此用 双精度类型进行计算。 编程思路在上一章已 经讨论过。 double precision s,z s=0.0d0 z=0.0d0 do 5 , k=1,20 z=z/k s=s+z 5 continue print*,s end 需注意对z的定义