Haskell程序：计算矩形面积

---

本教程讨论如何使用Haskell编程语言编写一个程序来打印矩形的面积。

矩形是一种四边形，其对边长度相等，相邻边成直角。矩形的面积等于其长和宽的乘积。如果矩形的长和宽分别为5和6，则面积为30个单位(5*6)。

在本教程中，我们将看到四种实现方法：

• 使用中缀运算符“*”计算矩形面积的程序。

• 使用运算符函数“(*)”计算矩形面积的程序。

• 使用对角线（已知长或宽之一）计算矩形面积的程序。

• 使用周长（已知长或宽之一）计算矩形面积的程序。

算法步骤

• 输入或初始化矩形尺寸的变量。
• 实现计算矩形面积的程序逻辑。
• 打印或显示面积。

示例1

使用中缀运算符“*”计算矩形面积的程序

main ::IO()
main = do
-- initializing and declaring a variable for the length and breadth of the rectangle
 let len = 5
 let bred = 6
-- computing the area
 let area = len*bred
-- printing the computed area
 print ("Area of the rectangle with length "++ show len ++ "and breadth " ++ show bred ++" units is:")
 print (area)

输出

"Area of the rectangle with length 5 and breadth 6 units is:"
30

注意 − show函数将数字解析为字符串。它以数字为参数，返回解析后的字符串。“++”是连接字符串的运算符。

在上面的程序中，我们声明并初始化变量来存储矩形的长和宽。我们使用乘法的中缀运算符（“*”）将长乘以宽来计算矩形的面积，并将计算出的值加载到变量area中。最后，我们使用print函数打印面积。

示例2

使用运算符函数（“(*)”）计算矩形面积的程序

main ::IO()
main = do
-- initializing and declaring a variable for the length and breadth of the rectangle
   let len = 5
   let bred = 6
-- computing the area
   let area =(*) len bred
-- printing the computed area
   print ("Area of the rectangle with length "++ show len ++ " and breadth " ++ show bred ++" units is:")
   print (area)

输出

"Area of the rectangle with length 5 and breadth 6 units is:"
30

在上面的程序中，我们声明并初始化变量来存储矩形的长和宽。我们使用乘法的函数运算符（“(*)”）通过传递长和宽作为参数并将其计算出的返回值加载到变量area中来计算矩形的面积。最后，我们使用print函数打印面积。

注意 − 中缀运算符可以通过用圆括号括起来转换为运算符函数。然后可以将它们用作普通函数。

示例3

使用对角线（已知长或宽之一）计算矩形面积的程序

main ::IO()
main = do
-- initializing and declaring a variable for the length and breadth of the rectangle
   let len = 5
   let diagonal = 13
-- computing the breadth
   let breadth = sqrt (diagonal^2 - len^2)
-- computing the area
   let area = len*breadth
-- printing the computed area
   print ("Area of the rectangle with length "++ show len ++ " and diagonal " ++ show diagonal ++" units is:")
   print (area)

输出

"Area of the rectangle with length 5.0 and diagonal 13.0 units is:"
60.0

在上面，我们声明并初始化了矩形长和对角线的变量。我们使用勾股定理从长和对角线计算矩形的宽。通过将长和宽相乘计算面积。将计算出的面积加载到变量area中。最后，打印矩形的面积。

示例4

使用周长（已知长或宽之一）计算矩形面积的程序。

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

输出

"Area of the rectangle with length 5.0 and perimeter 22.0 units is:"
30.0

注意 − 在矩形中，对边长度相同，即2*长和2*宽等于矩形的周长。如果我们知道周长和长或宽之一，我们可以计算长或宽。

在上面的程序中。我们声明并初始化了矩形长和周长的变量。我们从周长和长计算矩形的宽。通过将长和宽相乘计算面积。将计算出的面积加载到变量area中。最后，打印矩形的面积。

结论

在本教程中，我们讨论了四种使用Haskell编程语言实现计算矩形面积程序的方法。