程序设计实验-1.doc

第六周 程序设计实验-1 马今朝一、表和数据库部分应掌握的命令如下：1. CREATE |?2. USE NOUPDATE EXCLUSIVE|SHARED3. LIST|DISPLAY STRUCTURE TO PRINTER PROMPT|TO FILE 4. LIST|DISPLAY FIELDS FOR WHILE TO PRINTER PROMPT|TO FILE OFF5. MODIFY STRUCTURE6. REPLACE WITH ADDITIVE, WITH ADDITIVE , FOR WHILE 7. GOTO |TOP|BOTTOM 8. SKIP 9. LOCATE FOR |WHILE 10. CONTINUE11. INSERT BLANK BEFORE12. APPEND BLANK13. DELETE FOR WHILE 14. RECALL FOR WHILE15. PACK16. ZAP17. SELECT |018. CREATE DATABASE |?19. OPEN DATABASE | ? 20. CLOSE ALL|DATABASE21. COPY TO FIELDS FOR WHILE 22. SORT TO ON /A|/D/C,/A|/D/CFIELDS FOR WHILE 函数（掌握常用函数） ABS（）、SQRT（）、INT（）、MOD（）、ROUND（）、PI（）、&、LEN（）、AT（）、SUBSTR（）、LTRIM（）、RTRIM（）、ALLTRIM（）、SPACE（）、DATE（）、YEAR（）、ASC（）、CTOD（）、STR（）、VAL（）、BOF（）、EOF（）、RECNO（）、FOUND（）、IIF（）二、实验准备新建程序文件1. 菜单方式：文件新建程序新建文件。2. 命令方式：MODIFY COMMAND 按CTRL+W存盘返回主菜单，CTRL+Q放弃修改。执行程序文件1. 菜单方式：程序运行2. 命令方式： DO 3. “常用”工具栏中的！号编辑程序文件编辑方法与WORD类似。 定义块 SHIFT+方向键 复制块 CTRL+C 剪切块 CTRL+X 粘贴块 CTRL+V 保存：CTRL+W注释语句可以在语句前用*或NOTE注释语句行，非执行语句。或在语句后用&进行注释。顺序结构1Set talk 格式：set talk on/off功能：关闭人机对话。说明：On：执行一些非显示命令时也将执行结果等信息送到显示器显示。Off：屏幕上只输出显示命令要求输出的结果。功能：原样输出中的内容。2.交互输入命令(ACCE, WAIT , INPUT )要求用户在程序执行过程中由键盘随机输入数据，而程序根据用户输入的数据来确定下一步程序执行的方向（1）接收字符串: ACCEPT TO :在程序执行过程中提示用户该从键盘向程序提供什么信息,用引号引起输入数据为字符型数据,不必加引号,回车结束（2）接收单个字符: WAIT TO 说明：无选项时暂停程序,屏幕提示:按任一键继续,使输出时看清楚 仅接收一个字符,不用回车结束,快速响应暂停程序,接收数据按C型处理 ACCE 接收字符串,回车结束WAIT 接收一个字符,不用回车（3）接收表达式: INPUT TO 说明：接收的数据可以为N、D、L、C型，INPUT一次只给1个变量赋值。分支结构分支结构：根据条件判断决定程序流程走向。IF、DO CASE语句。简单分支语句格式：if endif 功能：首先判断的逻辑值，若为真，执行IF与ENDIF之间的语句；为假，直接执行ENDIF后面的语句。说明：l 条件表达式的结果是逻辑值（.T.、.F.）l 语句序列可以是一个语句，也可以是语句序列。l IF和ENDIF必须成对出现，缺一不可。选择分支语句格式：if else endif 功能：首先判断的逻辑值，若为真，执行语句行序列1，然后再执行endif后面的语句；为假，执行语句行序列2，然后再执行endif后面的语句。例题：输入学生的姓名，在表中查找学生记录。USE 学生ACCEPT 请输入学生姓名 TO NAMELOCATE ALL FOR 姓名=NAME IF FOUND() DISP ELSE ? 查无此人 ENDIFUSE三、实验内容1从键盘输入半径，输出圆面积和圆周长。2从键盘输入两个字符串，连接后输出。3输入一个三位数，把百位数字和个位数字对调.(例如：342 对调得到 243)4 从键盘输入3边长，求三角形面积。要求首先判断是否能构成三角形，能则用海伦公式求解，否则，输出不能构成三角形的信息。