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编程语言中实现计算正方形面积程序的方法。

Potti Chandra Sekhar sai

更新于：2022年12月14日

浏览量：375

开启你的职业生涯

完成课程获得认证

开始学习