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

课件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 a TextWindow.WriteLine("甲输了！")
EndIf
If a>b 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 TextWindow.WriteLine("甲输了！")
EndIf使用条件判断语句比较甲和乙分别产生的骰子点数进行比较While…EndWhile循环语句【格式】
While <条件>
<语句组>
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")