2012.12.17 星期一

教学内容：数组的应用（一）

教学目的：掌握数据的定义、使用、访问、控制

教学重点：数组的运用

教学难点：数据下标的控制

教学时间：2课时

教学方法：理时一体

教学过程：

一、复习、巩固、导入

1.斐波数列

1)数列：1　1　2　3　5　8　13　21　34　55　89....

2)要求：一个数列前两项是1，从第三项开始的每项都是前两项的数字之和，请输出这个数列的前20项

3)分析：根据数列的位置，申请用数组来描述相应数列中的位置，公式为 a(i)=a(i-1)+a(i-2)

4)代码：

clea

dime a(20)

a(1)=1

a(2)=1

for i=3 to 20

a(i)=a(i-1)+a(i-2)

endfor

for i=1 to 20

?? a(i)

next

return

4)其他方法：（请大家分析）

clear

a=1

b=1

?? a,b

for i=3 to 20

c=a+b

a=b

b=c

?? c

endfor

return

2.杨辉三角(前10行)

1

1　1

1　2　1

1　3　3　1

1　4　6　4　1

1　5　10　10　5　1

......

代码：

clea

dime a(10,10)

for i=1 to 10

a(i,1)=1

a(i,i)=1

endfor

for i=3 to 10

for j=2 to i-1

a(i,j)=a(i-1,j)+a(i-1,j-1)

endfor

endfor

for i=1 to 10

for j=1 to i

?? a(i,j)

endfor

?

endfor

return

3.二维图形

　　　　　　　　１

　　　　　　１　２　１

　　　　１　２　３　２　１　

　　１　２　３　４　３　２　１

１　２　３　４　５　４　３　２　１

　　１　２　３　４　３　２　１　

　　　　１　２　３　２　１　

　　　　　　１　２　１

　　　　　　　　１

clea

for i=-4 to 4

?? spac(20+abs(i))

for j=-(5-abs(i)-1) to 5-abs(i)-1

?? str(5-abs(i)-abs(j),1)

endfor

?

endfor

return

4.N宫格

1）九宫格（等于15）

8　1　6

3　5　7

4　9　2

2）25宫格（等于65）

17　24　 1　 8　15

23　 5　 7 　14　16

 4　 6　13　20　22

10　12　19　21　 3

11　18　25　 2　 9

二、数组的应用

1.数列

2.排序（重点）

三、练习

四、总结

五、作业

2012.12.12 星期三

教学内容：双重循环的控制

教学目的：掌握循环嵌套的运用

教学方法：理实一体

教学时间：3课时

教学重点：双重循环中循环变量的影响与应用

教学难点：循环变量的影响

教学过程：

一、复习、巩固、导入

上节课，我们学习了程序控制中的语法，这节课，我们重点讨论一下双重循环的控制与应用。

二、新授

1.上节的作业

ABCDEFG

 ABCDEF

   ABCDE

     ABC

       A

2.程序分析

3.循环控制与影响

三、练习

1.求s=1!+2!+3!+4!+.......10!

2.打印如下图形

　　　　１

　　　１２１

　　１２３２１

　１２３４３２１

１２３４５４３２１

四、总结

循环控制中的

五、作业

2012.12.10 星期一

教学内容：程序分析

教学目的：掌握语句与语法、函数与调用、逻辑与控制、应用与算法的关系

教学重点：逻辑与控制

教学难点：应用与算法

教学时间：2课时

教学方法：理时一体

教学过程：

一、复习、巩固、导入

上节我们分析了“高考倒计时”的程序段，了解了程序运行、函数应用、程序控制等，这节课，我们分析提练出相关的知识点、难点。

二、程序总结与分析

三、练习

1.打印如下图形（10个星）

**********

方法：

1）? "**********"

2）? replicate("*",10)

3）

for i=1 to 10

?? "*"

next

2.打印如下图形（两行10个星）

for i=1 to 10

?? "*"

next

?

for i=1 to 10

??"*"

next

?

3.打印三行10个星

for i=1 to 10

?? "*"

next

?

for i=1 to 10

