Question

编写一个抛硬币的程序，计算在n次抛掷过程中正面向上的频率．

Answer 1

答案：略
解析：

程序1： INPUT“n=”；n i=1 s=0 WHILE　i＜=n IF　RND(　)＞0.5　THEN s=s＋1 END　IF i=i＋1 WEND PRINT“P=”；s/n END 程序2： INPUT“n=”；n i=1 s=0 DO IF　RND(　)＞0.5　THEN s=s＋1 END　IF i=i＋1 LOOP UNTIL　i＞n PRINT“P=”；s/n END