VFP程序设计.docx
《VFP程序设计.docx》由会员分享，可在线阅读，更多相关《VFP程序设计.docx（45页珍藏版）》请在冰豆网上搜索。
VFP程序设计
第六章程序设计
程序设计1
*----------------------------------
从键盘输入三角形的边长，输入边长满足两边之和大于第三边，且为正值。
计算并输出三角形的面积S；若不满足以上条件，显示输出"不能构成三角形"。
其中面积公式请参看（图1）。
将面积值存入变量AREA中。
请按照题目要求，在下面编写程序代码。
*----------------------------------
INPUTTOA
INPUTTOB
INPUTTOC
?
"三角形面积为",FUN（A,B,C）
RETURN
FUNCTIONFUN（a,b,c）
AREA=-1
**********Program**********
**********End**********
RETURNAREA
程序设计2
*----------------------------------
从键盘任意输入的三个数按从大到小排序。
排序后存入变量A，B，C中请按照题目要求，在下面编写程序代码。
*----------------------------------
A=-1
B=-1
C=-1
input"x="tox
input"y="toy
input"z="toz
FUN（X,Y,Z）
RETURN
FUNCTIONFUN（X,Y,Z）
**********Program**********
**********End**********
RETURN
DOYZJ10WITHOUT
程序设计3
*----------------------------------
从键盘输入一个数，如果该数字大于0，通过子程序输出该数字作为半径的圆面积；如果该数字小于等于0，则输出"不能作为圆的半径"。
（PI=3.14）将结果存入变量OUT中，请按照题目要求，在下面编写程序代码。
*----------------------------------
INPUTTOA
?
FUN（A）
FUNCTIONFUN（R）
OUT=-1
**********Program**********
**********End**********
RETURNOUT
程序设计4
*----------------------------------
从键盘输入3个数，然后找出其中最大值和最小值。
最大值存入ＭＡ中，最小值存入ＭＩ中。
本题使用IF...EndIf语句完成。
*----------------------------------
INPUT"请输入一个数：
"TOA
INPUT"请输入一个数：
"TOB
INPUT"请输入一个数：
"TOC
Ma=-1
Mi=-1
FUN（A,B,C）
?
MA,MI
FUNCFUN（A,B,C）
**********Program**********
**********End**********
RETURN
程序设计5
*----------------------------------
计算下列分段函数：
如下图当输入任意X值时，显示输出Y值，要求用DoCase语句实现。
*----------------------------------
INPUTTOX
?
FUN（X）
RETURN
FUNCTIONFUN（X）
Y=-1
**********Program**********
**********End**********
RETURNY
程序设计6
*----------------------------------
判断一个三位数是否为"水仙花数"，并输出判断结果，是为1，否为0。
所谓"水仙花数"是指一个3位数，其各位数字立方和等于该数本身。
将结果存入变量OUT中。
*----------------------------------
OUT=-1
n=153
**********Program**********
**********End**********
程序设计7
*----------------------------------
编程求对某一正数的值保留2位小数，并对第三位进行四舍五入。
将结果存入变量OUT中。
*----------------------------------
h=234.5367
OUT=-1
**********Program**********
**********End**********
程序设计8
*----------------------------------编程求对某一正数的值保留3位小数，并对第4位进行四舍五入。
将结果存入变量OUT中。
*----------------------------------
h=234.5367
OUT=-1
**********Program**********
**********End**********
11程序设计9
*----------------------------------
输出10到50之间所有能被7整除的数。
（用dowhile……enddo语句实现）并将这些数的和存入所给变量OUT中。
请按照题目要求，在下面编写程序代码。
*----------------------------------
OUT=-1
**********Program**********
**********End**********
DOYZJ4WITHOUT
程序设计10
*----------------------------------
求1--200间的所有偶数的和，结果输入变量OUT中，要求用For循环语句实现。
*----------------------------------
OUT=-1
**********Program**********
**********End**********
程序设计11
*----------------------------------------
编程求P=1+1/（2x2）+1/（3x3）+…1/（10x10）。
将结果存入变量OUT中，要求用DoWhile语句实现。
*----------------------------------------
OUT=-1
**********Program**********
P=0
M=1
DOWHILEM<=10
P=P+1/（M*M）
M=M+1
ENDDO
?
"P=",P
OUT=P
**********End**********
程序设计12
*----------------------------------
编程计算如下表达式的值：
y=1-1/3＋1/5-1/7＋1/9，要求使用for...endfor语句来完成。
将结果存入变量OUT中。
OUT=-1
*----------------------------------
**********Program**********
s=1
fori=1to4
s=s+（-1）^i/（2*i+1）
endfor
out=s
?
out
**********End**********
程序设计13
*----------------------------------
编程计算如下表达式的值：
y=1-1/2+1/4-1/6+1/8-1/10，要求使用for...endfor语句来完成。
将结果存入变量OUT中。
*----------------------------------
OUT=-1
**********Program**********
s=1
fori=1to5
s=s+（-1）^i/（2*i）
endfor
out=s
?
out
********End**********
程序设计14
*----------------------------------
编程求P=1-1/（2×2）+1/（3×3）-1/（4×4）+1/（5×5）。
将结果存入变量OUT中，要求用DoWhile语句实现。
*----------------------------------
OUT=-1
**********Program**********
P=0
M=1
I=0
DOWHILEM<=5
P=P+（（-1）^（M+1））/（M*M）
M=M+1
ENDDO
?
"P=",P
OUT=P
**********End**********
程序设计15
*----------------------------------
从键盘输入一个整数，输出所有能整除该数，并且本身也能被3整除的数的和。
（例如：
输入6，则输出3，6）结果存于变量x中，要求用For循环语句实现。
*----------------------------------
INPUTTON
?
FUN（N）
FUNCTIFUN（A）
X=0
**********Program**********
FORN=1TOA
IFA%N=0.AND.N%3=0
?
N
x=x+N
ENDIF
ENDFOR
**********End**********
RETURNX
程序设计16
*----------------------------------
编程求出1*1+2*2+......+n*n<=1000中满足条件的最大的n，将结果存入变量OUT中。
要求用DoWhile语句实现。
*----------------------------------
OUT=-1
**********Program**********
s=0
n=1
dowhiles<=1000
n=n+1
s=s+n*n
enddo
out=n-1
?
out
**********End**********
程序设计17
*----------------------------------
用子程序求出1~15之间的能被3整除的整数的平方和。
将结果存入变量OUT中，要求用For循环实现。
请按照题目要求，在下面编写程序代码。
*----------------------------------
OUT=-1
**********Program**********
N=1
S=0
FORN=1TO15
IFN%3=0
S=S+N*N
ENDIF
ENDFOR
?
S
SETTALKON
Out=S
**********End**********
DOYZJ10WITHOUT
程序设计18
*----------------------------------
编程求出并显示3!
+4!
+5!
的值，将结果存入变量OUT中。
要求用For...EndFor编程。
请按照题目要求，在下面编写程序代码。
*----------------------------------
OUT=-1
**********Program**********
S=0
ForI=3to5
p=1
Forj=1toI
p=p*j
升级会员 