清华大学出版社 TSINGHUA UNIVERSITY PRESS 第4章程序设计初步
第4章 程序设计初步
清华大学出版社 TSINGHUA UNIVERSITY PRESS 41程序文件 程序文件建立与修改命令 MODIFY COMMAND<文件名> 程序的运行命令 DO<文件名> 定位输入命令: @<行,列〉[SAY<表达式1>][GET<变量名 LDEFAULT<表达式2] WAIT命令 WAIT[<信息文本〉][T0<内存变量[ WINDOW[AT<行>,<列>]] [ NOWAIT][ CLEAR| NOCLEAR][ TIMEOUT<数值表达式 「例42WAI命令输出信息示例 WAI'"请检查输入内容!" WINDOW
4.1 程序文件 程序文件建立与修改命令: MODIFY COMMAND <文件名> 程序的运行命令: DO <文件名> 定位输入命令： @<行,列> [SAY <表达式1>] [[GET <变量名>][DEFAULT <表达式2>] WAIT命令: WAIT [<信息文本>] [TO <内存变量>] [WINDOW [AT <行>,<列>]] [NOWAIT] [CLEAR | NOCLEAR] [TIMEOUT <数值表达式>] [例4-2] WAIT命令输出信息示例。 WAIT "请检查输入内容！" WINDOW
清华大学出版 4,2程序的控制结构 NGHUA U 顺序结构 PRESS 分支结构 循环结构 分支语句格式: 多分枝语句格式 IF<逻辑表达式> DO CASE 语句序列1 CASE<逻辑表达式1 ELSE <语句序列2>] <语句序列1 ENDIF CSAE<逻辑表达式2 例: <语句序列2> USE sb LOCATE FOR NOT主要设备 IF FOUNDO &&若查到, FOUND函数返回.T CASE<逻辑表达式n> DISPLAY名称,价格 <语句序列n> REPLACE价格WITH价格*(1-0.1) DISPLAY名称,价格 LOTHERWISE ELSE <语句序列n+1] WAIT"无此设备!” WINDOW ENDCASE ENDIF USE RETURN
4.2 程序的控制结构 分支语句格式： IF <逻辑表达式> <语句序列1> [ELSE <语句序列2>] ENDIF 例： USE sb LOCATE FOR NOT 主要设备 IF FOUND() && 若查到,FOUND函数返回.T. DISPLAY 名称,价格 REPLACE 价格 WITH 价格*(1-0.1) DISPLAY 名称,价格 ELSE WAIT "无此设备！" WINDOW ENDIF USE RETURN 多分枝语句格式： DO CASE CASE <逻辑表达式1> <语句序列1> CSAE <逻辑表达式2> <语句序列2> … CASE <逻辑表达式n> <语句序列n> [OTHERWISE <语句序列n+1>] ENDCASE 顺序结构 分支结构 循环结构
清华大学出版社 TSINGHUA UNIVERSITY PRESS 循环语句格式与示例 条件循环 步长循环 DO WHILE<逻辑表达式>FOR<内存变量>=数值表达式1>T0<数值表达式2>[STEP<数值表达式3为 <语句序列 <语句序列 ENDDO ENDFOR I NEXT 米e4-7.prg prg USE Sb &&s为累加器,初值为0 DO WHILE NOT EOF() FOR i=1 To 100 &&i为计数器,初值为1 IF价格>10000 &&累加 ?名称 NEXT ENDIF SKIP ENDDO USE
循环语句格式与示例 条件循环 步长循环 DO WHILE <逻辑表达式> <语句序列> ENDDO FOR <内存变量>=<数值表达式1> TO <数值表达式2> [STEP <数值表达式3>] <语句序列> ENDFOR NEXT * e4-7.prg USE sb DO WHILE NOT EOF( ) IF 价格>10000 ?名称 ENDIF SKIP ENDDO USE * e4-9.prg s=0 && s为累加器,初值为0 FOR i=1 TO 100 && i为计数器,初值为1 s=s+i && 累加 NEXT ?"s=",s
清华大学出版社 TSINGHUA UNIVERSITY PRESS 扫描循环 其他 SCAN[范围>][FOR<逻辑表达式1)] WHILES逻辑表达式2循环辅助语句 <语句序列 LOOP语句 ENDSCAN EXIT语句 米e4-10.prg USE sb 多重循环 SCAN FOR价格>10000 ?名称 ENDSCAN USE
扫描循环 其他 SCAN [<范围>] [FOR< 逻辑表达式1>] [WHILE< 逻辑表达式2>] <语句序列> ENDSCAN 循环辅助语句 LOOP语句 EXIT语句 多重循环 * e4-10.prg USE sb SCAN FOR 价格>10000 ?名称 ENDSCAN USE