foxpro程序设计示例与练习（顺序结构）-

适用班级：0915201/101/102/103

VFP程序设计示例与练习 ^Q^

顺序结构程序设计示例与练习

1.从键盘将两个学生的姓名(要求长度不同且不同姓)分别输给变量xm1和xm2，编写程序，求出xm1和xm2的长度

clear

set talk off

accept ‘请输入第一个学生的姓名：’ to xm1 accept ‘请输入第二个学生的姓名：’ to xm2 len1=len(xm1) len2=len(xm2) ?len1,len2 set talk on return

【练习】

(1) 将xm1和xm2按从大到小的顺序输出； （提示：用max()和min()函数）

(2) 将xm1和xm2按长度从大到小的顺序输出； （提示：用iif()函数）

(3) 求出xm1和xm2的姓，并分别输出；

（提示：可使用函数left(),right(),substr()）

2.从键盘输入两个任意正数a、b，编程求以a、b两数为边长的长方形周长。

set talk off clear

input ‘请输入长方形的一边长：’ to a input ‘请输入长方形另一边长：’ to b l=2*(a+b) ? l

set talk on return

【练习】

(1) 从键盘输入三角形三条边a,b,c，求三角形周长l； (2) 从键盘输入三角形三条边a,b,c，求三角形面积s；（提示：用海仑公式求s

s=sqrt(l*(l-2*a)*(l-2*b)*(l-2*c)/16） ) (3) 从键盘输入圆的半径r，求圆的面积s； （提示：使用函数pi()）

3. 从键盘输入两个数,求出最大数和最小数。

clear

input ‘请输入第一个数：’ to a input ‘请输入第二个数：’ to b zd=max(a,b) zx=min(a,b)

?‘最大数是：’,zd ?‘最小数是：’,zx return

*（思考：此题也可以用iif()函数实现）

【练习】

(1) 从键盘输入三个数,求出最大数和最小数； (2) 用iif()函数做(1)，试试看。

（提示：设三个数为a、b、c，则可用下列语句求出最大数 zd=iif(a>=b,a,b) zd=iif(zd>=c,zd,c) 同理可求出最小数）

4.从键盘任意输入一个正整数m，判断m是奇数还是偶数。

clear

set talk off

input ‘请输入一个正整数：’ to m ?iif(mod(m,2)=0,’偶数’,’奇数’) set talk on return

【练习】

(1) 从键盘任意输入一个正整数m，判断m能否被3整除。（用iif()函数，下同）

(2) 从键盘任意输入一个正整数m，判断m能否被3和5整除。（用and）

(2) 从键盘任意输入一个正整数m，判断m能否被3或5整除。（用or）

5.从键盘任意输入一个三位正整数m，求出m的各位数字之和；

clear

input ‘请输入一个三位正整数：’ to m bw=int(m/100)

sw=int(mod(m,100)/10) gw=mod(m,10) s=bw+sw+gw ?sum return

【练习】

(1) 从键盘任意输入一个四位正整数m，求出m的各位非零数字之积；

(2) 从键盘任意输入一个三位正整数m，将m的各位数字反向组成一个新数并输出；

(3) 思考1：如果是五位数，上述题目怎么做？ (4) 思考2：拆数的方法很多，你还能想出哪些？

7.你会输出下面的图形吗

@

# ******

@@ ### ******

@@@

#####

****** @@@@

####### ****** 【练习】(图1) (图2)

(图3)

1