Έλεγχος Μαγικού Τετράγωνου
Σελίδα 1 από 1
Έλεγχος Μαγικού Τετράγωνου
Συνάρτηση ΈλεγχοςΜαγικού {
Διαβασε &Α()
ν=Διάσταση(Α(),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)--
Τύπωσε ΈλεγχοςΜαγικού(&β())
Διαβασε &Α()
ν=Διάσταση(Α(),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)--
Τύπωσε ΈλεγχοςΜαγικού(&β())
Σελίδα 1 από 1
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης
|
|