Haskell 程式用於查詢長方體的表面積和體積


本教程討論了編寫一個程式,用於在 Haskell 程式語言中查詢長方體的表面積和體積。

長方體是一種具有六個矩形面的立體圖形。長方體具有三個維度:長、寬和高。長方體的表面積是六個矩形面的總面積,即 2*長*寬 + 2*長*高 + 2*寬*高。長方體的體積是長*寬*高。因為體積等於面積*高。

在本教程中,我們將看到:

  • 查詢長方體表面積的程式。
  • 查詢長方體體積的程式。

演算法步驟

  • 獲取輸入或初始化變數。
  • 實現計算長方體表面積和體積的程式邏輯。
  • 列印或顯示錶面積和體積。

示例 1

查詢長方體表面積的程式。

-- function declaration
surfaceArea :: Float->Float->Float->Float
-- function definition
surfaceArea a b h = 2*a*b + 2*a*h + 2*b*h
main = do
-- declaring and initializing variables
   let a = 5
   let b = 4
   let h = 3
-- computing the surface area
   let area = surfaceArea a b h
-- printing the surface area
   print ("The surface area of a cuboid with length, breadth, and height as " ++ show a ++ ", "++show b ++ ", and " ++ show h ++" is:")
   print (area)

輸出

"The surface area of a cuboid with length, breadth, and height as 5.0, 4.0, and 3.0 is:"
94.0

在上面的程式中,我們聲明瞭一個名為 surfaceArea 的函式,它接受三個浮點數作為引數並返回一個浮點數。在其函式定義中,接受了三個引數 a、b 和 h。其中 a、b 和 h 分別代表長、寬和高。計算並返回表面積。在主函式中,聲明瞭三個用於儲存長方體長、寬和高的變數 a、b 和 c,並分別初始化為 5、4 和 3。使用這些初始化的變數作為引數呼叫 surfaceArea 函式。由於此函式返回長方體的表面積,因此返回的輸出將載入到變數 area 中。最後,使用 print 函式列印長方體的表面積。

注意 - show 函式接受一個數字作為引數並返回該數字的解析字串。“++” 是 Haskell 中用於連線字串的運算子。

示例 2

查詢長方體體積的程式。

-- function declaration
volume :: Float->Float->Float->Float
-- function definition
volume a b h = a*b*h
main = do
-- declaring and initializing variables
   let a = 5
   let b = 4
   let h = 3
-- computing the volume
   let vol = volume a b h
-- printing the volume
   print ("The volume of a cuboid with length, breadth, and height as " ++ show a ++ ", "++show b ++ ", and " ++ show h ++" is:")
   print (vol)

輸出

"The volume of a cuboid with length, breadth, and height as 5.0, 4.0, and 3.0 is:"
60.0

在上面的程式中,我們聲明瞭一個名為 volume 的函式,它接受三個浮點數作為引數並返回一個浮點數。在其函式定義中,接受了三個引數 a、b 和 h。其中 a、b 和 h 分別代表長、寬和高。計算並返回體積。在主函式中,聲明瞭三個用於儲存長方體長、寬和高的變數 a、b 和 c,並分別初始化為 5、4 和 3。使用這些初始化的變數作為引數呼叫 volume 函式。由於此函式返回長方體的體積,因此返回的輸出將載入到變數 vol 中。最後,使用 print 函式列印長方體的表面積。

結論

在本教程中,我們討論了在 Haskell 程式語言中實現查詢長方體表面積和體積的程式。

更新於:2022-12-14

220 次瀏覽

開啟你的 職業生涯

透過完成課程獲得認證

立即開始
廣告

© . All rights reserved.