第六课 掷骰子 课件

课件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 ab 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) 总结