第六课 掷骰子 课件

课件7张PPT。 第六课:掷骰子一、程序
While”True”
Textwindow.writelne(“比赛开始，请甲按Enter投骰子。“）
Textwingow.pause( )
a=Math.GetRandomNumber(6)
Textwindow.writelne(“甲投的骰子点数是：“+a。“）
Textwindow.writelne(“比赛开始，请乙按Enter投骰子。“）
Textwingow.pause( )
b=Math.GetRandomNumber(6)
Textwindow.writelne(“乙投的骰子点数是：“+b。“）
If a Textwindow.writelne(“甲输了！”）
EndIF
If b Textwindow.writelne(“乙输了！”）
EndIF
If a=b Then
Textwindow.writelne(“平局！”)
EndIF
Textwingow.pause( )_____暂停程序
Textwingow.clear( )
Endwhile
程序分析
Textwindow.writelne
(“比赛开始，请甲按Enter投骰子。“）
Math.GetRandomNumber(6）
骰子1———6可任意设立一个数
a= Math.GetRandomNumber(6）
a的点数为6
b= Math.GetRandomNumber(5）
b的点数为5
If a>b Then
EndIF
运行结果：a>b
While…..EndWhile循环语句
{格式}
While<条件>
<语句组>
EndWhile
{作用}
While和EndWhile共同组成循环语句。程序执行到While时，<条件>是否成立。当<条件>成立时，执行循环体<语句组>，遇到EndWhile时，在检验<条件>是否成立…….如此循环。
当<条件>不成立时，结束循环，执行EndWhile后面的语句。
While…..EndWhile循环语句流程图
条件EndWhile后的语句语句组成立如果一直循环（条件）要一直加”True”因条件表达式1=1和5>3都是“成立”的其值都是TrueTextwingow.pause( )
Textwingow.clear( )
Endwhile
While…..EndWhile可以控制循环次数
Sum=0
For i=1 to 89 step 1
sum=sum+i
Endfor
GraphicsWindow.FontSize=30显示字体大小，
GraphicsWindow.DrawText(100,80,”1+2+3…+100=“+sum)
可以改写为：
Sum=0
i=1
While i<=89
i=i+1
Endwhile……..
GraphicsWindow.FontSize=30显示字体大小，
GraphicsWindow.DrawText(100,80,”1+2+3…+100=“+sum)
总结