6.3顺序结构程房设计 4)顺序结构程序:自始至终严格按照程序中语句的先后顺序逐条 执行,是最基本、最普遍的结构形式 5)示例1:试在表文件中查看某学生的有关情况 *L3. PRG SET TALK OFF CLEAR USE学生表DBF LOCATE FOR姓名=林冲” DISPLAY USE SET TALK ON 示例2:编程,根据输入的半径值,计算出相应的圆的周长 SET TALK OFF CLEAR INPUT“请输入圆的半径:”TOR L=2*3.1416*R @10,10SAY圆的周长是:”+STR(L,6,3) SET TALK ON
6.3 顺序结构程序设计 4）顺序结构程序：自始至终严格按照程序中语句的先后顺序逐条 执行，是最基本、最普遍的结构形式。 5）示例1：试在表文件中查看某学生的有关情况。 *L3.PRG SET TALK OFF CLEAR USE 学生表.DBF LOCATE FOR 姓名=“林冲” DISPLAY USE SET TALK ON 示例2：编程，根据输入的半径值，计算出相应的圆的周长。 SET TALK OFF CLEAR INPUT “请输入圆的半径：” TO R L=2*3.1416*R @10,10 SAY “圆的周长是：”+STR(L,6,3) SET TALK ON
64分支结构程序设计 641两分支结构 642多分支结构 退出
6.4 分支结构程序设计 退出 6.4.2 多分支结构 6.4.1 两分支结构
分支结构:就是按照一定的条件由判断语句或选择语句构成的双 重或多重走向的程序 64.1两分支结构 1.简单分支 )简单分支的格式: 语句行 IF<条件表达式 <语句行序列> 条件表达式 ENDIF 注意:IF和 ENDIF必须成对出现 语句行序列 例:在“学生表”中查看“李清照”的基本情况 SET TALK OFF CLEAR ENDIF后面的语句 USE学生表 LOCATE FOR姓名=”李清照
6.4.1 两分支结构 1）简单分支的格式： IF <条件表达式> <语句行序列> ENDIF 注意：IF和ENDIF必须成对出现 分支结构：就是按照一定的条件由判断语句或选择语句构成的双 重或多重走向的程序 1. 简单分支 语 句 行 条件表达式 语句行序列 ENDIF后面的语句 Y N 例：在“学生表”中查看“李清照”的基本情况。 SET TALK OFF CLEAR USE 学生表 LOCATE FOR 姓名=”李清照
IF FOUNDO DISP ENDIF USE SET TALK ON 2.选择分支 语句行 格式:IF<条件表达式> <语句行序列1> 条件 ELSE <语句行序列2 语句行序列1 语句行序列2 ENDIF ENDIF后面的语句
IF FOUND() DISP ENDIF USE SET TALK ON 2. 选择分支 格式：IF <条件表达式> <语句行序列1> ELSE <语句行序列2> ENDIF 语 句 行 条件 语句行序列1 语句行序列2 ENDIF后面的语句
例1:求解一元二次方程AX2+BX+C=0,系数A,B,C的值由用户 通过键盘输入,当方程有实根时,屏幕显示出两根的值;当方程 无实根时,屏幕显示出“方程无实根!” SET TALK OFF CLEAR INPUT“A=2TOA INPUT“B=”TOB INPUT“C=?TOC D=B*B-4A*C IF D>=O Ⅹ1=(-B+SQRI(D)(2*A) Ⅹ2=(-B-SQRT(D)(2*A) 方程的两根是:”+STR(X1,2)+ SPACE(4)+STR(X2,2) ELSE ?方程无实根!” ENDIF SET TALK ON RETURN
例1：求解一元二次方程AX2+BX+C=0，系数A，B，C的值由用户 通过键盘输入，当方程有实根时，屏幕显示出两根的值；当方程 无实根时，屏幕显示出“方程无实根！” SET TALK OFF CLEAR INPUT “A=” TO A INPUT “B=” TO B INPUT “C=” TO C D=B*B-4*A*C IF D>=0 X1=(-B+SQRT(D))/(2*A) X2=(-B-SQRT(D))/(2*A) ?“方程的两根是：”+STR(X1,2)+SPACE(4)+STR(X2,2) ELSE ?”方程无实根！” ENDIF SET TALK ON RETURN