一、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)))

##“恰有一件次品的概率为： 0.2526”

二、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, ” 次射击”))

##“至少需要进行4 次射击” >