การใช้งาน Scientific Calculator ในภาษา Haskell แบบง่ายๆ พร้อมตัวอย่าง CODE และอธิบายการทำงาน

ทำไมต้องเลือก Haskell?

ก่อนอื่น เราต้องพูดถึงทำไม Haskell ถึงน่าสนใจสำหรับการสร้าง Scientific Calculator. Haskell เป็นภาษาเชิงฟังก์ชันที่มีความชัดเจนในการแสดงออก คงที่ แต่สามารถเขียนโปรแกรมที่มีความซับซ้อนได้อย่างมีประสิทธิภาพ ภาษานี้เหมาะกับงานที่ต้องการความถูกต้องและการจัดการข้อมูลที่ซับซ้อน และในที่นี้เราอยากจะนำมาประยุกต์ในการคำนวณทางวิทยาศาสตร์

โครงสร้างของ Scientific Calculator

เจ้า Scientific Calculator ที่เราจะสร้างขึ้นนี้ จะมีฟังก์ชันพื้นฐาน ได้แก่:

1. การบวก

2. การลบ

3. การคูณ

4. การหาร

5. ฟังก์ชันตรีโกณมิติ (ซีน, โคซีน,แทนเจน)

เราจะใช้ Haskell ในการสร้างฟังก์ชันเหล่านี้ โดยจะเริ่มจากการตั้งค่าฟังก์ชันเบื้องต้นก่อน

ตัวอย่างโค้ด

 import Data.List (intercalate)
import Data.Fixed (mod')

-- ฟังก์ชันการบวก
add :: Float -> Float -> Float
add x y = x + y

-- ฟังก์ชันการลบ
subtract' :: Float -> Float -> Float
subtract' x y = x - y

-- ฟังก์ชันการคูณ
multiply :: Float -> Float -> Float
multiply x y = x * y

-- ฟังก์ชันการหาร
divide :: Float -> Float -> Float
divide x 0 = error "Cannot divide by zero!"
divide x y = x / y

-- ฟังก์ชันซีน
sine :: Float -> Float
sine x = sin (x * (pi / 180))

-- ฟังก์ชันโคซีน
cosine :: Float -> Float
cosine x = cos (x * (pi / 180))

-- ฟังก์ชันแทนเจน
tangent :: Float -> Float
tangent x = tan (x * (pi / 180))

-- ฟังก์ชันหลัก
main :: IO ()
main = do
    putStrLn "Welcome to Haskell Scientific Calculator"
    putStrLn "Select an operation: "
    putStrLn "1. Add"
    putStrLn "2. Subtract"
    putStrLn "3. Multiply"
    putStrLn "4. Divide"
    putStrLn "5. Sine"
    putStrLn "6. Cosine"
    putStrLn "7. Tangent"

    operation <- getLine
    putStrLn "Enter first number: "
    num1 <- getLine
    putStrLn "Enter second number: "
    num2 <- getLine

    let result = case operation of
                    "1" -> add (read num1) (read num2)
                    "2" -> subtract' (read num1) (read num2)
                    "3" -> multiply (read num1) (read num2)
                    "4" -> divide (read num1) (read num2)
                    _ -> error "Invalid operation selected."

    putStrLn $ "Result: " ++ show result

อธิบายการทำงานของโค้ด

- โค้ดดังกล่าวเริ่มต้นจากการนำเข้าโมดูลที่จำเป็น และประกาศฟังก์ชันง่าย ๆ สำหรับการคำนวณแต่ละประเภท โดยเฉพาะอย่างยิ่งการหารที่ต้องมีการตรวจสอบเพื่อหลีกเลี่ยงการหารด้วยศูนย์

- ฟังก์ชันหลัก `main` จะทำหน้าที่แสดงเมนูและรับค่าจากผู้ใช้

- ผู้ใช้เลือกประเภทการคำนวณ และโปรแกรมจะคำนวณผลลัพธ์จากฟังก์ชันที่ถูกเลือก และแสดงผลลัพธ์

Use Case ในโลกจริง

การใช้ Scientific Calculator ที่สร้างขึ้นในบทความนี้ สามารถนำไปประยุกต์ใช้ในหลาย ๆ รูปแบบ เช่น:

เรียนรู้ Haskell ที่ EPT

สรุป

การสร้าง Scientific Calculator ที่เราได้กล่าวถึงในบทความนี้ เป็นเพียงการเริ่มต้นของการเรียนรู้ภาษาการเขียนโปรแกรม Haskell ที่มีประสิทธิภาพและประยุกต์ใช้ได้ในเวอร์ชันที่ซับซ้อนมากขึ้น การเรียนรู้ Haskell ไม่เพียงเปลี่ยนวิธีการคิดในการเขียนโปรแกรมแต่ยังเป็นการเปิดประสบการณ์ใหม่ที่ท้าทายให้กับนักพัฒนาหรือผู้ที่รักในสายงานนี้

หากสนใจศึกษาเพิ่มเติมเกี่ยวกับการเขียนโปรแกรมและภาษาต่าง ๆ ที่น่าสนใจ อย่าลืมมาสมัครเรียนที่ EPT สถาบันที่ช่วยให้คุณได้ก้าวข้ามขีดจำกัดและพัฒนาทักษะของคุณในโลกแห่งการเขียนโปรแกรม!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง