נושא: בעיה בשאלה "ריבוע קסם"

נשלח בתאריך: 14 May 2006 בשעה 19:05 | IP רשוּם

אוקי זאת השאלה ריבוע קסם הוא ריבוע המכיל מספרים טבעיים שסכום העמודות השורות והאלכסונים בו שווה.כתוב פונקצייה המקבלת מטריצה  ומחזירה 1 אם המטריצה מהווה ריבוע קסם או 0 אחרת. דוגמה לריבוע קסם:

4  9  2

3  5  7

  8  1  6  

את סכום האלכסונים זה לא בעיה לחשב אבל את סכום של כל שורה וכל עמודה ואחר כך להשוות בינהם ולבדוק אם הם שווים לסכום האלכסונים וכל זה בפונקצייה אחת אני קצת מסתבך אז בבקשה שמישהו יעזור לי. 

נשלח בתאריך: 15 May 2006 בשעה 16:34 | IP רשוּם

היה לי קוד מוכן למשהו דומה, אולי צריך לשנות קצת

Dim aValue(1 To 9)
For i = 1 To 3
    orizontal = 0
    vertical = 0
    For j = 1 To 3
        n = n + 1
'       סכום מאוזן
        orizontal = orizontal + aValue(i, j)
'        סכום מאונך
        vertical = vertical + aValue(j, i)
       
'        סכום אלסון שמאל ימין
        If i = j Then dLtr = dLtr + aValue(i, j)
'        סכום אלכסון ימין שמאל
        If n = 3 Or n = 5 Or n = 7 Then dRtl = dRtl + aValue(i, j)
    Next j
        'השוואת מאוזן למאונך - תוסיף איזה תנאים שתרצה
        If orizontal <> vertical Then Exit For
Next i

נשלח בתאריך: 15 May 2006 בשעה 16:40 | IP רשוּם

הרעיון הוא לרוץ בלולאה מקוננת ובסוף כל לולאה פנימית אתה יכול לבדוק את סכום השורה הנוכחית ואת סכום העמודה הנוכחית. תנסה את זה:

(++for(i=0;i<n;i

                          }

sum1=0;

sum2=0;

(++for(j=0;j<n;j

                          }

;[sum1+=mat[i,j

;[sum2+=mat[j,i

                          {

(if(sum1!=x or sum2!=x

                return 0;

                             {

                   return 1;