实验5九十十一VFP中程序设计.docVIP

实验４九十十一、VFP中程序设计 一、实验目的与要求： （１）了解程序的建立与执行方法。 （２）熟练掌握结构化程序设计的三种流程控制结构：顺序结构、分支结构和循环结构。 （３）简单了解多模块程序设计方法，及模块间相互调用方法。 二、实验内容： （，然后输入代码，输入结束后保存并运行即可完成程序的操作） 实验4-1　新建程序文件的方法： 选择文件菜单下的新建，在新建对话框中选择程序，再单击新建文件即可进入程序编辑器。 命令方式：MODIFY COMMAND 程序文件名.PRG 实验4-2 新建程序文件excercise1.prg，编写代码，要求完成以下功能： 输出字符“中国”，同行输出字符“大连”，换行输出“工业大学”。 程序代码如下： clear 清除屏幕 ? 中国 ?? 大连 ? 工业大学 实验4-3 打开程序文件excercise1.prg，添加代码，要求完成以下功能： ? 利用accept输入命令输入一个字符串，并将输入的字符串存入变量icode中。 ? 利用input输入命令输入一个字符串，并将输入的字符串存入变量icode1中。 ? 利用input输入命令输入一个数值，并将输入的字符串存入变量value1中。 ? 将icode、icode1、value1输出到屏幕上，要求输出到同一行。 程序代码如下： accept 输入一个字符串 to icode input 输入一个字符串 to icode1 input 输入一个数值 to value1 ? icode,icode1,value1 (注意：accept和input输入字符的格式不同，input输入是应加定界符) 实验4-4 建立程序文件excercise2.prg，完成以下功能： 清屏，在屏幕上输出“请输入长方形的长：” “请输入长方形的宽：”，并将用户输入的长、宽输入到变量chang,kuan中。利用长方形的周长、面积公式求出周长、面积。并以“”、“长方形的面积是XXX平方米”的形式显示出来。 程序代码如下： clear input 请输入长方形的长： to chang input 请输入长方形的宽： to kuan l= (chang+kuan)*2 s= chang*kuan ? 长方形的周长是,l,米 ? 长方形的面积是,s, 平方米 实验4-5 建立程序文件excercise3.PRG，完成以下功能： 密码校验程序:假设密码为ABC，如果密码正确，显示欢迎使用本系统！；如果密码错误，则显示密码错误！。 程序代码如下： Clear Accept 请输入您的密码： To M If M=abc ? 欢迎使用本系统！ Else ?密码错误！ Endif 实验4-6 新建程序excercise4.prg。编写，代码，要求完成以下功能： ? 求一元二次方程 ax2＋bx＋c＝0的实根。如果有实根则显示其根，否则显示无实根。 程序代码如下： input to a input to b input to c z=b^2-4*a*c if z=0 x1=(-b+sqrt(z))/(2*a) x2=(-b-sqrt(z))/(2*a) ? x1,x2 else ? 无实根 endif return 实验4-7 新建程序excercise5.prg。编写代码，要求完成以下功能： 假设收入（P）与税率（R）的关系如下表，编程求税金。 ? 0 P＜800 ? R= 0.05 800 ≤ P＜2000 0.08 2000≤P＜5000 0.1 P≥5000 程序代码如下： input “请输入收入：” to p do case case p800 r=0 case p2000 r=0.05 case p5000 r=0.08 otherwise r=0.1 endcase tax=p*r ? ”税金为：”,tax return 实验4-8 建立一个程序文件excercise6.prg和exercise7.prg，完成以下功能： ? 编程求1到100之间的偶数和。 程序代码如下： (1) do while 循环 clear s=0 i=2 do while i=100 s=s+i i=i+2 enddo ? 1到100之间的偶数和: ,S (2)for 循环 s=0 for i=2 to 100 step