Haskell程序计算立方体面积

本教程将帮助我们计算一个立方体的面积。计算面积的方法有很多，但计算面积的数学公式是不变的，即6*(side^2)。

方法1：使用cubeArea函数

这个例子定义了一个函数cubeArea，它接受一个参数，即立方体的边长，并返回立方体的面积。主函数调用cubeArea函数来计算面积。然后，结果被打印到控制台。

算法

第1步 – 函数cubeArea是在简单数学公式的基础上定义的，即6a^2，因为cubeArea的边=6*（边^2）。
第2步 – 程序的执行将从主函数开始。main()函数拥有程序的全部控制权。它被写成main = do。
第3步 – 一个名为 “side “的变量正在被初始化。它将包含立方体的边的长度。
第4步–一个变量 “area “被初始化以保存立方体的计算面积值，并通过’putStrLn’语句显示最终的面积值。

示例

在这个例子中，我们将使用cubeArea函数来计算立方体的面积。

module Main where
cubeArea :: Double -> Double
cubeArea side = 6 * (side ^ 2)
main :: IO ()
main = do
   let side = 4
   let area = cubeArea side
   putStrLn ("The area of the cube is: " ++ show area)

输出

The area of the cube is: 96.0

方法2：使用Data.Fixed

在这个方法中，Data.Fixed库被用来表示具有固定精度的立方体的边长。固定E2类型用来表示小数点后2位的定点小数。

cubeArea函数需要一个固定E2类型的参数，它代表立方体的边长。然后，它通过将边长乘以6并将其提高到2的幂来计算立方体的面积。

算法

第1步 – Data.Fixed模块被导入。
第2步–函数cubeArea正在被定义，它接受一个固定E2类型的参数，代表立方体的边长。然后，它通过将边长乘以6并将其提高到2的幂来计算立方体的面积。
第3步 – 程序的执行将从主函数开始。main()函数拥有程序的全部控制权。它被写成main = do。
第4步 – 一个名为 “side “的变量正在被初始化。它将包含立方体的边的长度。
第5步 – 一旦函数被调用，一个变量 “area “被初始化以保存立方体的计算面积值，并通过’putStrLn’语句显示最终的面积值。

示例

在这个例子中，我们将通过使用Data.Fixed来计算Cube的面积，以固定的精度表示边长。

import Data.Fixed
cubeArea :: Fixed E2 -> Fixed E2
cubeArea side = 6 * (side ^ 2)
main :: IO ()
main = do
   let side = 4
   let area = cubeArea side
   putStrLn ("The area of the cube is: " ++ show area)

输出

The area of the cube is: 96.00

方法3：使用模式匹配

这个方法使用记录语法定义了一个数据类型Cube，它有一个类型为Double的单字段边。

cubeArea函数接受一个Cube类型的单一参数，并使用模式匹配来提取边字段的值。然后，它通过将边长乘以6并将其提高到2的幂来计算立方体的面积。

算法

第1步 – 定义了一个使用记录语法的数据类型Cube。
第2步 – cubeArea函数的定义是接受一个Cube类型的单一参数，并使用模式匹配来提取边域的值。然后，它通过将边长乘以6并将其提高到2的幂数来计算立方体的面积。
第3步 – 程序的执行将从主函数开始。main()函数拥有对程序的全部控制权。
第4步 – 一个名为 “side “的变量正在被初始化。它将包含立方体的边的长度。
第5步 – 一旦函数被调用，一个变量 “area “被初始化以保存立方体的计算面积值，并通过’putStrLn’语句显示最终的面积值。

示例

在下面的例子中，我们将使用模式匹配来计算Cube的面积。

data Cube = Cube { side :: Double }
cubeArea :: Cube -> Double
cubeArea (Cube side) = 6 * (side ^ 2)
main :: IO ()
main = do
   let side = 4
   let area = cubeArea (Cube side)
   putStrLn ("The area of the cube is: " ++ show area)