《掷骰子》参考教案.docVIP

PAGE2/NUMPAGES2

第六课掷骰子

学习目标：

1．进一步熟悉TextWindow和Math两个对象的常用操作。

了解人机交互的方法。

3．理解循环语句While…EndWhile，并能灵活地使用该语句编写循环结构的程序。

重点难点：

理解循环语句While…EndWhile是本课的重点，也是难点。While…EndWhile和For…EndFor都能实现程序的循环运行，但While…EndWhile循环语句更加灵活，用For…EndFor语句能够实现的循环都能用While…EndWhile实现。

(一)导入例子：编写一个模拟掷骰子比大小的游戏.程序如下：

WhileTrueTextWindow.WriteLine(比赛开始，请甲按Enter投掷骰子)TextWindow.PauseWithoutMessage()

a=Math.GetRandomNumber(6)

TextWindow.WriteLine(甲投掷的骰子点数是：+a)

TextWindow.WriteLine(请乙按Enter投掷骰子)TextWindow.PauseWithoutMessage()

b=Math.GetRandomNumber(6)

TextWindow.WriteLine(乙投掷的骰子点数是：+b)

IfabThenTextWindow.WriteLine(甲输了！)

Endif

IfbaThenTextWindow.WriteLine(乙输了！)

EndIf

Ifa=bThenTextWindow.WriteLine(平局！)

EndIf

TextWindow.Pause()

TextWindow.Clear()

Endwhile

新授

一、人机交互程序体现在以下几条语句：

TextWindow.WriteLine(比赛开始，请甲按Enter投掷骰子)

a=Math.GetRandomNumber(6)该操作能随机地产生1-6之间的数，相当于”掷骰子“

TextWindow.Pause()暂停程序的运行语句。

文本窗口中显示的：pressanykeytocontinue...（按任意键继续）

while…endwhile循环语句

循环语句：1、for...endfor循环语句：该语句需要指定循环的次数

2、while...endwhile：用于不知道循环次数的情况。

格式：while条件语句组endwhile作用：while和endwhile共同组成循环语句。程序执行到while时，判断〈条件〉是否成立。当条件成立时，执行循环体语句组，遇到endwhile时，回头再检验条件是否成立……如此循环。当条件不成立时，结束循环，执行endwhile后面的语句。

三、while...endwhile语句可以控制循环的次数while...endwhile语句的使用非常灵活，它也可以控制循环的次数。例如：计算1+2+3...+100，可以使用while...endwhile循环语句。

sum=0i=1whilei=100sum=sum+ii=i+1endwhilegraphicswindow.fontsize=30graphicswindow.drawtext(100,80,1+2+3+...+100=+sum)

操作练习

编写程序计算：1+2+3+…，加到多少时，累加的和sum大于1000？

程序如下：

sum=0i=1Whilesum=1000sum=sum+ii=i+1EndWhile

楠楠想把零花钱存起来买一台1800元的手机，她第一个月存100元，以后每月比前一个月多存10元，她想知道需要存多少个月才能买手机？

程序如下：sum=0i=0Whilesum=1800sum=sum+i*10+100i=i+1EndWhileTextWindow.WriteLine(存钱的月份数：+i)

五、小结