第09章程序(讲义).docVIP

程序设计基础 三种控制结构 建立与执行 建立：modify command 程序名 执行：do 程序名 １、顺序结构程序 9.0 r=10 l=2*3.14*r 计算周长 s=3.14*r^2 计算面积 ? l=,l,s=,s 输出周长和面积 例9.0.1 input 请输入半径： to r input可接受数值、日期、逻辑型数据也可以接受用定界符括起来的字符型数据 l=2*3.14*r 计算周长 s=3.14*r^2 计算面积 ? l=,l,s=,s 输出周长和面积 **任意数据输入命令：INPUT “提示信息” TO 内存变量 例9.1 在学生表中，需按学号查询学生的姓名和入学成绩。 clear set talk off 参看教材P138解释 use 学生 list 学号 accept 请输入待查学生的编号： to bh accept只可接受字符型数据 locate for 学号=bh disp 学号,姓名,入学成绩 *wait 该生的其它情况为： windows timeout 15 等待15秒 *disp 性别,出生日期,籍贯 use set talk on **字符串接收命令：ACCEPT “提示信息” TO 内存变量 **单个字符接收命令：WAIT “提示信息” TO 内存变量2、选择结构程序 if条件 命令组1 else 命令组2 endif 例9.2 根据输入的学生的姓名，在学生表中查找学生的记录。 set talk off use 学生 name=space(8) @10,5 say 请输入学生姓名： get name 格式输入命令 read locate for 姓名=name 在学生表中查找记录 if found() 判断是否找到。查找是否成功测试函数found()参见P49 display 找到，显示该记录 else @12,5 say 对不起，该单位无此人！ 格式输出命令 endif set talk on use **格式输出命令：**格式输入命令：do case case条件1 命令组1 case条件2 命令组2 …… case条件m 命令组m otherwise 命令组n endcase 例9.3 在学生表中，查找”周文杰、胡敏杰、刘彬彬、王冰雪”的记录，根据其性别和年龄确定参加运动会的项目，男生参加“拔河”,24岁以上的女生参加“投蓝比赛”，24岁及以下的女生参加“1500比赛”。 set talk off clear use 学生 accept 请输入待查学生的姓名： to xm if xm locate for 姓名=xm 周文杰 胡敏杰 刘彬彬 王冰雪 if .not. eof() and xm 当指针没有指到文件末尾时，表示表中有用户输入的姓名 也可用if found() do case case 性别=男 ? xm+请参加拨河比赛 case 性别=女 and year(date())-year(出生日期)24 ? xm+请参加投蓝比赛 case 性别=女 and year(date())-year(出生日期)=24 ? xm+请参加1500米比赛 endcase else ?无+xm+此学生 endif else ? 没有输入待查学生的姓名 endif set talk on use 3、循环结构程序 do while do while 条件 命令组 [exit] [loop] enddo 例9.4 逐条输出学生表中1984年出生的学生记录。 clear use 学生 index on year(出生日期) tag csrqsy seek 1984 do while year(出生日期)=1984 display skip enddo dele tag csrqsy use clear use 学生 index on year(出生日期) tag csrqsy input 想查的年份 to y seek y do while year(出生日期)=y display skip enddo dele tag csrqsy use clear use 学生 locate for year(出生日期)=1984 do while not eof() *do while year(出生日期)=1984 display continue enddo use use 学生 count to num for i=1 to num go i if year(出生日期)=1984 disp endif endfor use use 学