第六课----掷骰子 课件

课件6张PPT。第六课 掷骰子源程序代码While "true" TextWindow.WriteLine("比赛开始，请甲按Enter投掷骰子。") TextWindow.Pause() a=Math.GetRandomNumber(6) TextWindow.WriteLine("甲投掷的骰子点数是："+a) TextWindow.WriteLine("请乙按Enter投掷骰子。") TextWindow.Pause() b=Math.GetRandomNumber(6) TextWindow.WriteLine("乙投掷的骰子点数是："+b) If ab Then TextWindow.WriteLine("乙输了！") EndIf If a=b Then TextWindow.WriteLine("平局！") EndIf TextWindow.Pause() TextWindow.Clear() EndWhile人机交互程序分析TextWindow.WriteLine("比赛开始，请甲按Enter投掷骰子。")由于人机交互程序需要操作者根据提示进行输入，所以提示信息要写清楚。TextWindow.Pause()该语句的作用是暂停程序的运行，并在屏幕上显示： Press any key to continue…（按任意键继续…）a=Math.GetRandomNumber(6)当操作者按下任意键后，通过该语句随机产生一个1~6之间的数If a <语句组> EndWhile条件语句组EndWhile后的语句成立不成立例如： While “True” TextWindow.WriteLine("比赛开始，请甲按Enter投掷骰子。") TextWindow.Pause() …… TextWindow.Clear() //该语句作用是清屏 EndWhile使用While…EndWhile循环语句计算1+2+3+…+100=？sum=0 i=1 While i<=100 sum=sum+i i=i+1 EndWhile GraphicsWindow.FontSize=30 GraphicsWindow.DrawText(100,80,"1+2+3+...+100="+sum)完成课本练习题2、编写程序计算：1+2+3+…，加到多少时，累加的和sum大于1000？参考程序： sum=0 i=0 While sum<=1000 i=i+1 sum=sum+i EndWhile GraphicsWindow.FontSize=20 GraphicsWindow.DrawText(10,100,"1+2+3+...,加到"+i+"时，累加的和sum大于1000")