vf程序设计 编程题Word格式文档下载.docx
- 文档编号:15893230
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:31
- 大小:47.54KB
vf程序设计 编程题Word格式文档下载.docx
《vf程序设计 编程题Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《vf程序设计 编程题Word格式文档下载.docx(31页珍藏版)》请在冰豆网上搜索。
f=100*0.05+(w-100)*0.02
“邮费:
“,f
错误方法二:
input“请输入邮件重量:
“tow
ifw<
return
例二计算分段函数值
setTaLKOFF
INPUT“请输入x值:
”tox
DOCASE
CASEX<
F=2*X-1
CASEX<
3
F=3*X+5
5
F=X+1
10
F=5*X-3
OTHERWISE
F=7*X+2
ENDCASE
’F(‘,X,’)=’,F
SETTALKOFF
RETURN
例3.计算s=1+2+3+………+100
方法一:
settalkoff
s=0
I=1
DOWHILEI<>=100
S=s+I
I=I+1
Enddo
”s=”,s
settalkon
方法二;
forI=1to100step1
s+I
endfor
”s”,s
例4.求s=1+2+3+…………+N
INPUT“请输入N的值:
“toN
S=0
DOWHILEI<
=N
S=S+I
ENDDO
”S=”,S
SETTALKON
input“请输入N的值:
”ton
例5.求s=1×
2×
3×
………×
20
clear
S=1
=20
S=S*I
”S=”,S
方法二
ForI=1to20
S=S*I
Endfor
“S=”,S
settalkon
例6求S=1*2*3*…*n
方法一
settalkoff
input“请输入n的值:
”toN
DowhileI<
I=I+I
“S=”,S
Settalkon
Return
clear
Settalkoff
Input“请输入n的值:
ForI=1toN
S=S*S
Endfor
“S=”,S
例7求S=1!
+2!
+3!
+…+10!
方法三
N=1
Dowhilen<
=10
P=1
I=1
=n
P=P*I
I=I+1
Enddo
N=N+1
S=S+P
Settalkoff
S=0
ForN=1to10
P=1
P=P*I
S=S+P
“S=”,S
方法二
ForI=1to10
P=P*I
“s=”,S
teturn
例8求S=1!
+…+m!
input“请输入M的值:
“toM
DowhileN=M
I=I+1
Enddo
N=N+1
inpur“请输入N的值:
”toM
ForN==1toM
P=P*I
Endfo
inpur“请输入M的值:
ForI=1tom
P=P*I
例9找出100-999之间的所有“水仙花数”,所谓“水仙花数”是指一个三位数其各位数字的立方之各等于本身的数(153=13+53+33)
forI=100to999
a=int(i/100)
b=inr(I-100*a)/10)
c=I-int(i/10)*10
ifI=a^3+b^3+c^3
?
I
endif
endfor
s=str(I,3)
a=val(left(s,1))
b=val(sub(s,2,1))
c=val(right(s,1))
例10键盘中输入10个数,然后找出其中的最大值和最小值。
Clear
Input“请输入一个数:
”toa
Storeatoma,mi
ForI=2to10
”toa
Ifma<
a
Ma=a
Endif
Ifmi>
Mi=a
“最大值:
”,ma
“最小值:
”,mi
例11判断一个自然数是否为质数
input“请输入一个大于1的自然数:
k=0&
&
k=0代表是质数k=1代表不是质数
j=2
dowhilej<
n
ifmod(n,j)<
>
j=j+1
loop
k=1
exit
enddo
ifk=0
str(n)+“质数”
eles
str(n)+“不是质数”
例12从键盘输入一个数,若该数能被3或7整除,则输出该数的平方。
例14计算下列分段函数
input“x=”tox
ifx<
y=x*x+7
y=10*x-2
“y=”,y
sertalkon
Input“请输入一个数:
Ifint(x/3)=x/3orint(x/7)=x/7
x*x
例13求1-100之间的奇数和
s=1
n=1
dowhilen<
n=n+1
ifint(n/2)
s=s+n
”1-100之间的奇数和是:
“,s
forn=1to99step2
“1-100之间的奇数和是:
”,s
s=s+n
n=n+2
”,s
例27.已知某球从100米高度自由落下,落地后反复弹起,每次弹起的高度都是上次高度的一半,求此球第10次落地后反弹的高度和求所经过的路程。
H=100
H=0.5*H
S=S+2*H
ENDFOR
S,H
例28、有10名学生参加学校演讲比赛,10个评委参加评分,给分标准:
最高分10分,最低分为0分,选手得分是10个评委分数中去掉一个最高分和一个最低分后剩余8分分数取平均值。
DIMEDF(10),PF(10)
FORI=1TO10
S=0
”第”+alltrim(str(I,2))+”学生”
FORN=1TO10
INPUT“请输入评分:
”TOPF(N)
S=S+PF(N)
ENDFOR
STOREPF
(1)TOMA,MI
FORK=2TO9
IFMA<
PF(K)
MA=PF(K0
ENDIF
IFMI>
MI=PF(K)
S=S-MA-MI
DF(I)=S/8
DF(I)
例29、36块砖、36人搬,男搬4,女搬3,两小儿抬一砖,问男、女、小儿各多少人?
FORX=0TO9
FORY=0TO12
FORZ=0TO36
IFX+Y+Z=36AND4*X+3*Y+0.5*Z=36
X,Y,Z
例30、求一个三角形面积。
程序运行时先输入一个三角形的边长,另外两边分别比输入的边长增加了1和2。
计算面积前先要检查边长是否合理。
Clear
INPUT“请输入一个三角形的边长:
”toB
S1=0
“B=”,B
DOABC
DOAREAWITHB,B+1,B+2,S1
”三角形面积:
”,S1
PROCABC
IFB+B+1>
B+2
RETURN
ELSE
WAIT“输入的三角形边长值不合格!
”
CANCEL
ENDIF
PROCAREA
PARAMETERSX,Y,Z,S1
SS=(X+Y+Z)/2
S1=SQRT(SS*(SS-X)*(SS-Y)*(SS-Z))
RETURN
例31求所给两个数的最大公约数
*最大公约数求法:
用两个数中较小的数去除较大的,然后将除数作为下一次除的被除数,余数作为一下次除的除数,反复进行这样的操作,直到余数为零时为止,则最后一次的除的除数,即为两个数的最大公约数。
最小公倍数为两个相乘除以最大公约数。
input
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vf程序设计 编程题 vf 程序设计 编程