M2000 Γλώσσα Προγραμματισμού
Θέλετε να αντιδράσετε στο μήνυμα; Φτιάξτε έναν λογαριασμό και συνδεθείτε για να συνεχίσετε.

Προφορά Ιταλικών

Πήγαινε κάτω

Προφορά Ιταλικών Empty Προφορά Ιταλικών

Δημοσίευση από m2000 Δευ Ιουν 13, 2016 12:50 pm

Το γράφουμε σε ένα αρχείο ιταλικα.gsb (Σ "ιταλικα.gsb" κάνουμε επικόλληση, πατάμε Esc, γράφουμε Φόρτωσε ιταλικα και τρέχει, το Φόρτωσε βγαίνει με Ctrl-F ή αν έχουμε αγγλικά βγαίνει με Ctrl L ως Load)

Τμήμα ΠΡΟΦΟΡΑ {
      Διάβασε Λέξη$
      Αν Λέξη$="" Τότε Έξοδος
      Πένα 7
      Τύπωσε "η λέξη: ";
      Πένα χρώμα(255,128,40) {
            Πλάγια
            Τύπωσε Λέξη$;
            Πλάγια
      }
      Τύπωσε " έχει προφορά: ";
      Ν = 1 : Μ = 1
      Λέξη$=Λέξη$+" "
      Βάλε 0 ' σκοπός  - αν το βρούμε σημαίνει τέλος
      Ι=0
      {
            Ι++
            Αν Ι>Μήκος(Λέξη$) Τότε Έξοδος
            Σ=0
            Ασφάλεια=0
            Ν = 1
            {
                  Μ=Ν
                  \\ υπάρχει και ως Επίλεξε Με
                  Επέλεξε Με Κεφ$(Μεσ$(Λέξη$, Ι, Ν))
                  Με "A"
                   {Ν=2 :Ι++: Βάλε "α"}
                  Με "B"
                   Βάλε "μπ"
                  Με "C"
                  Ν = 2
                  Με "CI","CE"
                  {
                        Αν Σ=1 Τότε {
                              Διάβασε ΚΚΚ$
                              Βάλε "σσ"
                        } Αλλιώς Βάλε "τσ"
                  }
                  Με "CO","CA","CU", "CQ"
                   Βάλε "κ"
                  Με "C "
                  Βάλε "τσι"
                  Με "G "
                  Βάλε "τζ"
                  Με "SS"
                  {Ι++
                  Βάλε "σ"}
                  Με "GL"
                  Ν=3
                  Με "GLI"
                        {Βάλε "λι"
                         ι+=2
                        }
                  Με "GH"
                  Ν=3
                  Με "GHI", "GHE"
                        {Ι++
                         Βάλε "γκχ"
                        }
                  Με "CH"
                        Ν=3
                  Με "CHI", "CHE"
                        {Ι++
                        Βάλε "κχ"
                        }
                  Με "D"
                        Βάλε "ντ"
                  Με "E"
                        {Ν=2:Ι++:Βάλε "ε"}
                  Με "F"
                        Βάλε "φ"
                  Με "G"
                        Ν=2
                  Με "GN"
                        {Ι++
                        Βάλε "νι"}
                  Με "GI","GE"
                        Βάλε "τζ"
                  Με "GO","GA","GU"
                         Βάλε "γκ"
                  Με "H"
                         Βάλε "" 'αηχο
                  Με "I"
                         {Ν=2 :Ι++: Βάλε "ι"}
                  Με "L"
                         Βάλε "λ"
                  Με "M"
                         Βάλε "μ"
                  Με "N"
                         Βάλε "ν"
                  Με "O"
                         {Ν=2 :Ι++: Βάλε "ο"}
                  Με "P"
                         Βάλε "π"
                  Με "Q"
                         Βάλε "κ"
                  Με "R"
                         Βάλε "ρ"
                  Με "S"
                        {
                              Ι++
                              Μ=0
                              Σ=1
                              Βάλε "σ"
                        }
                  Με "SA","SO","SI","SU","SE"
                        Βάλε "ζ"
                  Με "T"
                         Βάλε "τ"
                  Με "U"
                        {Ν=2 :Ι++: Βάλε "ου"}
                  Με "V"
                        Βάλε "β"
                  Με "Z"
                        {
                              Αν Ι=1 Τότε {
                              Βάλε "τζζ"
                              } Αλλιώς Βάλε "τσσ"
                        }
                  Με "GG"
                        {Ι++
                        Ν=1}
                  Με "CC"
                        {Ι++
                        Ν=1}
                  Με "GB" Έως "GZ"
                        {Ι++
                        Βάλε "γκ"
                        Ν=1}
                  Με "CB" Έως "CZ"
                        {Ι++
                        Βάλε "κ"
                        Ν=1}
                  Με " "
                        Ν=Μ
                  Αλλιώς
                  {
                        Ν=1 : Σ=0
                        Ασφάλεια++
                        Αν Ασφάλεια>2 Τότε Ν=Μ
                  }
                  Τέλος Επιλογής
                  Αν Ν<>Μ Τότε Κυκλικά
            }
            Κυκλικά
      }
      'τωρα μαζεύουμε την λέξη
      Κ$=""
      Λ$=""
      Αν Εινγρ Τότε { \\ η Εινγρ λέει αληθλης αν είναι γράμματα (αλφαριθμητικό) στη κορυφή του σωρού
            Ενώ Όχι Ειναρ { \\ η Ειναρ λέει αληθής αν είναι αριθμός στη κορυφή του σωρού
                  Διάβασε Γ$ \\ διαβάζει από το σωρό
                  Αν (Λ$ <> Γ$) Ή Μήκος(Γ$)=1 Τότε {Κ$=Γ$+Κ$}
                  Λ$=Γ$
            }
            Διάβασε ΣΚΟΠΟΣ
            Πένα ΧΡΩΜΑ(100,200,100)
            Φαρδιά
            Τύπωσε ΠΕΖ$(Κεφ$(Κ$))
            Φαρδιά
      } Αλλιώς {
            Πένα 4
            Τύπωσε "ΛΕΞΗ ?"
      }
      Πένα 15
}
Τμήμα P {\\ p "λέξη"
      Διάβασε α$
      ΠΡΟΦΟΡΑ α$
}
Τμήμα ΛΕΞΕΙΣ {
      \\ υπάρχει εντολή ΛΕΞΕΙΣ αλλά εδώ αναπρογραμματίζεται
      \\ με @ΛΕΞΕΙΣ έχουμε την κανονική λειτουργία
      \\ μετά από εντολή Νέο (διαγράφει το πρόγραμμα) επανέρχεται η εντολή όπως ήταν     
      Για Ι=1 Έως 4 {
            Άλλαξε Α$(Τυχαίος(0,14)), Α$(15)
            ΠΡΟΦΟΡΑ Α$(Ι)
      }
}
Τμήμα PA {ΠΡΟΤΑΣΗ Γράμμα$ \\ pa "λέξη"
}
Τμήμα ΠΡΟΤΑΣΗ {
      Διάβασε Π$
      Π$=Αποκ$(Π$)+" "
      Ενώ Π$<>" " {
            Ι=Θεση(Π$," ")
            Λ$=Αρισ$(Π$,Ι-1)
            Π$=Αποκ$(Μεσ$(Π$,Ι))+" "
            Αν Λ$<>"" Τότε ΠΡΟΦΟΡΑ Λ$
      }
}
Τμήμα ΟΔΗΓΙΕΣ {
            Περι ! "ΧΡΗΣΗ ΠΡΟΓΡΑΜΜΑΤΟΣ", 8000, 3000 , { p "giorgio"
                        Τυπώνει την προφορά της λέξης
                        pa "gli zii"
                        Τυπώνει την προφορά των λέξεων!
                        F1 - Δίνει Λέξεις (εκτελεί το τμήμα ΛΕΞΕΙΣ), F2 - Καθαρή Οθόνη, F3 - Τέλος
                        }
}
Τμήμα ΜΑΠΙΛ {
      \\ εκτέλεση τμήματος ως σενάριο στη γραμμή εντολών της κονσόλας
      \\ αν και λέγεται τμήμα, αν κληθεί Με το όνομα μόνο τότε...
      \\ ... ο πίνακας Α$() δεν θα είναι γενικός, πράγμα που εδώ θέλουμε.
      \\ εντολές διακλάδωσης και επαναλήψεων δεν εκτελούνται - βγαίνει λάθος
      \\ μπορούν να μπουν πολλές εντολές σε μια γραμμή
      \\ μπορούν να μπουν σχόλια
      Φαρδιά 0 : Πλάγια 0 : Γραμματοσειρά "Tahoma"
      \\ δοκιμάστε Με Φόρμα 60,30 και $(0) αντί Για $(4) (είναι παρακάτω)
      Φόρμα 30, 20
      Οθόνη 5,0
      Πίνακας Α$(16)
      Α$(0)="famiglia","chiamo", "casa", "gelato", "ghiaccio", "canzone", "ciao","pizza", "zio", "pesce", "rosso", "luce", "bagno", "pachetto","gonna", "anno"
      Κλειδί 1,"Λέξεις"
      Κλειδί 2,"Οθόνη"
      Κλειδί 3,"Τέλος"
      ΟΔΗΓΙΕΣ
      Πένα 13
      Φαρδιά 1
      Τύπωσε $(4),"Μ.Α.Π.Ι.Λ εκδ 2.0"    \\ 4 Για αναλογική γραφή
      Τύπωσε "ΜΗΧΑΝΗ ΑΠΟΔΟΣΗΣ ΠΡΟΦΟΡΑΣ ΙΤΑΛΙΚΩΝ ΛΕΞΕΩΝ"
      Φαρδιά
      Τύπωσε
      Οθόνη ,γραμμη
      Πένα 11
      Τύπωσε "Παράδειγμα:"
      Πένα 15
      Τύπωσε "p "+Παραθεση$("giorgio")
      P "giorgio"
      Τύπωσε "Ctrl+F1 Για Βοήθεια"
      Πένα 15
      \\ χρειάζεται το Άναψε για να δούμε τη κονσόλα αν ξεκινάμε
      \\ με διπλό κλικ στο αρχείο ιταλικα.gsb
      Άναψε
}
Σενάριο ΜΑΠΙΛ
m2000
m2000
Admin

Posts : 27
Join date : 10/06/2016
Age : 57
Location : Kanallaki Greece

https://m2000.forumgreek.com

Επιστροφή στην κορυφή Πήγαινε κάτω

Επιστροφή στην κορυφή


 
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης