理论顺序和分支结构

理论顺序和分支结构第一页，共四十一页，2022年，8月28日7.1程序的建立和运行1.程序一组能够完成特定任务的命令序列。2.结构化程序设计指用结构化编程语句来编写程序。（面向对象程序设计）第二页，共四十一页，2022年，8月28日7.1.1程序文件的建立格式：MODIFYCOMMAND[<文件名>]说明文件不存在：系统就自动建立一个指定名字的新程序文件；文件存在：打开该文件。程序文件默认的扩展名是.PRG，可不必输入第三页，共四十一页，2022年，8月28日7.1.2程序文件的运行格式：DO<程序文件名>说明：<程序文件名>中可省略扩展名.PRG，将指定的程序文件调入内存并运行。按下[ESC]键可使程序中断运行!第四页，共四十一页，2022年，8月28日7.1.3程序中的辅助命令1.注释命令格式1：NOTE[<注释内容>]格式2：*[<注释内容>]格式3：&&[<注释内容>]第五页，共四十一页，2022年，8月28日7.1.3程序中的辅助命令Note设置系统运行环境Settalkoff&&关闭人机对话Setdefaulttod:\ksSetcenturyonSetdatetoansi&&指定日期格式第六页，共四十一页，2022年，8月28日2．结束程序运行命令格式1：RETURN

返回上级程序模块格式2：RETURNMASTER

返回最上级主程序第七页，共四十一页，2022年，8月28日格式3：CANCEL

停止程序执行，关闭所有文件，返回系统交互状态格式4：QUIT

停止所有程序执行，关闭所有文件，退回到操作系统第八页，共四十一页，2022年，8月28日7.1.4程序中的交互输入命令1．字符串输入命令格式：ACCEPT[<提示信息>]TO<内存变量>此命令只限于输入字符型数据，内容最多为254个字符。输入内容时不需要加定界符按回车键表示输入结束。第九页，共四十一页，2022年，8月28日LI1.PRGUSEZGDAACCEPT"请输入职工姓名："TOMCLOCATEFOR姓名=CLEADISPUSERETURNALLT(MC)第十页，共四十一页，2022年，8月28日accept[请输入要打开的数据表名:]tonnuse&nnaccept[请输入被查找者姓名：]tonamelocatefor姓名=namedisplay例7-2第十一页，共四十一页，2022年，8月28日2．表达式输入命令格式：INPUT[<提示信息>]TO<内存变量>该命令可用于各种类型数据

(N、C、D、L)输入各种类型的数据时要按类型表示。按ENTER键结束数据的输入。第十二页，共四十一页，2022年，8月28日Input[请输入您的姓名]toxm

***输入时应为[刘红梅]Input[请输入您的出生日期]tocsrq

***输入时应为{^1975/09/12}Input[婚否(用逻辑型表示)]tohf

***输入时应为.T.或.F.第十三页，共四十一页，2022年，8月28日3.单字符输入命令格式：WAIT[<提示信息>][TO<内存变量>][WINDOWS]没有<提示信息>时，系统默认显示“按任意键继续…”。若带TO子句，则将输入的字符存入指定的内存变量中。第十四页，共四十一页，2022年，8月28日如果带WINDOWS选项，则会在屏幕右上角出现一个系统信息窗口，在其中显示提示信息。用户按键后，此窗口自动清除，这样可避免提示信息留在屏幕上而破坏屏幕画面。第十五页，共四十一页，2022年，8月28日

4.定位输入／输出命令格式1：@<行号,列号>SAY<表达式>[GET<变量>]

