تبليغاتX
فضلي
کامپیوتر - مربع جادويي
آزاد
مربع جادويي
به ورودي اين برنامه طول ضلع مربع را ميدهيم البته بايد عددي فرد باشد
مثلا ما عدد سه را وارد مي کنيم خروجي ان برنامه يک مربع سه در سه خواهد بود که اعداد داخل خانه ها را هرگونه جمع کنيد يک عدد ثابتي مي شود
CLS
c = 1
INPUT n
OPTION BASE 0
DIM a(n + 1, n + 1)
IF n MOD 2 = 0 THEN END
b = n \ 2 + 1
a(c, b) = 1
FOR i = 2 TO n ^ 2
        c = c - 1: b = b + 1
        IF a(c, b) = 0 THEN
                IF c = 0 THEN k = c: c = n
                IF b = n + 1 THEN
                        q = b: b = 1
                END IF
                IF a(c, b) > 0 THEN c = k + 2: b = q - 1
        ELSE
                c = c + 2
                b = b - 1
        END IF
a(c, b) = i
NEXT i
FOR i = 1 TO n
        FOR j = 1 TO n
                PRINT USING "####"; a(i, j);
        NEXT
PRINT
PRINT
NEXT
END


 

+ نوشته شده در  چهارشنبه دهم مرداد 1386ساعت 15:4  توسط رسول فضلی  |