program poisson_random implicit none integer :: i real :: lambda, random_num, prob, poisson !设置随机数种子 call random_seed。 !设置泊松分布参数 lambda = 5.0 !生成随机数 do i = 1, 10 !生成介于0和1之间的随机数 call random_number(random_num) prob = 1.0 poisson = -1 do while (prob...