【正确答案】几何分布p_k=P{X=k}=q^k-1p，k=1，2，…
   递推公式：
   p₁=p
   p_k+1一qp_k，k=1，2，…
   算法
   1．产生(0，1)均匀分布伪随机数u
   2．t←p，F←t，q←1-p，x←1
   3．while u＞F
   4．t←t*q，F←F+t，x←x+1
   5．return x