Haskell程式：計算平行四邊形的面積

---

本教程討論瞭如何編寫一個使用Haskell程式語言列印平行四邊形面積的程式。

平行四邊形是一種四邊形，其對邊大小相等且平行。

在本教程中，我們將看到三種實現方法：

• 使用高和底計算平行四邊形面積的程式。
• 使用邊長計算平行四邊形面積的程式。
• 使用對角線計算平行四邊形面積的程式。

演算法步驟

• 輸入或初始化平行四邊形尺寸的變數。
• 實現計算平行四邊形面積的程式邏輯。
• 列印或顯示面積。

示例1

使用高和底計算平行四邊形面積的程式。

main :: IO()
main = do
-- declaring and initializing the variable for base and height
   let base = 5
   let height = 6
-- computing area
   let area = base * height
-- printing the area
   print ("Area of the parallelogram with base "++ show base ++ " and height " ++ show height ++ " is:")
   print (area)

輸出

"Area of the parallelogram with base 5 and height 6 is:"
30

注意 − `show` 函式將數字解析為字串。它以數字為引數，並返回解析後的字串。“++”是連線字串的運算子。

在上面的程式中，我們宣告並初始化了底和高的變數。底和高已知的平行四邊形的面積可以透過底*高計算。我們透過將底乘以高並將結果載入到變數 `area` 中來計算面積。最後，我們列印了平行四邊形的面積。

示例2

使用邊長計算平行四邊形面積的程式。

main :: IO()
main = do
-- declaring and initializing the variable for sides and angle
   let a = 5
   let b = 6
   let angle = pi/4
-- computing area
   let area = a*b*(sin angle)
-- printing the area
   print ("Area of the parallelogram with sides "++ show a ++ " " ++ show b ++ " and angle between them " ++ show angle)
   print (area)

輸出

"Area of the parallelogram with sides 5.0 6.0 and angle between them 0.7853"
21.213203435596423

在上面的程式中，我們宣告並初始化了邊長和它們之間角度的變數。如果平行四邊形的邊長分別為a和b，它們之間的角度為k，則面積為a*b*sin(k)。我們計算了面積並將其載入到變數 `area` 中。最後，我們列印了平行四邊形的面積。

示例3

使用對角線計算平行四邊形面積的程式。

main :: IO()
main = do
-- declaring and initializing the variable for base and height
   let d1 = 6
   let d2 = 8
   let angle = pi/3
-- computing area
   let area = (0.5)*d1*d2*(sin angle)
-- printing the area
   print ("Area of the parallelogram with diagonals "++ show d1 ++ " " ++ show d2 ++ " and angle between them " ++ show angle)
   print (area)

輸出

"Area of the parallelogram with diagonals 6.0 8.0 and angle between them 1.047197"
20.784609690826528

在上面的程式中，我們宣告並初始化了對角線和它們之間角度的變數。如果平行四邊形的對角線為d1、d2，它們之間的角度為k，則面積為½*d1*d2*sin(k)。我們計算了面積並將其載入到變數 `area` 中。最後，我們列印了面積。

結論

在本教程中，我們討論了三種使用Haskell程式語言實現計算平行四邊形面積程式的方法。