【例】从键盘输入10个数,编程找出其中的最大值和最小值。程序文件名为PA9.PRG。
SET TALK OFF
CLEAR
INPUT“请从键盘输入一个数:”TO A
STORE A TO MAX,MIN
FOR I=2 TO 10
INPUT“请从键盘输入一个数:”TO A
MAX=A
ENDIF
IF MIN>A
MIN=A
ENDIF
ENDFOR
?“最大值为:”,MAX
?“最小值为:”,MIN
SET TALK ON
RETURN
(3)“指针”型循环控制语句
“指针”型循环控制语句,即根据用户设置的表中的当前记录指针,
决定循环体内语句的执行次数据。
1)语句格式:
SCAN[〈范围〉][FOR〈条件表达式1〉
[WHILE〈条件表达式2〉]]
〈命令行序列〉
ENDSCAN
2)语句功能:
该语句在指定的范围内,用数据记录指针来控制循环次数。执行语句时,首先判断函数EOF()的值,若其值为“真”,则结束循环,否则,结合〈条件表达式1〉或〈条件表达式2〉,执行〈命令行序列〉,记录指针移到指定的范围和条件内的下一条记录,重新判断函数EOF()的值,直到函数EOF()的值为真时结束循环。
【例】输出“学生管理”数据库的“学生”表中所有团员的姓名和地址。
程序文件名为PA10.PRG。
SET TALK OFF
CLEAR
OPEN DATABASE学生管理
USE STUD
SCAN FOR是否团员
?姓名,地址
ENDSCAN
CLOSE DATABASE
SET TALK ON
RETURN
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |