VF实验报告答案.docVIP

实验报告：程序设计答案 求圆环面积，分别用子程序、过程、函数实现。 用子程序实现： 主程序： Set talk off Clear S=0 Input “请输入大圆的半径：” to r1 Input “请输入小圆的半径：” to r2 Do area with r1,r2 ?“圆环的面积为：”,s Set talk on Return 子程序：area.prg Parameters k1,k2 S=Pi()*k1*k1-Pi()*k2*k2 Return 用过程实现： 主程序： Set talk off Clear S=0 Input “请输入大圆的半径：” to r1 Input “请输入小圆的半径：” to r2 Set procedure to sub1 Do area with r1,r2 ?“圆环的面积为：”,s Close procedure Set talk on Return 过程文件sub1.prg Procedure area(k1,k2) S=Pi()*k1*k1-Pi()*k2*k2 Return Endproc 用函数实现： 主程序： Set talk off Clear Input “请输入大圆的半径：” to r1 Input “请输入小圆的半径：” to r2 S=area( r1,r2) ?“圆环的面积为：”,s Set talk on Return 函数：area.prg Parameters k1,k2 m=Pi()*k1*k1-Pi()*k2*k2 Return m 从1-200，若该数能被3整除且末位数为5则显示该数。 Set talk off Clear For i=1 to 200 If mod(i,3)=0 .and. mod(i,5)=0 .and. mod(i,10)0 ?i Endif Endfor Set talk on Return 从键盘上接受一个字符串，统计该字符串中包含的数字字符(0~9)的总个数并显示出来。 set talk off clear s=0 accept 请输入一个字符串： to a n= len(a) for i=1 to n j=substr(a,i,1) if asc(j)=48 .and. asc(j)=57 s=s+1 endif endfor ?该字符串数字的个数是：,s set talk on return 从键盘上接受一个字符串，以相反的顺序将其显示出来(例如，若输入为“aBxyxty1”，则输出应为“1ytxyxBa”)。 set talk off clear s= accept 请输入一个字符串： to a for i=len(a) to 1 step -1 s=s+substr(a,i,1) endfor ?该字符串的相反顺序为：+s set talk on return 若基本工资大于等于600元,增加工资20%,若小于600元大于等于400元,则增加工资15%,若小于400元则增加工资10%.请将rsgz.dbf表中的基本工资字段按此规则调整。 SET TALK OFF CLEAR CLOSE ALL USE Rsgz Do While .not. eof() Do Case Case 基本工资=600 Replace基本工资 With基本工资*1.2 Case基本工资=400 .and.. 基本工资600 Replace基本工资 With基本工资*1.15 Case基本工资400 Replace基本工资 With基本工资*1.10 Endcase Skip Enddo USE SET TALK ON RETURN 设有一张足够大的厚度为0.5毫米的纸，问至少折叠多少次可以达到（或超过）珠穆朗玛峰（8844.43米）。 set talk off clear n=1 hight=0.5 do while .t. hight=hight*2 if hight=8848130 ?折叠次数为：,n exit endif n=n+1 enddo set talk on return 输入三角形的三个边长Ａ、Ｂ、Ｃ，若Ａ、Ｂ、Ｃ能构成三角形，则计算出三角形面积；否则提示“不能构成三角形！”。若构成的三角形为直角三角形，也给出“构成直角三角形”的提示。积 S= 式中 W=(A+B+C)／2 SET TALK OFF CLEAR INPUT 请输入三角形的第一边长度： TO A INPUT 请输入三角形的第二边长