Προφορά Ιταλικών
Σελίδα 1 από 1
Προφορά Ιταλικών
Το γράφουμε σε ένα αρχείο ιταλικα.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
Άναψε
}
Σενάριο ΜΑΠΙΛ
Τμήμα ΠΡΟΦΟΡΑ {
Διάβασε Λέξη$
Αν Λέξη$="" Τότε Έξοδος
Πένα 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
Άναψε
}
Σενάριο ΜΑΠΙΛ
Σελίδα 1 από 1
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης
|
|