[RANGE<表达式1>,<表达式2>[VALID<条件>]]说明：在VFP中，屏幕左上角的坐标为(0，0)，右下角的坐标与计算机系统的显示器坐标有关。第十六页，共四十一页，2022年，8月28日说明：<行号,列号>是指输出的位置，应该是数值表达式，且系统自动对其取整。GET<变量>必须和READ命令配套使用。其中的变量可以是内存变量或字段变量。若是内存变量，必须事先赋值；若是字段变量，则它所属的数据表文件必须已在当前工作区中打开。第十七页，共四十一页，2022年，8月28日变量的类型和宽度决定了输入数据的类型和宽度。[RANGE<表达式1>,<表达式2>规定了输入的数值型或日期型数据的范围。VALID<条件>规定输入的变量值要符合的条件。第十八页，共四十一页，2022年，8月28日LI3.PRGUSEzgdaMC=SPACE(10)@5,3SAY"请输入职工姓名："GETMCREAD&&激活GET必须的命令LOCATEFOR姓名=ALLT(MC)DISPUSE第十九页，共四十一页，2022年，8月28日tjjl.PRG

向zgda表中添加一条新纪录clearUSEzgdaappendblank@1,1SAY"请输入新职工信息："

@2,1say[姓名]get姓名@3,1say[性别]get性别READ&&激活GET必须的命令browse第二十页，共四十一页，2022年，8月28日小结：

accept，wait均为接收字符型数据命令，在屏幕上输入时不需要加定界符表明类型。多个字符，<255个一个单字节字符

input，@<>say…get…

均可以接收N，C，L，D型数据。第二十一页，共四十一页，2022年，8月28日

input：接收到什么就把什么结果赋给变量，相当于直接给变量赋值，在屏幕上输入数据时一定要加上定界符，同时定义了变量的类型与具体值。@<>say…

：表示在某行某列输出；@<>get…:表示接收屏幕上输入的read作为get后变量的值。①变量一定要先赋值，定义类型与长度②一定要与read连用，才能将输入的数据赋给get后的变量第二十二页，共四十一页，2022年，8月28日7.2顺序结构程序设计7.2.1基本程序结构1.顺序结构最基本、最常见的程序结构形式，自始至终按照程序的先后顺序逐条执行。例7-6，例7-72.分支程序结构带有设定的条件，根据判断条件的成立与否来决定程序的流向。3.循环程序结构在一定条件下反复执行的一段程序。第二十三页，共四十一页，2022年，8月28日顺序结构程序语句1语句2语句3

...第二十四页，共四十一页，2022年，8月28日例7-7USEZGDAaccept"请输入职工姓名："TOMCLOCATEFOR姓名=ALLT(MC)CLEA?"姓名："+姓名?"性别："+性别?"职称："+职称?"出生日期："+DTOC(出生日期)USERETURN第二十五页，共四十一页，2022年，8月28日dxhz.prg

将0-9任一数字转换成大写

clearinput[请输入0~9任一数字：]toaaz=[零一二三四五六七八九]dx=substr(z,aa*2+1,2)?[对应的大写汉字为：]+dx第二十六页，共四十一页，2022年，8月28日？问题“如果下雨，我就留在家里，“如果不下雨，我就去东海岛”如何描述此类问题？第二十七页，共四十一页，2022年，8月28日[今天]“如果明天下雨，我就留在家里，------[明天一]

否则，我就去东海岛。”------[明天二][后天]第二十八页，共四十一页，2022年，8月28日7.3分支结构程序设计7.3.1简单分支结构格式：IF<条件表达式>

ENDIF

<语句序列>条件语句序列

ENDIFYN第二十九页，共四十一页，2022年，8月28日说明：IF语句与ENDIF语句必须成对出现。执行过程：条件成立时，逐条执行<语句序列>，然后执行ENDIF后的语句；条件不成立时，不执行<语句序列>，直接执行ENDIF后的语句<语句序列>采用缩进的书写方式。

第三十页，共四十一页，2022年，8月28日Li7.prg

下不下雨，去不去东海岛的问题clearwait[今天下雨吗？(Y/N)]toaaifaa=[Y]?[今天下雨，我们要留在家里]endififaa=[N]?[不下雨，我们可以去东海岛，耶！]endif第三十一页，共四十一页，2022年，8月28日Li7-10.prg

计算计程车收费数

clearinput[里程数：]tolciflc<=5cf=10?[车费为：10元]endififlc>5cf=10+(lc-5)*1.6?[车费为：]+str(cf,6,2)+[元]endif第三十二页，共四十一页，2022年，8月28日7.3.2选择分支结构格式：IF

<条件表达式><命令序列1>

ELSE<命令序列2>ENDIF第三十三页，共四十一页，2022年，8月28日7.3.2选择分支结构条件YENDIFN语句序列1语句序列2第三十四页，共四十一页，2022年，8月28日Li7_b.prg

下不下雨，去不去东海岛的问题clearwait[今天下雨吗？(Y/N)]toaaifaa=[Y]?[今天下雨，我们要留在家里]else?[不下雨，我们可以去东海岛，耶！]endif第三十五页，共四十一页，2022年，8月28日Li7-10_b.prg

计算计程车收费数

clearinput[里程数：]tolciflc<=5cf=10?[车费为：10元]elsecf=10+(lc-5)*1.6?[车费为：]+str(cf,6,2)+[元]endif第三十六页，共四十一页，2022年，8月28日对前面做的查询，增加一功能，如果找不到符合条件的，显示查无此人！

USEZGDAACCEPT"请输入职工姓名："TOMCLOCATEFOR姓名=ALLT(MC)IFFOUND()DISP

ELSE?[查无此人！]endifUSERETURN第三十七页，共四十一页，2022年，8月28日7.3.3分支嵌套结构在一个IF语句中包含另一个IF语句的程序结构，称为IF语句的嵌套。例7-12编程时要做到内外层分支结构层次分明。第三十八页，共四十一页，2022年，8月28日Li8.prg

计算分段函数的值

clearifx<=5input[x：]toxy=exp(-x)

ifx<-1elsey=x^2y=sqrt(log(x))elseendif