M2000 Γλώσσα Προγραμματισμού
Θέλετε να αντιδράσετε στο μήνυμα; Φτιάξτε έναν λογαριασμό και συνδεθείτε για να συνεχίσετε.

Έλεγχος Μαγικού Τετράγωνου

Πήγαινε κάτω

Έλεγχος Μαγικού Τετράγωνου Empty Έλεγχος Μαγικού Τετράγωνου

Δημοσίευση από m2000 Παρ Ιουν 10, 2016 4:52 pm

Συνάρτηση ΈλεγχοςΜαγικού {
      Διαβασε &Α()
      ν=Διάσταση(Α(),1)
      Αν Διάσταση(Α(),2)<>ν τότε έξοδος
      Συνάρτηση Άθροισμα {
            καθαρο Σούμα
            Διάβασε &π(), Θχ,Θυ, Πχ, Πυ, Επ
            Για Επ=Επ-1 εως 0
                  Σούμα+=π(Θχ,Θυ)
                  Θχ+=Πχ
                  Θυ+=Πυ
            Επόμενο Επ
            =Σούμα
      }
      Μαγικός=Άθροισμα(&Α(),ν-1,0,-1,1,ν)
      οκ=αληθές
      για ι=0 εως ν-1
            οκ=Άθροισμα(&Α(),0,ι,1,0,ν)=Μαγικός και οκ
            οκ=Άθροισμα(&Α(),ι,0,0,1,ν)=Μαγικός και οκ
      επόμενο ι
      =Άθροισμα(&Α(),0,0,1,1,ν)=Μαγικός και οκ
}
Αναφορά {Ένα τετράγωνο θεωρείται μαγικό αν το άθροισμα των αριθμών των γραμμών, των στηλών και των διαγωνίων του είναι σταθερός αριθμός.}
Πίνακας β(3,3)
      β(0,0)=4,9,2
      β(1,0)=3,5,7
      β(2,0)=8,1,6
Τύπωσε ΈλεγχοςΜαγικού(&β())
β(2,1)++
Τύπωσε ΈλεγχοςΜαγικού(&β())
β(2,1)--
Τύπωσε ΈλεγχοςΜαγικού(&β())
m2000
m2000
Admin

Posts : 27
Join date : 10/06/2016
Age : 57
Location : Kanallaki Greece

https://m2000.forumgreek.com

Επιστροφή στην κορυφή Πήγαινε κάτω

Επιστροφή στην κορυφή


 
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης