演示文稿第六课掷骰子.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 ab Then Textwindow.writelne(“甲输了！”） EndIF If ba Then 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 ab Then EndIF 运行结果：ab While…..EndWhile循环语句 {格式} While条件 语句组 EndWhile {作用} While和EndWhile共同组成循环语句。程序执行到While时，条件是否成立。当条件成立时，执行循环体语句组，遇到EndWhile时，在检验条件是否成立…….如此循环。 当条件不成立时，结束循环，执行EndWhile后面的语句。 While…..EndWhile循环语句流程图 条件 EndWhile后的语句 语句组 成立 如果一直循环（条件）要一直加”True”因条件表达式1=1和53都是“成立”的其值都是True Textwingow.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)