我的近況

還可以。

名片與連絡方式 | 徵書清單 | 留言 | 副站(漫遊於未來與現代之間 )

目前日期文章:201008 (2)

瀏覽方式: 標題列表 簡短摘要

解奇數方型魔方陣。

Module Module1
    Sub Main()
        Dim n, x, y, i As Integer
        Dim s(10, 10) As Integer
        n = Console.ReadLine()

        For y = 0 To n - 1
            For x = 0 To n - 1
                s(y, x) = 0
            Next
        Next

        x = (n - 1) / 2
        y = 0
        s(y, x) = 1

        For i = 2 To n * n
            y = IIf(y = 0, n - 1, y - 1)
            x = (x + 1) Mod n
            If (s(x, y)) <> 0 Then
                y = (y + 2) Mod n
                x = IIf(x = 0, n - 1, x - 1)
            End If
            s(y, x) = i
        Next

        For y = 0 To n - 1
            For x = 0 To n - 1
                Console.Write(s(y, x) & "")
            Next
            Console.WriteLine()
        Next

        Console.ReadKey()
    End Sub
End Module

okplaymayday 發表在 痞客邦 PIXNET 留言(0) 人氣()

    秦漢及更早之前的徭役又稱為「更」或「更役」,《左傳‧成公十三年》:「秦師敗績,獲秦成差及不更女父。」據顏師古注《漢書‧百官公卿表》對「不更」的解釋是「謂不豫更卒之事」,而「更卒」就是指對徭役之卒的稱呼。

     秦漢實施徵兵制度,故徭役就廣義而言,可以將兵役包含進去,不過雲夢出土的秦簡中既有《戍律》又有《徭律》,故從法律上看來,徭役並未包含兵役,因此秦漢真正的徭役只有「月為更卒」一種,服役的時間為成年男子每年一月,至年老免役為止,其中一性質不同又分為三類:

okplaymayday 發表在 痞客邦 PIXNET 留言(0) 人氣()

找更多相關文章與討論