Παρασκευή 8 Απριλίου 2016

Ελληνική Αρίθμηση.


Γράφουμε το παρακάτω σε ένα τμήμα έστω Α   ( Σ Α και αντιγράφουμε, και μετά πατάμε Esc). Τρέχει με Α και ζητάει ένα νούμερο. Με 0 τερματίζει.

Οι μεταβλητές με % στο τέλος είναι ακέραιες. Επειδή θέλουμε θετικό νούμερο, βγάζουμε τυχόν πρόσημο με την Απολ() που δίνει την απόλυτη τιμή (απολ(-2)=2,  απολ(2)=2)

Το πρόγραμμα βγάζει μέχρι 9999999 (αν υπάρχει κάποια ιδέα ή δει κανείς κάτι λάθος να ενημερώσει, ευχαριστώ)
(Αν δεν φαίνονται οι ειδικοί χαρακτήρες σημαίνει ότι το πρόγραμμα εμφάνισης δεν χρησιμοποιεί γραμματοσειρά Unicode, με τους συγκεκριμένους χαρακτήρες! Αυτό το έχω δει σε Sasmumg tablet με Chrome, ενώ ο Chrome σε Desktop υπολογιστή δεν έχει θέμα)

μονάδες$="αβγδεϛζηθ"
δεκάδες$="ικλμνξοπϞ"
εκατοντάδες$="ρστυφχψωϡ"


\\δίγαμμα$="Ϝ" \\ άλλα: ϝ Ϝ ϛ Ϛ


Α$=Λάμδα$ μονάδες$, δεκάδες$, εκατοντάδες$ -> {
            Στη τ$="΄", τ1$=""
            Διάβασε α%
           α%=Απολ(α%)
           Αν α%<10000000 τότε {
                  μ%=α% υπολ 10 : α%=α% δια 10
                  δ%=α% υπολ 10 : α%=α% δια 10
                  εκ%=α% υπολ 10 : α%=α% δια 10
                  χιλ%=α% υπολ 10 : α%=α% δια 10
                  αν μ%>0 τότε τ$=μεσ$(μονάδες$,μ%,1)+τ$
                  αν δ%>0 τότε τ$=μεσ$(δεκάδες$,δ%,1)+τ$
                  αν εκ%>0 τότε τ$=μεσ$(εκατοντάδες$,εκ%,1)+τ$
                  αν τ$="΄" τότε τ$=""
                  αν χιλ%>0 τότε {
                        τ$=μεσ$(μονάδες$,χιλ%,1)+τ$
                        αν τ1$="" τότε τ$="͵"+τ$
                  }
                  αν α%=0 τότε έξοδος
                  αν τ$<>"" τότε τ$="."+τ$
                  αν τ1$="¨" και τ$="" τότε τ1$="Άπειρο" : Έξοδος
                 τ1$="¨"
                        Κυκλικά
            } Αλλιώς τ$="Άπειρο"
            =τ1$+τ$
}


{
      Εισαγωγή"ι=", ι%
      αν ι%=0 τότε έξοδος
      Αναφορά Α$(ι%)
      κυκλικά
}


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

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

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