Haskell程序计算菱形面积

在Haskell中，有不同的方法来计算菱形的面积。我们可以使用边、对角线和高度，在此基础上，它的面积可以通过不同的方法计算出来。

算法

第1步– 导入Text.Printf模块。
第2步– 定义了菱形函数
第3步 – 程序执行将从主函数开始。main()函数拥有整个程序的控制权。它被写成main = do。它将两个整数作为对角线，并使用rhombusArea函数打印出面积。
第4步 – 变量 “d1 “和 “d2 “被初始化。它将保存这两个整数作为菱形的对角线。
第5步 – 菱形的结果面积用’printf’函数打印到控制台。printf函数用于将输出格式化为两位小数。

例子1

在这个例子中，定义了一个函数rhombusArea，以菱形的两条对角线为参数，用公式(d1 * d2) / 2返回面积。

import Text.Printf

rhombusArea :: Double -> Double -> Double
rhombusArea d1 d2 = (d1 * d2) / 2

main :: IO ()
main = do
   let d1 = 4
   let d2 = 5

   let area = rhombusArea d1 d2
   printf "Area of the rhombus: %.2f" area

输出

Area of the rhombus: 10.00

例2

在这个例子中，菱形的边长被作为输入，用于计算面积的公式是（s1*s2）/2。

import Text.Printf

rhombusArea :: Double -> Double -> Double
rhombusArea s1 s2 = (s1 * s2) / 2

main :: IO ()
main = do
   let s1 = 4
   let s2 = 5
   let area = rhombusArea s1 s2
   printf "Area of the rhombus: %.2f" area

输出

Area of the rhombus: 10.00

例3

在这个例子中，菱形的一条边的长度和高度被作为输入，然后用公式s*h来计算面积。

import Text.Printf

rhombusArea :: Double -> Double -> Double
rhombusArea s h = s * h

main :: IO ()
main = do
   let s = 4
   let h = 5

   let area = rhombusArea s h
   printf "Area of the rhombus: %.2f" area