【例】從鍵盤輸入10個數(shù),編程找出其中的最大值和最小值。程序文件名為PA9.PRG。
SET TALK OFF
CLEAR
INPUT“請從鍵盤輸入一個數(shù):”TO A
STORE A TO MAX,MIN
FOR I=2 TO 10
INPUT“請從鍵盤輸入一個數(shù):”TO A
MAX=A
ENDIF
IF MIN>A
MIN=A
ENDIF
ENDFOR
?“最大值為:”,MAX
?“最小值為:”,MIN
SET TALK ON
RETURN
(3)“指針”型循環(huán)控制語句
“指針”型循環(huán)控制語句,即根據(jù)用戶設(shè)置的表中的當(dāng)前記錄指針,
決定循環(huán)體內(nèi)語句的執(zhí)行次數(shù)據(jù)。
1)語句格式:
SCAN[〈范圍〉][FOR〈條件表達式1〉
[WHILE〈條件表達式2〉]]
〈命令行序列〉
ENDSCAN
2)語句功能:
該語句在指定的范圍內(nèi),用數(shù)據(jù)記錄指針來控制循環(huán)次數(shù)。執(zhí)行語句時,首先判斷函數(shù)EOF()的值,若其值為“真”,則結(jié)束循環(huán),否則,結(jié)合〈條件表達式1〉或〈條件表達式2〉,執(zhí)行〈命令行序列〉,記錄指針移到指定的范圍和條件內(nèi)的下一條記錄,重新判斷函數(shù)EOF()的值,直到函數(shù)EOF()的值為真時結(jié)束循環(huán)。
【例】輸出“學(xué)生管理”數(shù)據(jù)庫的“學(xué)生”表中所有團員的姓名和地址。
程序文件名為PA10.PRG。
SET TALK OFF
CLEAR
OPEN DATABASE學(xué)生管理
USE STUD
SCAN FOR是否團員
?姓名,地址
ENDSCAN
CLOSE DATABASE
SET TALK ON
RETURN
相關(guān)推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |