Haskell程式：計算正方形面積

---

本教程討論如何編寫一個用Haskell程式語言列印正方形面積的程式。

正方形是四邊相等且四個角都是直角的四邊形。正方形的面積等於邊長的平方。如果正方形的邊長為5個單位，則其面積為25個平方單位(5*5)。

在本教程中，我們將介紹四種實現方法。

• 使用中綴運算子“*”計算正方形面積的程式。
• 使用運算子函式“(*)”計算正方形面積的程式。
• 使用對角線計算正方形面積的程式。
• 使用周長計算正方形面積的程式。

演算法步驟

• 輸入或初始化正方形邊長的變數。
• 實現計算正方形面積的程式邏輯。
• 列印或顯示面積。

示例1

使用中綴運算子“*”計算正方形面積的程式

main ::IO()
main = do
-- initializing and declaring a variable for the side of the square
   let side = 5
-- computing the area
   let area = side*side
-- printing the computed area
   print ("Area of the square with side "++ show side ++ " units is:")
   print (area)

輸出

"Area of the square with side 5 units is:"
25

注意 − show函式將數字解析為字串。它以數字作為引數，並返回解析後的字串。

在上面的程式中，我們宣告並初始化了一個名為side的變數，它儲存正方形的邊長。我們使用乘法的中綴運算子(“*”)將side與自身相乘來計算正方形的面積，並將計算結果載入到變數area中。最後，我們使用print函式列印面積。

示例2

使用運算子函式(“(*)”)計算正方形面積的程式

main ::IO()
main = do
-- initializing and declaring a variable for the side of the square
   let side = 5
-- computing the area
   let area = (*) side side
-- printing the computed area
   print ("Area of the square with side "++ show side ++ " units is:")
   print (area)

輸出

"Area of the square with side 5 units is:"
25

在上面的程式中，我們宣告並初始化了一個名為side的變數，它儲存正方形的邊長。我們使用運算子函式“(*)”計算面積，該函式接受兩個數字引數並返回這兩個引數的乘積。將返回的計算值載入到變數area中。最後，列印正方形的面積。

注意 − 中綴運算子可以透過用圓括號括起來轉換為運算子函式。然後可以將它們用作一般函式。

示例3

使用對角線計算正方形面積的程式

main ::IO()
main = do
-- initializing and declaring a variable for the diagonal of the square
   let diagonal = 5
-- computing the area
   let area = (diagonal*diagonal)/2
-- printing the computed area
   print ("Area of the square with diagonal "++ show diagonal ++ " units is:")
   print (area)

輸出

"Area of the square with diagonal 5.0 units is:"
12.5

注意 − 正方形的面積可以用(d*d)/2計算，其中d是對角線的長度。(因為正方形的邊長可以用s=d/sqrt(2)表示)。

在上面的程式中，我們宣告並初始化了一個名為diagonal的變數，它儲存正方形的對角線長度。我們根據合適的公式從對角線計算正方形的面積。將計算出的面積載入到變數area中。最後，列印計算出的正方形面積。

示例4

使用周長計算正方形面積的程式。

main ::IO()
main = do
-- initializing and declaring a variable for the perimeter of the square
   let perimeter = 12
-- computing side from perimeter
   let side = perimeter/4
-- computing the area
   let area = (side*side)
-- printing the computed area
   print ("Area of the square with perimeter "++ show perimeter ++ " units is:")
   print (area)

輸出

"Area of the square with perimeter 12.0 units is:" 
9.0

注意 − 因為正方形所有邊長相等，所以正方形的邊長可以透過周長除以4來計算。

在上面的程式中，我們宣告並初始化了一個名為perimeter的變數，它儲存正方形的周長。我們透過將周長除以4來計算正方形的邊長。我們透過計算邊長的平方來計算正方形的面積。將計算出的面積載入到變數area中。最後，列印計算出的正方形面積。

結論

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