Τρίτη 23 Μαΐου 2023

Αναθεώρηση 29, Έκδοση 12

 Ανανεώθηκε αρκετά το GreekManual.pdf, to ελληνικό μικρό εγχειρίδιο της Μ2000. Έγιναν και μερικές διορθώσεις από μικρά προβλήματα που δημιούργησε η αναθεώρηση 25 (ήταν εκτεταμένη αναθεώρηση).. Τα προβλήματα βρέθηκαν όταν δοκίμασα προγράμματα από το μικρό εγχειρίδιο, όπως αυτό:

Κατάσταση Αλφα ="ένα":=12345,"δύο":="Γεια","τρία","τέσσερα"
Κλάση Βήτα$ {
Ιδιωτικό:
      Κατάσταση Πιν
Δημόσιο:
      Αξία (κ$) {
            Δες Οκ {
                  =αυτό.Πιν$(κ$)
           }
           Αν Οκ τότε Έξοδος
          ="??"          
      }
Κλάση:
      Τμήμα Βήτα {
            Διάβασε ΚΚ
                   .Πιν<=ΚΚ
      }
}
Πίνακας Μ$(10)=Βήτα$(Αλφα)
Τύπωσε Μ$(3)("δύο")
Τύπωσε Μ$(3)("ένα")

Στο παραπάνω πρόγραμμα από την 25 αναθρώρηση της έκδοσης 12 έδινε το ?? ως αποτέλεσμα στις δυο τύπωσε στο τέλος. Τώρα δίνει τις τιμές που γυρνούν τα κλειδιά "δύο" και "ένα".

Στο παρακάτω πρόγραμμα, το Group kk$ γυρνάει τιμή και μπορεί να πάρει παραμέτρους, ενώ είναι ιδιωτικό. (και εδώ είχε σφάλμα που διορθώθηκε).

Οι δυο σειρές Print (Τύπωσε) στο τμήμα ShowMe, δεν έχουν διαφορά στην εμφάνιση τιμών, απλά στο πρώτο χρησιμοποιούμε το This ενώ στο δεύτερο έχουμε μόνο την τελεία.

Group Beta {
Private:
        Inventory pin="one":=12345,"two":="Hello","three","four"
        Function alfa$ {
                ="OK"
        }
        k=lambda ->"k1"
        Group kk$ {
                value () {
                        ="ok_kk"
                }
        }
Public:
        Module ShowMe(k$) {
                Try ok {
                        print this.pin$(k$), this.alfa$(), this.k(), this.kk$()
                        print .pin$(k$), .alfa$(), .k(), .kk$()
                }
                if not ok then print "nothing"
        }
}
Beta.ShowMe "two"
Beta.ShowMe "one"


Το τμήμα Comp_num (μιγαδικοί αριθμοί) τώρα τρέχει σωστά! Υπάρχει στο αρχείο info.gsb που περιέχεται στο πρόγραμμα εγκατάστασης.

https://github.com/M2000Interpreter/Environment/releases


Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου

You can feel free to write any suggestion, or idea on the subject.