算法VB程序必修3学习Word文档格式.docx
《算法VB程序必修3学习Word文档格式.docx》由会员分享，可在线阅读，更多相关《算法VB程序必修3学习Word文档格式.docx（14页珍藏版）》请在冰豆网上搜索。
练习题
1温度
f=（c-32）*（5/9）
Printf
2加减乘除
sum="
Val（a）+Val（b）
diff="
Val（a）-Val（b）
pro="
Val（a）*Val（b）
qvo="
Val（a/b）
3海伦秦九韶公式
p=（1/2）*（Val（a）+Val（b）+Val（c））
s=（p*（p-Val（a））*（p-Val（b））*（p-Val（c）））^（1/2）
Printp,s
4应用题
p=10.4*Val（a）+15.6*Val（b）+25.2*Val（c）
Printp
1.2.2条件语局
1求绝对值
方法一
x=InputBox（prompt,tittle）
Ifx>
=0Then
Printx
Else
Print-x
EndIf
方法二
Ifx<
0Then
x=-x
2二元一次方程
d=b^2-4*a*c
Ifd>
p=-b/（2*a）
q=Sqr（d）/（2*a）
Ifd=0Then
x1=x2="
p
x1,x2="
p+q,p-q
norealroot"
3大小排序
Ifb>
aThen
t=a
a=b
b=t
Ifc>
a=c
c=t
bThen
t=b
b=c
Printa,b,c
endif
1图1.1-10三角形的三边的关系
If（（Val（a）+Val（b））>
Val（c））And（（Val（c）+Val（b））>
Val（a））And（（Val（a）+Val（c））>
Val（b））Then
存在这样的三角形"
不存在这样的三角形"
2阅读程序
pleaseinputaninteger:
"
x
If（x>
9）And（x<
100）Then
a=x\10
b=xMod10
x=10*b+a
Printx,a,b
3编写一个程序，判断任意输入的整数的奇偶性
r=（Val（x）Mod2）
Ifr=0Then
x是偶数"
x是奇数"
4闰年
请输入年份"
y=InputBox（prompt,tittle）
r=Val（y）Mod400
l=Val（y）Mod100
k=Val（y）Mod4
If（r=0）Or（（（l>
<
0））And（k=0））Then
y是闰年"
y不是闰年"
If（yMod4）=0Then
If（yMod100）=0Then
If（yMod400）=0Then
1.2.3循环语句
1.从1加到100
i=1
s=0
Do
s=s+i
i=i+1
LoopUntili>
100
Prints
Whilei<
=100
Wend
2.函数
n=1
Printy,n
n=n+1
LoopUntiln>
11
3.二分法
d=InputBox（prompt,tittle）
m=（Val（a）+Val（b））/2
g=a^2-2
f=m^2-2
Ifg*f<
b=m
a=m
LoopUntilAbs（a-b）<
Val（d）Orf=0
Printm,g,f
1.判断大于2的数是否为质数
n=InputBox（prompt,tittle）
i=2
r=nModi
LoopUntil（i>
n-1）Or（r=0）
n不是质数"
n是质数"
2.计算n的阶数
s=1
s=s*i
Val（n）
习题1.2
A组
1.阅读程序
y=-x+1
Ifx=0Then
y=0
y=x+1
Printy
End
2．编写一个程序，输入梯形的上底、下底和高的值，计算并输出其面积。
h=InputBox（prompt,tittle）相当于INPUT“a,b,c=”a,b,c
s=（1/2）*（Val（a）+Val（b））*h
3.编写一个程序，计算下面n个数的和
s=s+（（i+1）/i）
B组
1.编写一个程序，，计算二元一次方程组
的解。
a1=InputBox（prompt,tittle）（相当于INPUTa1）
b1=InputBox（prompt,tittle）（相当于INPUTb1）
c1=InputBox（prompt,tittle）（相当于INPUTc1）
a2=InputBox（prompt,tittle）（相当于INPUTa2）
b2=InputBox（prompt,tittle）（相当于INPUTb2）
c2=InputBox（prompt,tittle）（相当于INPUTc2）
x=（（b2）*（c1）-（b1）*（c2））/（（a1）*（b2）-（a2）*（b1））
y=（（a1）*（c2）-（a2）*（c1））/（（a1）*（b2）-（a2）*（b1））
Printx,y
2.某牛奶厂2002年初有资金1000万元，由于引进了先进生产设备，资金年平均增长率可达到50%。
请你设计一个程序，计算这家牛奶厂2008年底的资金总额。
s=1000
i=2002
s=s*（1+0.5）
2008
3.编写一个程序，对于函数
，
输入x的值，输出相应的函数值。
1Then
y=x
=1）And（x<
10）Then
y=2*x-1
y=3*x-11
EndSub
4．编写一个程序，计算
（例如
共5个数相加）的值，其中
且
要求输入数字
和相加的数的根数n.
Sum=0
Sum=Sum+t
t=t+a
PrintSum
t=10*t+Val（a）
1.3算法案例
1．转展相除法
m=InputBox（prompt,tittle）
r=Val（m）ModVal（n）
m=n
n=r
LoopUntilr=0
Printm
r=mModn
方法3
Whiler<
>
0
Printn
end
2.更相减损术
r=m-n
IfVal（r）>
Val（n）Then
m=r
LoopUntilm-n=r
LoopUntilm-n=0
秦九韶算法
请输入n,an,x="
v=a
i=n-1
Whilei>
=0
Printi
ai=InputBox（prompt,tittle）
v=v*x+a
i=i-1
Printv
升级会员 