การใช้งาน Create OX Game ในภาษา Fortran แบบง่ายๆ

ทำความรู้จักกับเกม OX หรือที่รู้จักกันในชื่อ "Tic-Tac-Toe" ซึ่งเป็นเกมกระดานคลาสสิกที่เล่นกันระหว่างผู้เล่น 2 คน เป้าหมายคือการทำเครื่องหมายให้ครบ 3 ตัวในแนวนอน แนวตั้ง หรือแนวทแยง สำหรับในบทความนี้ เราจะมาสร้างเกม OX ด้วยภาษา Fortran ซึ่งอาจดูเหมือนเป็นไปไม่ได้ในยุคปัจจุบัน แต่เมื่อเรามีโค้ดที่ชัดเจนและเข้าใจได้ มันจะไม่ยากเกินไปเลย

ทำไมต้องใช้ Fortran?

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

ความเข้าใจพื้นฐานเกี่ยวกับ OX Game

เกมนี้ใช้กระดานขนาด 3x3 และมีเครื่องหมายสองแบบคือ "X" และ "O" เมื่อผู้เล่นหนึ่งคนเลือกตำแหน่งใด ๆ บนกระดาน ผู้เล่นนั้นจะบันทึกเครื่องหมายลงไปและเกมจะทำการตรวจสอบว่าใครชนะหรือว่าเกมจะจบลงโดยไม่มีผู้ชนะ

ตัวอย่างโค้ดในภาษา Fortran

 program TicTacToe
    implicit none
    character(len=1), dimension(3,3) :: board
    character(len=1) :: player
    integer :: i, j, x, y
    logical :: playing

    board = ' '  ! กำหนดค่าของกระดานให้เป็นว่าง
    player = 'X'
    playing = .true.

    do while (playing)
        call print_board(board)
        write(*,*) "Player ", player, ", please enter row (0-2) and column (0-2): "
        read(*,* ) x, y

        ! ตรวจสอบตำแหน่งที่เลือกถูกต้องหรือไม่
        if (x < 0 .or. x > 2 .or. y < 0 .or. y > 2 .or. board(x+1,y+1) /= ' ') then
            write(*,*) "Invalid move, try again"
        else
            board(x+1,y+1) = player
            if (call check_winner(board, player)) then
                call print_board(board)
                write(*,*) "Player ", player, " wins!"
                playing = .false.
            else if (all(board /= ' ')) then
                call print_board(board)
                write(*,*) "It's a draw!"
                playing = .false.
            else
                player = if (player == 'X', 'O', 'X')  ! เปลี่ยนผู้เล่น
            end if
        end if
    end do

contains

    subroutine print_board(b)
        character(len=1), dimension(3,3) :: b
        integer :: i, j
        do i = 1, 3
            write(*,*) b(i,1), "|", b(i,2), "|", b(i,3)
            if (i < 3) write(*,*) "---------"
        end do
    end subroutine print_board

    logical function check_winner(b, p)
        character(len=1), dimension(3,3) :: b
        character(len=1) :: p
        integer :: i

        ! เช็คแถว
        do i = 1, 3
            if (all(b(i,:) == p)) return .true.
        end do

        ! เช็คคอลัมน์
        do i = 1, 3
            if (all(b(:,i) == p)) return .true.
        end do

        ! เช็คแนวทแยง
        if (b(1,1) == p .and. b(2,2) == p .and. b(3,3) == p) return .true.
        if (b(1,3) == p .and. b(2,2) == p .and. b(3,1) == p) return .true.

        check_winner = .false.
    end function check_winner

end program TicTacToe

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

Use Case ในโลกจริง

การสร้างเกม OX ด้วย Fortran มีประโยชน์ในหลายแนวทาง เช่น:

สรุป

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

เราหวังว่าคุณจะสนุกกับการสร้างเกม OX และเรียนรู้ภาษา Fortran พร้อมกับพัฒนาทักษะการเขียนโปรแกรมที่มีประโยชน์ในอนาคต!

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