??"*"

next

?

for i=1 to 10

??"*"

next

?

4.打印5行10个星

for j=1 to 5

for i=1 to 10

??"*"

endfor

?

next

5.将上边的图形右移至第21列

for j=1 to 5

??space(20)

for i=1 to 10

??"*"

endfor

?

next

6.将上边图形修改每行的打印星号位置左移

for j=1 to 5

??space(20-j)

for i=1 to 10

??"*"

endfor

?

next

7.将上边图形修改每行的打印星号数量（与外循环变量一致）

for j=1 to 5

??space(20)

for i=1 to j

??"*"

endfor

?

endfor

8.将上边图形修改每行的打印星号数量（与外循环变量按2*j-1的规律）

*直角三角形 

for j=1 to 5

??space(20)

for i=1 to j*2-1

??"*"

endfor

?

endfor

             *正三角形

 for j=1 to 5

??space(20-j)

for i=1 to j*2-1

??"*"

endfor

?

endfor 

*倒正三角形

 for j=5 to 1 step -1

??space(20-j)

for i=1 to j*2-1

??"*"

endfor

?

endfor 

四、作业

打印如下图形

ABCDEFG

 ABCDEF

   ABCDE

     ABC

       A

2012.12.5 星期三

教学内容：程序解析

教学目的：通过程序的解析，明确语句的控制、函数的应用

教学时间：３课时

教学地点：微机５８微机室

教学重点：函数的应用

教学难点：程序控制

教学过程：

一、导入

近期我们已经对数值型、字符型、测试型、转换型、日期时间进行了讲解，上节课也推出了一段“高考倒计时”的程序代码，让同学们根据后边的程序注释读懂程序，这节课，我们一起详细的解析一下。

二、程序代码：

SET talk off  &&关闭屏幕回显
CLEAR &&清屏
SET CENTURY on &&打开世纪开关，显示4位的年份
SET DATE ansi &&将日期格式设置成 年、月、日的格式
SET HOURS TO 24 &&设置时间为24小时制
b=CTOD("2013.06.07")  &&设置高考的日期，将字符型转换成日期型

t2=9 &&设定开考的时间为9点

xq="一二三四五六日"
DO  whil .t.   &&使用死循环

 a=DATE() &&获得今天的日期
 c=b-a  &&计算当前日期与高考日期的天数
 c1=ALLTRIM(STR(c,3)) &&将相差天数转换成字符型的，占3上长度，利于使用宏替换函数
 
 t=CTOT(TIME()) &&获得当前日期（包括小时、分钟、秒钟）
 t1=HOUR(t) &&获得时间中的小时数，t1为N型小时数
 t3=MOD(t2+24-t1,24)  &&将开始考试的小时数9，回上24减去当前的小时数，再取24的余，需要大家考虑为什么
 t4=STR(t3,2) &&将N型的小时数，转换成字符串

 m=MOD(59-MINUTE(t),60)  &&获得分钟数
 m1=STR(m,2) &&转换成字符串

 s=MOD(60-SEC(t),60) &&获得秒数
 s1=STR(s,2) &&转换成字符串

 @10,1 say "今天是:"+TTOC(DATETIME())+"星期"+SUBSTR(xq,(DOW(a,2)-1)*2+1,2) &&幕的第11行,第二列显示当前的日期和时间（屏幕是从坐标0,0开始计算的）
 @11,1 say "离2013年06月07日9点高考开考还有&c1.天,&t4.小时,&m1.分,&s1.秒"  &&显示需要的信息，其中利用了宏替换函数&

 d=INKEY(1)  &&inkey获得按键，如果没有按键则返回0，如果有按键则返回该键的asc码，并保存到变量d中
 IF d=13 &&如果按下的是回车，因为回车的ASC码是13
   EXIT  &&如果是回车的话，上边的条件成立，则执行exit，退出循环体，此时使用本循环不再是‘死循环’。
 ENDIF  &&与if配对
endd  &&与do while配对

 三、练习（上机实习）

四、作业

1.通过各类型函数的应用，明白数值型、字符型、测试型、转换型、日期时间型的函数应用

