Κυριακή, 10 Απριλίου 2016

Αναθεώρηση 208 και παραδείγματα με αντικείμενα

Στην αναθεώρηση 208 έκανα ένα έλεγχο και διόρθωσα ένα σημείο όπου δεν αναγνώριζε ο διερμηνευτής μια ιδιωτική συνάρτηση αλφαριθμητική σε αντικείμενο.

Ομάδα Άλφα {
Ιδιωτικό:
      μετ$="Οκ"
      Α$=Λάμδα$-> { Διάβασε Χ : = Επαν$("*",Χ)}
      Συνάρτηση Β$ {=.μετ$}
Δημόσιο:
      Τμήμα ΔεςΜε {
            Τύπωσε .Α$(Αριθμός)
            Τύπωσε .Β$()
      }
}

Άλφα.ΔεςΜε 10
Τύπωσε Έγκυρο(Αλφα.Α$(10)) \\ 0 (μη έγκυρο)
Βήτα=Άλφα
Βήτα.ΔεςΜε 100




Στα Αγγλικά:
Group Alfa {
Private:
      var$="Ok"
      A$=Lambda$-> { Read X : = String$("*",X)}
      Function B$ {=.Var$}
Public:
      Module Check {
            Print .A$(number)
            Print .B$()
      }
}

Alfa.Check 10
Print Valid(Alfa.A$()) \\ 0  (false - not valid)
Beta=Alfa
Beta.Check 100