一、p27 10题题目如下，从一批由45件正品，5件次品组成的产品中任取三件，其中恰有一件次品的概率 # 定义正品和次品的数量 num_good = 45 num_bad = 5 # 计算总的产品数量 num_total = num_good + num_bad # 计算抽取3件产品的组合数 comb_num = choose(num_total, 3) # 计算恰有一件次品的组合数 comb_num_bad_one = choose(num_bad, 1) * choose(num_good, 2) # 计算概率 prob = comb_num_bad_one / comb_num # 输出结果 print(paste(“恰有一件次品的概率为：”, round(prob, 4)))

二、p28 31题用r语言写一个程序解题，题目如下，设每次射击的命中率为0.2，问至少进行多少次独立射击才能使至少击中一次的概率不小于0.9

n <- 0 prob_miss <- 1 - 0.2 prob_hit <- 1 - prob_miss while(prob_miss >= 0.1){ n <- n + 1 prob_miss <- prob_miss * prob_miss prob_hit <- prob_miss * (1 - prob_miss) / prob_miss } print(paste0(“至少需要进行”, n, ” 次射击”))