vf程序.docx
- 文档编号:6532469
- 上传时间:2023-01-07
- 格式:DOCX
- 页数:36
- 大小:40.58KB
vf程序.docx
《vf程序.docx》由会员分享,可在线阅读,更多相关《vf程序.docx(36页珍藏版)》请在冰豆网上搜索。
vf程序
P7
例1、从键盘上输入圆的半径,求出圆的面积。
例如从键盘输入圆的面积为1,则程序运行结果如下图,请编制程序。
settalkoff
clear
input"请输入圆的半径:
"tor
s=pi()*r^2
?
"此圆的面积为:
",s
Settalkon
cancel
例2、从键盘输入长方形的长和宽,输出该长方形的面积。
例如从键盘输入的数据分别为2,3,则程序运行结果如下图。
请编制程序。
settalkoff
clear
input"请输入长方形的长:
"toa
input"请输入长方形的宽:
"tob
s=a*b
?
"此长方形的面积为:
",s
settalkon
cancel
例3、求出ax²+bx+c=0,其中a,b,c由键盘输入,设方程中的△始终大于0求根公式为p=-
,
则根x1=p-q,x2=q-p。
例如从键盘输入1,2,1时,程序运行如下图,请编制相应程序。
settalkoff
clear
input"请输入a:
"toa
input"请输入b:
"tob
input"请输入c:
"toc
p=-b/(2*a)
q=sqrt(b^2-4*a*c)/(2*a)
x1=p-q
x2=q-p
?
"第一个根为:
",x1
?
"第二个根为:
",x2
settalkon
cancel
P9
例1、从键盘输入年份,判断是否是闰年。
例如输入年份为2000年,则程序运行结果下图,请编制程序。
settalkoff
clear
input"请输入年份:
"ton
if(n%4=0orn%100!
=0)andn%400=0
?
n,"年是闰年。
"
else
?
n,"不是闰年。
"
endif
settalkon
cancel
例2、从键盘任意输入一个三位正整数,判断该数是否为水仙花数。
水仙花的规则为各位数字的立方和等于本身,例如:
153=1³+5³+3³。
若从键盘输入的数字为153,则运行结果如下图,请编制相应程序。
settalkoff
clear
input"请输入一个三位整数:
"ton
a=n%10
b=int(n/10)%10
c=int(n/100)
ifa^3+b^3+c^3=n
?
n,"是水仙花数"
else
?
n,"不是水仙花数"
endif
settalkon
cancel
例3、求出该分段函数的值,该分段函数为:
fx=
例如从键盘输入数字为-3,则该程序运行结果如下图,请编制程序。
settalkoff
clear
input"请输入x的值:
"tox
ifx>0
fx=x^2
else
ifx=0
fx=0
else
fx=-(x^2)
endif
endif
?
"所求fx值为:
",fx
settalkon
cancel
例4、根据某邮局的收费标准,从键盘输入相应的里程数,输出相应的运费。
例如从键盘输入的里程数为155,则程序运行如下图,请编制相应的程序。
里程数(km)
收费标准(元)
小于100(含)
25
100-200(含)
40
200-300(含)
50
300以上
80
settalkoff
clear
input"请输入里程数:
"tos
docase
cases<=100
m=25
cases>100ands<=200
m=40
cases>200ands<=300
m=50
otherwise
m=80
endcase
?
"所求缴纳运费为:
",m
settalkon
cancel
p12
例1、输出1-20之间的所有正数,每行输出5个数字,运行程序后的结果如下图请编制相应程序。
settalkoff
clear
?
"1-20之间的整数有:
"
?
fori=1to20
?
?
i
ifi%5=0
?
endif
next
settalkon
cancel
例2、求出表达式1+
+
+
+
+
+……
大于3时,最少需要多少相。
该程序的输出结果如下,请编制相应的程序。
settalkoff
clear
s=0
n=1
dowhiles<=3
s=s+1/n
n=n+1
enddo
?
"大于3时,最少需要的项数为:
",n-1
settalkon
cancel
例3、根据媒体发布的信息,2010年中国GDP总量为5.845万亿美元,增长率10.1%,美国的DGP总量为14.536万亿美元,增长率3.3%。
在两国DGP保持2010年的速度不变的情况下,编程计算出最早哪一年中国的GDP总量有望超过美国GDP。
settalkoff
clear
x=5.84
y=14.536
n=2010
dowhilex<=y
x=x*(1+0.101)
y=y*(1+0.033)
n=n+1
enddo
?
"最早中国超过美国GDP的年限为:
",n
settalkon
cancel
例4、已知数列1,1,2,3,5……n,求出大于200时最少需要多少项,该程序的输出结果如下,请编制相应的程序。
settalkoff
clear
a=1
b=1
c=a+b
n=3
dowhilec<=200
a=b
b=c
c=a+b
n=n+1
enddo
?
"最少需要的项数为:
",n
settalkon
cancel
例5、请输入任意一个整数n,求出该数字为几位数字。
例如从键盘输入123,该程序的输出结果如下,请编制相应的程序。
settalkoff
clear
input"请输入一个正整数:
"ton
c=0
dowhilen!
=0
n=int(n/10)
c=c+1
enddo
?
"该数为:
",c,"位数"
settalkon
cancel
例6、请输入一个整数n,求出该数的各位数之和。
例如从何键盘输入的正整数为123,则该程序的结果如下,请编制相应程序。
settalkoff
clear
input"请输入一个正整数:
"ton
s=0
dowhilen!
=0
y=n%10
n=int(n/10)
s=s+y
enddo
?
"输入的数字的各位数字之和为:
",s
settalkon
cancel
例7、求出表达式s=1+2+3+4+…+n的值,n由键盘输入,例如从键盘输入的值为100,则该程序的输出结果如下,请编制相应的程序。
settalkoff
clear
input"请输入一个整数:
"ton
s=0
fori=1ton
s=s+i
next
?
"表达式的值为:
",s
settalkon
cancel
例8、求出表达式s=1+(1+2)+(1+2+3)+…+(1+2+3+4+…+10),该程序的运行结果如下,请编制相应程序。
法一:
settalkoff
clear
s=0
sum=0
fori=1to10
s=s+i
sum=sum+s
next
?
"表达式的值为:
",sum
settalkon
cancel
法二:
settalkoff
clear
s=0
fori=1to10
forj=1toi
s=s+j
next
next
?
"表达式的值为:
",s
settalkon
cancel
例9、求出表达式s=6!
该程序的运行结果如下,请编制相应程序。
settalkoff
clear
s=1
fori=1to6
s=s*i
next
?
"该表达式的值为:
",s
settalkon
cancel
例10、求出表达式s=1!
+2!
+3!
+4!
+……+n!
例如从键盘输入的值为5,则程序的输出的结果如下,请编制相应程序。
settalkoff
clear
input"请输入一个整数:
"ton
k=1
s=0
fori=1ton
k=k*i
s=s+k
next
?
"该表达式的值为:
",s
settalkon
cancel
例11、从键盘输入一个整数n,求出该数的双阶乘。
双阶乘的规则为:
当n为奇数时,阶乘为1*3*5*7*…*n,当n为偶数时,阶乘为2*4*6*…*n。
例如重键盘输入的整数为7,该输出的结果如下,请编制相应程序。
settalkoff
clear
input"请输入一个整数:
"ton
k=1
ifn%2!
=0
fori=1tonstep2
k=k*i
next
else
fori=2tonstep2
k=k*i
next
endif
?
"该表达式的值为:
",k
settalkon
cancel
例12、从键盘输入两个正整数m与n,已知m<=n,求出m到n之间所有正整数之和。
例如输入的m=3,n=9,则运行程序后结果如下图,请编制相应程序。
settalkoff
clear
input"请输入一个整数:
"tom
input"请输入一个整数:
"ton
s=0
fori=mton
s=s+i
next
?
"该表达式的值为:
",s
settalkon
cancel
例13、任意输入两个年号,已知输入的年份都为合法年份,求出这两个年份之间的闰年年号。
例如输入的年份为1990和2000,则输出的结果如下,请编制相应程序。
settalkoff
clear
input"请输入开始年份:
"tom
input"请输入截止年份:
"ton
?
"输入的年份之间所有闰年为:
"
fori=mton
if(i%4=0andi%100!
=0)ori%400=0
?
?
i
endif
next
settalkon
cancel
例14、从键盘上任意输入一个正整数,判断该数是否为素数。
素数规则为该数只能被1以及本身整除,例如从键盘输入的整数位7,则输出结果如下图。
请编制相应的程序。
settalkoff
clear
input"请输入一个任意正整数:
"ton
f='T'
fori=2ton-1
ifn%i=0
f='F'
exit
endif
next
iff='T'
?
n,"是一个素数"
else
?
n,"不是素数"
endif
settalkon
cancel
例15、从键盘上任意输入两个正整数m与n,已知m<=n,求出两个正整数之间所有素数之和。
例如从键盘上输入的数字为3与7,则输出结果如下,请编制相应程序。
settalkoff
clear
input"请输入第一个数:
"tom
input"请输入第二个数:
"ton
s=0
fori=mton
f='T'
forj=2toi-1
ifi%j=0
f='F'
exit
endif
next
iff='T'
s=s+i
endif
next
?
"输入两个数之间的所有素数和为:
",s
settalkon
cancel
例16、从键盘上任意输入一个正整数,将该正整数逆序后输出。
例如从键盘输入的正整数为1234,则输出的结果如下,请编制相应的程序。
settalkoff
clear
input"请输入任意一个正整数:
"ton
s=0
dowhilen!
=0
y=n%10
n=int(n/10)
s=s*10+y
enddo
?
"该数逆序后为:
",s
settalkon
cancel
例17、从键盘上任意输入两个正整数,求出这两个正整数的最大公约数以及最小公倍数。
例如从键盘输入的数字为24与16,则输出的结果如下,请编制相应程序。
settalkoff
clear
input"请输入第一个数:
"toa
input"请输入第二个数:
"tob
x=a
y=b
dowhileb!
=0
c=a%b
a=b
b=c
enddo
?
"最大公约数:
",a
?
"最小公倍数:
",x*y/a
settalkon
cancel
例18、求出100-999之间的所有水仙花数,水仙花数的原理参考选择结构例2,程序输出结果如下,编制相应的程序。
法一:
settalkoff
clear
?
"100-99之间的水仙花数:
"
fori=100to999
a=i%10
b=int(i/10)%10
c=int(i/100)
ifa^3+b^3+c^3=i
?
?
i
endif
next
settalkon
cancel
法二:
settalkoff
clear
?
"100-999之间的所有水仙花数有:
"
fori=100to999
k=i
s=0
dowhilek!
=0
y=k%10
k=int(k/10)
s=s+y^3
enddo
ifi=s
?
?
i
endif
next
settalkon
cancel
例19、求出表达式s=1+
+
+
+…+
的值,n是由键盘输入的任意正整数,例如输入的数字为7则输出结果如下,请编制相应程序。
法一:
settalkoff
clear
input"请输入任意正整数:
"ton
s=1
k=1
fori=3tonstep2
k=k*i*(i-1)
s=s+1/k
next
?
"表达式的值为:
",s
settalkon
cancel
法二:
settalkoff
clear
input"请输入任意正整数:
"ton
s=0
fori=1tonstep2
k=1
forj=1toi
k=k*j
next
s=s+1/k
next
?
"表达式的值为:
",s
settalkon
cancel
法三:
settalkoff
clear
input"请输入任意正整数:
"ton
s=0
k=1
fori=1ton
k=k*i
ifi%2=1
s=s+1/k
endif
next
?
"表达式的值为:
",s
settalkon
cancel
例20、已知有零钞的面额为:
10元,2元,0.5元,现有100元钱,全部换成零钞的总张数为100张,求出具体换发以及兑换方法的数量。
程序运行结果如下,请编制相应程序。
settalkoff
clear
n=0
?
"具体方法按10元,5元,0.5元排列:
"
fori=1to10
forj=1to50
fork=1to100
if10*i+2*j+0.5*k=100andi+j+k=100
?
i,j,k
n=n+1
endif
next
next
next
?
"总的兑换方法种数:
",n
settalkon
cancel
例21、从键盘上输入一个字符串,将该字符串的每个字符按照换行的模式输出。
例如从键盘输入的字符串为abcd,则输出结果如下,请编制相应的程序。
settalkoff
clear
accept"请输入一个字符串:
"toa
n=len(a)
fori=1ton
y=substr(a,i,1)
?
y
next
settalkon
cancel
例22、从键盘输入任意一个字符串,将该字符串逆序后输出。
例如从键盘输入的字符串为abcd,则输出的结果为dcba。
请编制相应程序。
settalkoff
clear
s=""
accept"请输入一个字符串:
"toa
n=len(a)
fori=1ton
y=substr(a,i,1)
s=y+s
next
?
"逆序后的字符串为:
",s
settalkon
cancel
例23、从键盘输入任意一个字符串,统计该字符串中数字字符的个数。
例如从键盘输入的字符串为:
a1b2c,则程序运行的结果如下,请编制相应的程序。
settalkoff
clear
m=0
accept"请输入一个字符串:
"toa
n=len(a)
fori=1ton
y=substr(a,i,1)
ifasc(y)>=48andasc(y)<=57
m=m+1
endif
next
?
"字符串中数字的个数为:
",m
settalkon
cancel
例24、请编制程序输出图案。
程序运行后的输出结果如下图,请编制相应程序。
settalkoff
clear
fori=1to6
?
?
space(6-i)
forj=1to2*i-1
?
?
"*"
next
?
next
settalkon
cancel
例25、输出九九乘法表,输入式样如下,请编制相应程序。
settalkoff
clear
fori=1to9
forj=1toi
s=i*j
?
?
i,"*",j,"=",s
next
?
next
settalkon
cancel
p22
例1、从键盘上输入5个任意正整数,将这五个正整数一一换行输出。
例如输入的数字分别为1,2,3,4,5,则输出结果如下,请编制相应程序。
settalkoff
clear
dimea(5)
?
"请输入5个任意正整数:
"
fori=1to5
inputtoa(i)
next
?
"输入结果为:
"
fori=1to5
?
a(i)
next
settalkon
cancel
例2,随机产生5个两位数,输出这5个随机数并求出这五个数的最大值及其位置。
该程序的运行结果如下,请编制相应程序。
settalkoff
clear
dimea(5)
fori=1to5
a(i)=int(rand()*90+10)
next
?
"产生的随机数为:
"
fori=1to5
?
?
a(i)
next
max=a
(1)
m=1
fori=2to5
ifa(i)>max
max=a(i)
m=i
endif
next
?
"最大值是:
",max,"位置为:
",m
settalkon
cancel
例3、随机产生n个10-100之间的任意正整数,输出这n个随机数并输出这n个数的最小值以及位置,其中个数由用户指定。
例如用户指定的随机数个数为5,则输出结果如下,请编制相应程序。
settalkoff
clear
input"请输入指定随机数的个数:
"ton
dimea(n)
fori=1ton
a(i)=int(rand()*91+10)
next
?
"产生的随机数为:
"
fori=1ton
?
?
a(i)
next
min=a
(1)
m=1
fori=2ton
ifa(i) min=a(i) m=i endif next ? "最小值是: ",min,"位置为: ",m settalkon cancel 例4、随机产生10个3为数,输出这十个随机整数,并且将这10个正整数按从下到大排序后输出,该程序的输出样式如下图,请编制相应程序。 settalkoff clear dimea(10) fori=1to10 a(i)=int(rand()*900+100) next ? "产生的随机数为: " fori=1to10 ? ? a(i) next fori=1to9 forj=i+1to10 ifa(i)>a(j) c=a(i) a(i)=a(j) a(j)=c endif next next ? "排序后的随机数为: " fori=1to10 ? ? a(i) next settalkon cancel 例5、输入n个学生的总成绩,编程求出其中的第一名和第二名,其中学生人数由用户指定。 例如输入五个学生的成绩分别为80,90,11,22,33输出结果如下,请编制相应的程序。 settalkoff clear input"请输入学生人数: "ton dimea(n) fori=1ton inputtoa(i) next fori=1ton-1 forj=i+1ton ifa(i)>a(j) c=a(i) a(i)=a(j) a(j)=c endif next next ? "第一名与第二名分别为: ",a(n),a(n-1) settalkon cancel 例6、(对字符串排序处理)有5个英文单词,分别为: Word,Excel,Powerpoint,Type,Angle,要求设计出如下程序。 (1)在键盘上输入N(本例输入5),把英文单词放入名为a大小为N的数组中 (2)显示出a数组中的英文单
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vf 程序