- 1、本文档共7页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
红色字体的是作业,完成在作业本上。
【例1】输入直角三角形的两个直角边的边长值a和b,然后用勾股定理计算出斜边的边长值c。
分析问题:
输入:直角三角形两个直角边的边长a和b。
处理:利用勾股定理公式计算斜边c的值。
输出:直角三角形的斜边长c。
流程图:
程序代码:
a=InputBox(请输入第一条直角边的值:)
b=InputBox(请输入第二条直角边的值:)
c=sqr(a*a+b*b)
Print c
【例2】输入三角形边长a,b,c,求三角形面积s。
分析问题:
输入:三角形三个边长a、b、c。
处理:利用海伦公式(其中)计算三角形的面积s。
输出:三角形的的面积s。
流程图:
程序代码:
a=InputBox(请输入第一条边的值:)
b=InputBox(请输入第二条边的值:)
c=InputBox(请输入第三条边的值:)
p=(a+b+c)/2
s=sqr(p*(p-a)*(p-b)*(p-c))
Print s
【例3】求两个并联电阻的值,公式为:
。
分析问题:
输入:两个电阻的值r1、r2。
处理:利用公式r=1/(1/r1+1/r2)计算并联电阻的值r。
输出并联电阻的值r。
流程图:
程序代码:
r1=InputBox(请输入第一个电阻的值:)
r2=InputBox(请输入第二个电阻的值:)
c=1/r1+1/r2
r=1/c
Print r
【例4】输入一元二次方程ax2+bx+c=0(a≠0)的系数a、b、c,求方程的解。
分析问题:
输入:一元二次方程的三个系数a、b、c。
处理:
计算一元二次方程的判别式b2-4ac。
根据判别式的值,判别方程解的情况,如有实数解,则计算方程的解。
输出:方程的解或“无解”。
程序代码:
a=InputBox(请输入系数a的值:)
b=InputBox(请输入系数b的值:)
c=InputBox(请输入系数c的值:)
p=b*b-4*a*c
IF p0 THEN
h1=(-b+Sqr(p))/(2*a)
h2=(-b-Sqr(p))/(2*a)
Print h1, h2
ELSE
IF p=0 THEN
h=-b/(2*a)
Print h
ELSE
Print 无解
END IF
END IF
流程图:
百鸡百钱问题:公鸡每只5元,母鸡每只3元,小鸡1元3只,现在用100元钱买100只鸡,求公鸡、母鸡、小鸡各买几只?
分析问题:
输入:本例没有输入。
处理:
设公鸡x只,母鸡y只,小鸡z只。
求1-1000中,能被3整除的数
找出1-1000中所有能被7和11整除的数。(流程图和程序代码)
求十个数中的最大(小)值。(采用“擂台法”找出最大值。)
输入20个数,求其中最大值max和最小值min。(流程图和程序代码)
程序代码:
x=0
DO WHILE x=20
y=0
DO WHILE y=100-x
z=100-x-y
IF x*5+y*3+z/3=100 THEN
Print x, y, z
END IF
y=y+1
Loop
x=x+1
Loop
文档评论(0)