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


 

تاریخ ارسال: سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 06:54 ب.ظ | نویسنده: مهندس | چاپ مطلب 0 نظر