2.自己设计一小段程序，执行一定的功能，运用到10个函数以上。

2012.12.3 星期一

教学内容：函数应用（四）

教学目的：掌握日期型函数的应用

教学时间：２课时

教学重点：日期型函数及日期型测试函数

教学难点：函数的要求

教学过程：

一、复习、导入

二、新授

１.格式：DATE([nYear, nMonth, nDay])

功能：返回由操作系统控件的当前系统日期，或创建一个与2000年兼容的日期值。

返回值：日期型

２.注意：

1)DATE() 函数将返回当前的系统日期。
2)Visual FoxFro 命令或函数都不能直接改变系统日期。

３.示例：下面例子显示带有世纪和不带世纪的当前系统日期。

CLEAR
SET CENTURY OFF
? DATE()  && 显示不带世纪的本日日期
SET CENTURY ON
? DATE()  && 显示带世纪的本日日期
? DATE(1998, 02, 16)  && 显示 2000 年兼容的日期值
 

４.函数相关：CTOD() 、 DATETIME() 、 DTOC() 、 SET CENTURY 、 SET DATE 、 SET MARK TO、

SET FDOW TO [nExpression]、YEAR()、MONTH()、CMONTH()、DAY()。

1)DOW(dExpression | tExpression [, nFirstDayOfWeek])

从日期表达式或日期时间表达式返回该日期是一周的第几天。

2)CDOW(dExpression | tExpression)

从给定日期或日期时间表达式中返回星期值。

三、练习

编写一段程序,完成离高考"2012.6.7"还有***天***小时***分钟的高考倒计时，还要显示今天是哪年、哪月、哪日、星期几的信息。

SET talk off  &&关闭屏幕回显
CLEAR &&清屏
SET CENTURY on &&打开世纪开关，显示4位的年份
SET DATE ansi &&将日期格式设置成 年、月、日的格式
SET HOURS TO 24 &&设置时间为24小时制
b=CTOD("2013.06.07")  &&设置高考的日期，将字符型转换成日期型

t2=9 &&设定开考的时间为9点

xq="一二三四五六日"
DO  whil .t.   &&使用死循环

 a=DATE() &&获得今天的日期
 c=b-a  &&计算当前日期与高考日期的天数
 c1=ALLTRIM(STR(c,3)) &&将相差天数转换成字符型的，占3上长度，利于使用宏替换函数
 
 t=CTOT(TIME()) &&获得当前日期（包括小时、分钟、秒钟）
 t1=HOUR(t) &&获得时间中的小时数，t1为N型小时数
 t3=MOD(t2+24-t1,24)  &&将开始考试的小时数9，回上24减去当前的小时数，再取24的余，需要大家考虑为什么
 t4=STR(t3,2) &&将N型的小时数，转换成字符串

 m=MOD(59-MINUTE(t),60)  &&获得分钟数
 m1=STR(m,2) &&转换成字符串

 s=MOD(60-SEC(t),60) &&获得秒数
 s1=STR(s,2) &&转换成字符串

 @10,1 say "今天是:"+TTOC(DATETIME())+"星期"+SUBSTR(xq,(DOW(a,2)-1)*2+1,2) &&幕的第11行,第二列显示当前的日期和时间（屏幕是从坐标0,0开始计算的）
 @11,1 say "离2013年06月07日9点高考开考还有&c1.天,&t4.小时,&m1.分,&s1.秒"  &&显示需要的信息，其中利用了宏替换函数&

 d=INKEY(1)  &&inkey获得按键，如果没有按键则返回0，如果有按键则返回该键的asc码，并保存到变量d中
 IF d=13 &&如果按下的是回车，因为回车的ASC码是13
   EXIT  &&如果是回车的话，上边的条件成立，则执行exit，退出循环体，此时使用本循环不再是‘死循环’。
 ENDIF  &&与if配对
endd  &&与do while配对

四、总结

日期型的函数，常用的有date()、datetime()、ctod()、dtoc()。

五、作业

将练习中的程序弄清、读懂！

六、反思