private sub command1_click()
dim x%, y%, z%, s as single, b as boolean, h as single
'$ string 字元型別
'% integer 整型
'& long 長整型
'# double 雙精度浮點型
'! single 單精度浮點型
x = inputbox("請輸入三角形的邊長")
y = inputbox("請輸入三角形的邊長")
z = inputbox("請輸入三角形的邊長")
b = pd(x, y, z)
h = (x + y + z) / 2
if b then
s = sqr(h * (h - x) * (h - y) * (h - z))
print "三角形面積是"; s
else
print "不能構成三角形"
end if
end sub
public function pd(x, y, z) as boolean
if x > 0 and y > 0 and z > 0 and x + y > z and x + z > y and y + z > x then
pd = true
else
pd = false
end if
end function
計算三角形面積
計算三角形面積 總時間限制 1000ms 記憶體限制 65536kb 描述平面上有乙個三角形,它的三個頂點座標分別為 x1,y1 x2,y2 x3,y3 那麼請問這個三角形的面積是多少。輸入輸入僅一行,包括6個單精度浮點數,分別對應x1,y1,x2,y2,x3,y3。輸出輸出也是一行,輸出三角形的面...
三角形面積計算
類宣告私有的底邊長base和高height,同時在構造器中,從鍵盤獲取這些資料,並提供公共的方法可以獲取這些資料 在 test類中計算三角形的面積 類 public class private void setbase private void setheight public int getbas...
計算三角形的面積
1616 3 張宇 16.10.18 連續十七天總結 a.三角形的面積公式 100 b.今天遲交總結了,組織有懲罰我接受。平時都是早上寫的,誰知今天是走路去的回來都1點了。以後會提前寫的。今天的學習基本都懂,只是公式中的s等於 a b c 2,其他都可以。include include using ...