VFP程序设计.docx
- 文档编号:9821241
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:53
- 大小:35.04KB
VFP程序设计.docx
《VFP程序设计.docx》由会员分享,可在线阅读,更多相关《VFP程序设计.docx(53页珍藏版)》请在冰豆网上搜索。
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=将结果存入变量OUT中,请按照题目要求,在下面编写程序代码。
*----------------------------------
INPUTTOA
FUN(A)
FUNCTIONFUN(R)
OUT=-1
**********Program**********
**********End**********
RETURNOUT
程序设计4
*----------------------------------
从键盘输入3个数,然后找出其中最大值和最小值。
最大值存入MA中,最小值存入MI中。
本题使用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=
OUT=-1
**********Program**********
**********End**********
程序设计8
*----------------------------------编程求对某一正数的值保留3位小数,并对第4位进行四舍五入。
将结果存入变量OUT中。
*----------------------------------
h=
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=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
endfor
s=s+p
endfor
"3!
+4!
+5!
的值是:
",s
Out=S
**********End**********
DOYZJ2WITHOUT
程序设计19
*----------------------------------
编程求P=1x(1x2)x(1x2x3)x…x(1x2x…xN),N由键盘输入,将结果存入变量OUT中。
要求用For...EndFor编程。
请按照题目要求,在下面编写程序代码。
*----------------------------------
INPUT"请任意输入一个数字:
"TON
FUN(N)
FUNCTIONFUN(N)
OUT=-1
**********Program**********
p=1
fori=1ton
q=1
forj=1toi
q=q*j
endfor
p=p*q
endfor
Out=p
**********End**********
RETURNOUT
程序设计20
*----------------------------------
用循环程序求出1~15之间能被3整除的整数的阶乘和存入变量OUT中,要求用For循环语句实现。
请按照题目要求,在下面编写程序代码。
*----------------------------------
OUT=0
**********Program**********
T=1
FORN=1TO15
T=T*N
IFN%3=0
Out=Out+T
ENDIF
ENDFOR
Out
**********End**********
RETURN
程序设计21
*----------------------------------
编程求sum=3+33+333+3333+33333的值。
要求使用for...endfor语句来完成。
将结果存入变量OUT中。
*----------------------------------
OUT=-1
**********Program**********
s=0
t=0
d=3
fori=1to5
t=t+d
s=s+t
d=d*10
endf
out=s
out
**********End**********
程序设计22
*----------------------------------
编程求sum=1/3+1/33+1/333+1/3333+1/33333的值。
(要求使用For循环语句求解)将结果存入变量OUT中。
*----------------------------------
OUT=-1
**********Program**********
s=0
t=0
d=3
fori=1to5
t=t+d
s=s+1/t
d=d*10
endf
out=s
out
**********End**********
程序设计23
*----------------------------------
编程求sum=3-33+333-3333+33333的值。
要求使用for...endfor语句来完成。
将结果存入变量OUT中。
*----------------------------------
OUT=-1
**********Program**********
s=0
t=0
d=3
fori=1to5
t=t+d
s=s+t*(-1)^(i+1)
d=d*10
endf
out=s
out
**********End**********
程序设计24
*----------------------------------
编程求自然数345各位数字的积。
要求使用循DoWhile语句实现,将结果存入变量OUT中。
*----------------------------------
n=345
OUT=-1
**********Program**********
s=1
dowhilen>0
d=n%10
s=s*d
n=int(n/10)
enddo
out=s
out
**********End**********
程序设计25
*----------------------------------
编程计算正整数num的各位上的数字之和。
将结果存入变量OUT中,要求用DoWhile语句实现。
*----------------------------------
"输入正整数num=434"
num=434
OUT=-1
**********Program**********
s=0
dowhilenum<>0
s=s+num%10
num=int(num/10)
endd
out=s
out
**********End**********
程序设计26
*----------------------------------
编程计算正整数num的各位上的数字之积。
例如,若输入:
252,则输出应该是:
20。
将结果存入变量OUT中,要求用DoWhile语句实现。
*----------------------------------
num=434
OUT=-1
**********Program**********
s=1
dowhilenum<>0
s=s*(num%10)
num=int(num/10)
endd
out=s
out
**********End**********
程序设计27
*----------------------------------
编程判断一个整数w的各位数字平方之和能否被5整除,可以被5整除则返回1,否则返回0。
将结果存入变量OUT中,要求用DoWhile语句实现。
*----------------------------------
OUT=-1
w=39
**********Program**********
s=0
dowhilew>0
s=s+(w%10)*(w%10)
w=int(w/10)
enddo
ifs%5=0
out=1
else
out=0
endif
out
**********End**********
DOYZJWITHOUT
程序设计28
*----------------------------------
输入一个三位数,将个、十、百位顺序拆开分别存入变量S中,用加号分隔。
如输入345分开后为3+4+5,要求用DoWhile语句实现。
*----------------------------------
FUN(345)
RETURN
FUNCFUN(N)
S=""
**********Program**********
dowhilen>0
a=n%10
S="+"+STR(INT(A),1)+S
n=n-a
n=n/10
enddo
S=SUBS(S,2,LEN(S))
**********End**********
RETURNS
11程序设计29
*----------------------------------
输出下面图形:
(要求使用For语句,利用双重循环语句)
*
**
***
****
请按照题目要求,在下面编写程序代码。
要求:
将输出第三行的所有字符存入变量S中。
*----------------------------------
S=""
**********Program**********
fori=1to4
forj=1toi
"*"
endfor
endfor
**********End**********
DOYZJ6WITHS
程序设计30
*----------------------------------
利用循环程序输出图形:
1
222
33333
4444444
并将输出第三行存入变量S中,请按照题目要求,在下面编写程序代码。
*----------------------------------
S=""
**********Program**********
N=1
FORN=1TO4
SPACE(4-N)
FORM=1TO2*N-1
STR(N,1)
ENDFOR
ENDFOR
SETTALKON
S="33333"
**********End**********
DOYZJ13WITHS
程序设计31
*----------------------------------
利用循环程序输出图形:
4
333
22222
1111111
并将最后一行存入变量S中,请按照题目要求,在下面编写程序代码。
*----------------------------------
S=""
**********Program**********
FORN=1TO4
SPACE(4-N)
FORM=1TO2*N-1
STR(4-N+1,1)
ENDFOR
ENDFOR
S="1111111"
**********End**********
DOYZJ15WITHS
11程序设计32
*----------------------------------
计算并在屏幕上显示乘法表。
显示格式如下:
1×1=1
1×2=22×2=4
1×3=32×3=63×3=9
...............
1×9=92×9=18............9×9=81
将各部分结果相加(1+2+4+......+81)存入变量Z中,程序要求用DoWhile语句实现。
*----------------------------------
Z=0
**********Program**********
X=1
DOWHILEX<=9
Y=1
DOWHILEY<=X
STR(Y,1)+'×'+STR(X,1)+'='+STR(X*Y,2)+''
Z=Z+X*Y
Y=Y+1
ENDDO
X=X+1
ENDDO
**********End**********
11程序设计33
*----------------------------------
编一程序打印一个数列,前两个数是0、1第三个数是前两个数之和,以后的每个数都是其前两个数之和。
编程求出此数列第20个数,将结果存入变量OUT中,要求用For循环语句实现。
*----------------------------------
OUT=-1
**********Program**********
a=0
B=1
ForI=3to20
C=a+b
A=b
B=c
Endfor
"c=",c
Out=C
**********End**********
程序设计34
*----------------------------------
编程求fibonacci数列第28项的值。
已知数列的第一项值为1,第二项值也为1,从第三项开始,每
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 程序设计