p=(a+b+c)/2
S=√[p(p-a)(p-b)(p-c)]
编程实现:输入边长a,b,c,如果能构成三角形,输出面积,否则输出“No Answer!”
界面如下:
[参考程序]
Dim a, b, c, p, s As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Text4.Text = Format(s, "0.00")
Else
Text4.Text = "no answer"
End If
根据上述回答下列问题
在使用计算机解决问题时,选择合适的算法,是有效解决问题的关键。
分析下面的问题,请选择最合适的算法:( )
猴子吃桃问题:
小猴有一天摘了若干个桃子,他非常贪吃,当天就吃掉了一半还多一个;第二天接着吃剩下的桃子一半多一个;以后每天都是如此,到了第七天吃桃子时,却发现只剩下一个。请问,小猴那天一共摘了几个桃子?
在使用计算机解决问题时,选择合适的算法,是有效解决问题的关键。
分析下面的问题,请选择最合适的算法:( )
搬砖问题:100块砖,100人搬,一个男人搬4块,一个女人搬3块,两个小儿抬1块,要求一次全搬完。请问需男、女、小儿各多少人?
确定;建立迭代;对迭代过程进行,这是编写迭代程序必须考虑的问题,不能让迭代过程无休止地重复执行下去。
①输入两电阻R1,R2的值
②计算总电阻R=
③输出总电阻
上述算法属于( )
import math
h = 500
g = 9.8
t = math.sqrt(2*h/g)
hx = g*(t-1)*(-1)/2
hh = h-hx
print(“小球最后1秒下落的位移是:”,hh,“m”)