Πίνακας Αληθείας (μικρό πρόγραμμα- διορθώθηκε)

Ένα πρόγραμμα που κάνει την εξαγωγή αριθμών (το αληθές είναι το -1 και ψευδές το 0) να βγαίνουν με ονόματα! Αυτό μπορεί να γίνει γενικά (δεν φαίνεται εδώ πώς)...αλλά και ειδικά με την Γραφή$().
Επιπλέον βλέπουμε και την χρήση γενικής μεταβλητής.

Ο τύπος της Xnor είναι έτσι: 
Επεξήγηση: το επί είναι ο λογικός πολλαπλασιασμός (Και) το συν είναι η λογική πρόσθεση (Ή) και οι παύλες υποδηλώνουν την αναστροφή, το Not ή Όχι εδώ.
Η Κάνε φτιάχνει μια Συνάρτηση {}...η ΌχιΑπό$() θα μπορούσε να γραφτεί έτσι:
Συνάρτηση ΌχιΑπό$ {
      Διάβασε α, β
      =Γραφή$((α Και β) ή ( Όχι α Και Όχι β), τρόπος_εμφάνισης$) 
}

Οι δυο τρόποι είναι ισοδύναμοι εδώ. Απλά η Συνάρτηση έχει μπλοκ εντολών, άρα μπορούμε να την επεκτείνουμε με πολλές εντολές κώδικα αν χρειάζεται.
Επιπλέον η Συνάρτηση έχει και αυτή τη μορφή Συνάρτηση Γενική ΌχιΑπό$ { }, δηλαδή παίρνει το αναγνωριστικό Γενική και μέχρι να διαγραφεί θα φαίνεται και σε άλλες συναρτήσεις, αν θέλουμε να την καλέσουμε, όπως φαίνεται η γενική μεταβλητή τρόπος_εμφάνισης$


\\ Πίνακας αληθείας για την XNOR (not XOR, eXclusive Not OR)
Γενική τρόπος_εμφάνισης$=";Αληθές;Ψευδές;"
Κάνε ΌχιΑπό$(α, β)=Γραφή$((α Και β) ή (Όχι  α Και Όχι β), τρόπος_εμφάνισης$)  
Κάνε ΑπλήΌχιΑπό$(α,β)=Γραφή$(Όχι (α Από β), τρόπος_εμφάνισης$)
Κάνε Λογική$(α)=Γραφή$(α, τρόπος_εμφάνισης$)
Τύπωσε $(4),    '' γυρνάμε σε αναλογική γραφή στη κονσόλα
Για ι=Αληθές Έως Ψευδές {
      Για κ=Αληθές Έως Ψευδές {
            Τύπωσε μορφή$("Xnor({0},{1})={2}   [{3}]", Λογική$(ι), Λογική$(κ), ΌχιΑπό$(ι, κ), ΑπλήΌχιΑπό$(ι,κ))
      }
}