Το Στέκι των Πληροφορικών

Γυμνάσιο => Γενικά => Γ΄ Γυμνασίου => Μήνυμα ξεκίνησε από: markakis στις 20 Σεπ 2008, 05:28:48 μμ

Τίτλος: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 20 Σεπ 2008, 05:28:48 μμ
Για όσους δεν το γνωρίζουν το KTurtle είναι ένα εκπαιδευτικό περιβάλλον προγραμματισμού σε Logo (μια παραλλαγή της την TurtleScript). Πρόκειται για Ελεύθερο Λογισμικό καθώς είναι εφαρμογή-τμήμα του Γραφικού Περιβάλλοντος KDE. Αυτό το κάνει άμεσα διαθέσιμο μέσα από τα αποθετήρια όλων των διανομών Linux αλλά και στα Windows μέσα από το "KDE on Windows Project" http://windows.kde.org (http://windows.kde.org).

Το περιβάλλον είναι εξελληνισμένο (από την έκδοση 3.x του KDE), όπως και οι εντολές της γλώσσας (από την έκδοση 4.0 του KDE). Πρόσφατα ολοκλήρωσα τη μετάφραση του εγχειριδίου χρήσης του KTurtle, όμως για τεχνικούς λόγους (απόσυρση συντονιστή την ελληνικής ομάδας μετάφρασης του KDE κ.α) δεν έχει ενσωματωθεί ακόμα στην ελληνική μετάφραση. Μέχρι να γίνει αυτό, πιθανό να ανεβάσω το εγχειρίδιο σε μορφή HTML.

Από τα εξελληνισμένα περιβάλλοντα, το προτιμώ όχι μόνο γιατί είναι ελεύθερο λογισμικό αλλά γιατί το θεωρώ πιο λειτουργικό και εύχρηστο από το "Χελωνόκοσμο". To Microworlds το απορρίπτω, καθώς όσα σχολεία δεν το διαθέτουν, θα πρέπει να πληρώσουν για να το αποκτήσουν, πράγμα ΑΠΑΡΑΔΕΚΤΟ για εκπαιδευτικό λογισμικό που αναφέρεται στις σελίδες του βιβλίου.

Νομίζω ότι καλύπτει με το παραπάνω τις ανάγκες του μαθήματος. Αν μη τι άλλο οι συνάδελφοι με Linux στα εργαστήρια πρέπει να σταματήσουν να προσπαθούν να τρέξουν το Microworlds με WINE...
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: alkisg στις 20 Σεπ 2008, 10:25:42 μμ
Συμφωνώ απόλυτα, και από του χρόνου που θα αρχίσει (τυπικά) η διδασκαλία της Logo θα μου άρεσε να μαζευόμασταν κάποιοι συνάδελφοι και να "αντικαθιστούσαμε" τα σχετικά κεφάλαια του βιβλίου που αναφέρονται στο Microworlds με αντίστοιχες σημειώσεις για Kturtle... Λϊγες σελίδες είναι, και από το να αγοράζουμε το Microworlds καλύτερα να μοιράζουμε φωτοτυπίες στα παιδιά.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 05 Οκτ 2008, 05:14:21 μμ
Επειδή διάβασα το post κάποιου συναδέλφου στο φόρουμ του Hellug που έψαχνε βοήθεια για τα ελληνικά, επανέρχομαι για να βοηθήσω όσους ενδιαφέρονται για το θέμα.

Έχω προσθέσει μερικές πληροφορίες και ένα "οδηγό εκκίνησης" στην παρακάτω διεύθυνση:
http://www.μαρκακης.gr/KTurtle (http://www.μαρκακης.gr/KTurtle)
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: denix στις 22 Φεβ 2010, 01:05:40 πμ
Συμφωνώ απόλυτα, και από του χρόνου που θα αρχίσει (τυπικά) η διδασκαλία της Logo θα μου άρεσε να μαζευόμασταν κάποιοι συνάδελφοι και να "αντικαθιστούσαμε" τα σχετικά κεφάλαια του βιβλίου που αναφέρονται στο Microworlds με αντίστοιχες σημειώσεις για Kturtle... Λϊγες σελίδες είναι, και από το να αγοράζουμε το Microworlds καλύτερα να μοιράζουμε φωτοτυπίες στα παιδιά.

Έγινε. (αν και με 1,5 χρόνο καθυστέρηση...) ;)
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 08 Μάι 2010, 12:01:36 μμ
Καλησπέρα, είμαι φοιτητής του τμήματος Πληροφορικής & Τηλεπικοινωνιών και κάνω την πτυχιακή μου εργασία που αφορά τη σύγκριση Logo-Like περιβαλλόντων. Μόλις εγκατέστησα το kturtle και έχω κάποιες απορίες. :)
Στο microworlds pro ο χρήστης μπορεί να κάνει εισαγωγή σχημάτων από μια καρτέλα. Στο kturtle πως μπορεί να γίνει αυτό;
Επίσης, πως μπορώ να εισάγω εκτός από την αρχική χελώνα και άλλες στον καμβά;
Αυτά για αρχή!! :P
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 17 Μάι 2010, 12:03:31 μμ
Καλησπέρα, είμαι φοιτητής του τμήματος Πληροφορικής & Τηλεπικοινωνιών και κάνω την πτυχιακή μου εργασία που αφορά τη σύγκριση Logo-Like περιβαλλόντων. Μόλις εγκατέστησα το kturtle και έχω κάποιες απορίες. :)
Στο microworlds pro ο χρήστης μπορεί να κάνει εισαγωγή σχημάτων από μια καρτέλα. Στο kturtle πως μπορεί να γίνει αυτό;
Επίσης, πως μπορώ να εισάγω εκτός από την αρχική χελώνα και άλλες στον καμβά;
Αυτά για αρχή!! :P

Κάποιος;;; :(
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 17 Μάι 2010, 01:32:37 μμ
Στο microworlds pro ο χρήστης μπορεί να κάνει εισαγωγή σχημάτων από μια καρτέλα. Στο kturtle πως μπορεί να γίνει αυτό;
Επίσης, πως μπορώ να εισάγω εκτός από την αρχική χελώνα και άλλες στον καμβά;

Και στα δυο ερωτήματα η απάντηση είναι ότι δεν υπάρχουν αυτές οι δυνατότητες/λειτουργίες στο KTurtle.

Για περισσότερη μελέτη γύρω από το KTurtle μπορείς να ανατρέξεις στο επίσημο εγχειρίδιο (http://docs.kde.org/stable/en/kdeedu/kturtle/index.html) αλλά και στο  δικτυακό τόπο (http://www.μαρκακης.gr/KTurtle) που αναφέρω παραπάνω και φροντίζω να είναι ενημερωμένος γύρω από την ελληνική έκδοση. Και βέβαια αν κάτι δεν καταλαβαίνεις μπορείς να ξαναρωτήσεις εδώ  :)
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 25 Μάι 2010, 06:35:02 μμ
Και στα δυο ερωτήματα η απάντηση είναι ότι δεν υπάρχουν αυτές οι δυνατότητες/λειτουργίες στο KTurtle.

Για περισσότερη μελέτη γύρω από το KTurtle μπορείς να ανατρέξεις στο επίσημο εγχειρίδιο (http://docs.kde.org/stable/en/kdeedu/kturtle/index.html) αλλά και στο  δικτυακό τόπο (http://www.μαρκακης.gr/KTurtle) που αναφέρω παραπάνω και φροντίζω να είναι ενημερωμένος γύρω από την ελληνική έκδοση. Και βέβαια αν κάτι δεν καταλαβαίνεις μπορείς να ξαναρωτήσεις εδώ  :)

Καλησπέρα. Τα διάβασα τα παραπάνω και τα χρησιμοποίησα και βλέπω αρκετές ομοιότητες με το microworlds pro. Αλλά έχω το εξής πρόβλημα.. Στο microworlds pro είχα υλοποιήσει το παιχνίδι της τρίλιζας με δύο παίκτες. Δηλαδή είχα φτιάξει 9 τετράγωνα-χελώνες στις οποίες όταν γινόταν κλικ μετατρέπονταν σε Χ ή Ο ανάλογα με το ποιος έπαιζε. Όμως αφού εδώ δεν μπορούμε να βάλουμε νέες χελώνες και σχήματα στο kturtle πως μπορεί να υλοποιηθεί το παιχνίδι αυτό; Μια ιδέα θα μου ήταν πολύ χρήσιμη.

Επίσης, ήχο,εικόνα και βίντεο μπορούμε να εισάγουμε στο kturtle;

Ευχαριστώ πολύ!!!!  :)
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: denix στις 26 Μάι 2010, 02:39:47 πμ
Επίσης, ήχο,εικόνα και βίντεο μπορούμε να εισάγουμε στο kturtle;
Όχι...  :(
Καλησπέρα. Τα διάβασα τα παραπάνω και τα χρησιμοποίησα και βλέπω αρκετές ομοιότητες με το microworlds pro. Αλλά έχω το εξής πρόβλημα.. Στο microworlds pro είχα υλοποιήσει το παιχνίδι της τρίλιζας με δύο παίκτες. Δηλαδή είχα φτιάξει 9 τετράγωνα-χελώνες στις οποίες όταν γινόταν κλικ μετατρέπονταν σε Χ ή Ο ανάλογα με το ποιος έπαιζε. Όμως αφού εδώ δεν μπορούμε να βάλουμε νέες χελώνες και σχήματα στο kturtle πως μπορεί να υλοποιηθεί το παιχνίδι αυτό; Μια ιδέα θα μου ήταν πολύ χρήσιμη.
Ζωγραφίζοντας. Δες συνημμένα.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 26 Μάι 2010, 11:54:31 πμ
Όχι...  :(Ζωγραφίζοντας. Δες συνημμένα.

Οκ. Μου εμφανίζει κάποια σφάλματα στον κώδικα.  :( Για παράδειγμα η πρώτη συνάρτηση είναι όπως παρακάτω:
μάθε πλέγμα {
  χσ 0,0,0
  πήγαινε 50,50
  επανάλαβε 4 {σδ 90 μπ 300}
  πήγαινε 150, 350 μπ 300
  πήγαινε 250, 350 μπ 300
  σδ 90
  πήγαινε 50, 150 μπ 300
  πήγαινε 50, 250 μπ 300
  σα 90
  κέντρο
}

δίπλα στο μάθε δηλαδή δεν καταλαβαίνει τι είναι. Το ίδιο συμβαίνει και στις επόμενες συναρτήσεις. Έκανα κάτι λάθος;;  :(
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: denix στις 26 Μάι 2010, 04:26:10 μμ
δίπλα στο μάθε δηλαδή δεν καταλαβαίνει τι είναι. Το ίδιο συμβαίνει και στις επόμενες συναρτήσεις. Έκανα κάτι λάθος;;  :(
Δες.
Κώδικας: [Επιλογή]
αρχικοποίησε
#################
μάθε πλέγμα {
  χσ 0,0,0
  πήγαινε 50,50
  επανάλαβε 4 {σδ 90 μπ 300}
  πήγαινε 150, 350 μπ 300
  πήγαινε 250, 350 μπ 300
  σδ 90
  πήγαινε 50, 150 μπ 300
  πήγαινε 50, 250 μπ 300
  σα 90
  κέντρο
}
μάθε ετικέτες {
χσ 0,255,0
$χ=50 $ψ=48 $α=1
  επανάλαβε 3 {
    επανάλαβε 3 {
      πήγαινε $χ, $ψ
      τύπωσε $α
      $α=$α+1
      $χ=$χ+100
    }
  $χ=50
  $ψ=$ψ+100
  }
}
μάθε καρέκλα {
  πήγαινε 375,200 κατ 0
}
μάθε ο $χ, $ψ {
  χσ 255,0,0
  πήγαινε $χ-4, $ψ+2
  σπ κατ 0 μπ 40 σδ 90 σκ
    επανάλαβε 30 {
      μπ 8 σδ 12
    }
  καρέκλα
}
μάθε χ $χ, $ψ {
  χσ 0,0,255
  πήγαινε $χ, $ψ
  σδ 45
  μπ 50 πι 100 μπ 50
  σα 90
  μπ 50 πι 100 μπ 50
  καρέκλα
}
# Ακέραια Διαίρεση
# ΜΟΝΟ για θετικούς >=1
μάθε αδ $α, $β {
  $π=στρογγυλοποίησε($α/$β-0.5)
  επίστρεψε $π
}
# Υπόλοιπο
# ΜΟΝΟ για θετικούς >=1
μάθε υπόλοιπο $α, $β {
  $υ=$α - $β * στρογγυλοποίησε($α/$β-0.5)
  επίστρεψε $υ
}

# Εμφάνιση πλέγματος
μσ 5
πλέγμα
ετικέτες
μσ 3
καρέκλα

# τεστ
# χ 100, 100
# ο 200, 200
# χ 300, 300
# ο 100, 200
# χ 300, 200
# ο 300, 100

# Δοκιμαστικό για θέσεις
επανάλαβε 4 {
  $πχ = ερώτηση "Παίκτης [Χ]: Δώσε θέση (από 1 ως 9)"
  $ι=υπόλοιπο ($πχ+2), 3
  $ι=($ι + 1) * 100
  $κ = (αδ ($πχ+2), 3) * 100
  χ $ι, $κ

  $πο = ερώτηση "Παίκτης [Ο]: Δώσε θέση (από 1 ως 9)"
  $ι=υπόλοιπο ($πο+2), 3
  $ι=($ι + 1) * 100
  $κ = (αδ ($πο+2), 3) * 100
  ο $ι, $κ
}

Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: aspd στις 15 Ιούν 2010, 11:15:32 μμ
Χρησιμοποίησα το microworlds pro φέτος μέσα από wine σε ubuntu 9.04 περιβάλλον.
Τη νέα χρονιά λέω να χρησιμοποιήσω το kturtle.
Το υλικό που παραθέτεις και κυρίως η  προσαρμογή του κεφαλαίου 2 είναι ό, τι ακριβώς χρειαζόμουνα.
Ευχαριστώ πολύ

Προσπάθησα να εγκαταστήσω τα ελληνικά στο kturtle με βάση τις παρακάτω οδηγίες
1. Copy logokeywords.el_GR.xml to kdeedu/kturtle/src/data/keywords/

2. Copy logohighlightstyle.el_GR.xml to kdeedu/kturtle/src/data/highlightstyles/

3. Copy el_GR directory to kdeedu/kturtle/examples/



In Ubuntu these paths are:

1. /usr/share/apps/kturtle/data/

2. /usr/share/apps/katepart/syntax/

3. /usr/share/apps/kturtle/examples/

Δεν υπάρχουν τα παραπάνω paths για  ubuntu 9.04.
Έχω /usr/share/kde4/apps/kturtle, αλλά δεν ακολουθεί data ή examples

Τελικά έστησα την εξελληνισμένη έκδοση με βάση το
http://wiki.ubuntu-gr.org/Γυμνάσιο/kturtle/2.0.1 Εγκατάσταση σε Ubuntu, όπου δούλεψε κατευθείαν.

Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 22 Ιούν 2010, 01:50:42 μμ
Με βάση τον κώδικα που δώσατε πήρα και τροποποίησα την τρίλιζα για παιχνίδι με δύο παίκτες και παιχνίδι με υπολογιστή. Τα ανεβάζω να τα δείτε και να μου πείτε την άποψή σας και πιθανές ιδέες για βελτιώσεις.

Κώδικας: [Επιλογή]
#################
αρχικοποίησε
$χ1=-1
$χ2=-1
$χ3=-1
$χ4=-1
$χ5=-1
$χ6=-1
$χ7=-1
$χ8=-1
$χ9=-1
$σημαία=0
$σειρά=0 #ζυγά παίζει ο Χ,μονά ο Ο
$νικητής=0
$έλεγχος=0
#################

#Το πλέγμα φτιάχνει το σχήμα της τρίλιζας!
μάθε πλέγμα {
  χσ 0,0,0
  πήγαινε 50,50
  επανάλαβε 4 {σδ 90 μπ 300}
  πήγαινε 150, 350 μπ 300
  πήγαινε 250, 350 μπ 300
  σδ 90
  πήγαινε 50, 150 μπ 300
  πήγαινε 50, 250 μπ 300
  σα 90
  κέντρο
}
#################
#Βάζει τους αριθμούς στα τετράγωνα της τρίλιζας. Από 1 μέχρι 9
μάθε ετικέτες {
χσ 0,255,0
$χ=50 #συντεταγμένη χ
$ψ=48 #συντεταγμένη ψ
$α=1 #νούμερα από 1 μέχρι 9
  επανάλαβε 3
{
  επανάλαβε 3
{
    πήγαινε $χ, $ψ
      τύπωσε $α
      $α=$α+1
      $χ=$χ+100
   }
  $χ=50
$ψ=$ψ+100
  }
}
#################
#Μετακινεί τη χελώνα στη 375,200 για να μην παρεμβάλλεται στο σχήμα
μάθε καρέκλα {
  πήγαινε 375,200 κατ 0
}
#################
#Σχηματίζει το Ο στις συντεταγμένες που δινονται
μάθε ο $χ, $ψ {
  χσ 255,0,0
$σημαία=0
$έλεγχος=0
αν ($χ == 100) και ($ψ == 100)
{
αν $χ1==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ1==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ1=2
}
}
αν ($χ == 200) και ($ψ == 100)
{
αν $χ2==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ2==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ2=2
}
}
αν ($χ == 300) και ($ψ == 100)
{
αν $χ3==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ3==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ3=2
}
}
αν ($χ == 100) και ($ψ == 200)
{
αν $χ4==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ4==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ4=2
}
}
αν ($χ == 200) και ($ψ == 200)
{
αν $χ5==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ5==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ5=2
}
}
αν ($χ == 300) και ($ψ == 200)
{
αν $χ6==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ6==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ6=2
}
}
αν ($χ == 100) και ($ψ == 300)
{
αν $χ7==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ7==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ7=2
}
}
αν ($χ == 200) και ($ψ == 300)
{
αν $χ8==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ8==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ8=2
}
}
αν ($χ == 300) και ($ψ == 300)
{
αν $χ9==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ9==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ9=2
}
}
αν ($σημαία == 0)
{
πήγαινε $χ-4, $ψ+2
πήγαινε $χ, $ψ
  σπ κατ 0 μπ 40 σδ 90 σκ
    επανάλαβε 30
{
    μπ 8 σδ 12
    }
  καρέκλα
}
}
#################
#Σχηματίζει το Χ στις συντεταγμένες που δινονται
μάθε χ $χ, $ψ {
  χσ 0,0,255
$σημαία=0
αν ($χ == 100) και ($ψ == 100)
{
αν $χ1==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ1==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ1=1
}
}
αν ($χ == 200) και ($ψ == 100)
{
αν $χ2==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ2==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ2=1
}
}
αν ($χ == 300) και ($ψ == 100)
{
αν $χ3==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ3==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ3=1
}
}
αν ($χ == 100) και ($ψ == 200)
{
αν $χ4==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ4==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ4=1
}
}
αν ($χ == 200) και ($ψ == 200)
{
αν $χ5==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ5==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ5=1
}
}
αν ($χ == 300) και ($ψ == 200)
{
αν $χ6==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ6==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ6=1
}
}
αν ($χ == 100) και ($ψ == 300)
{
αν $χ7==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ7==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ7=1
}
}
αν ($χ == 200) και ($ψ == 300)
{
αν $χ8==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ8==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ8=1
}
}
αν ($χ == 300) και ($ψ == 300)
{
αν $χ9==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ9==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ9=1
}
}
αν ($σημαία == 0)
{
  πήγαινε $χ, $ψ
  σδ 45
  μπ 50 πι 100 μπ 50
  σα 90
  μπ 50 πι 100 μπ 50
  καρέκλα
}
}
#################
μάθε έλεγξε_νικητή
{
αν ( ($χ1==1) και ($χ4==1) και ($χ7==1))
{νικητήςΧ}
αλλιώς αν ( ($χ1==1) και ($χ2==1) και($χ3==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ1==1) και ($χ5==1) και ($χ9==1) ) {νικητήςΧ}

αλλιώς αν ( ($χ1==2) και ($χ4==2) και ($χ7==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ1==2) και ($χ2==2) και ($χ3==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ1==2) και ($χ5==2) και ($χ9==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ2==1) και ($χ5==1) και ($χ8==1) ) {νικητήςΧ}

αλλιώς αν ( ($χ2==2) και ($χ5==2) και ($χ8==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ3==1) και ($χ6==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ3==1) και ($χ5==1) και ($χ7==1) ) {νικητήςΧ}

αλλιώς αν ( ($χ3==2) και ($χ6==2) και ($χ9==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ3==2) και ($χ5==2) και ($χ7==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ4==1) και ($χ5==1) και ($χ6==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ4==2) και ($χ5==2) και ($χ6==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ7==1) και ($χ8==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ7==2) και ($χ8==2) και ($χ7==2) ) {νικητήςΟ}
}
#################
μάθε νικητήςΧ
{
$νικητής="Χ"
μήνυμα "Ο Παίχτης με το X κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
#################
μάθε νικητήςΟ
{
$νικητής="Ο"
μήνυμα "Ο Παίχτης με το Ο κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
#################

# Εμφάνιση πλέγματος
μσ 5
πλέγμα
ετικέτες
μσ 3
καρέκλα

όσο ($σειρά <9) και ($νικητής == 0)
{
αν (($σειρά==0) ή($σειρά==2)   ή($σειρά==4) ή ($σειρά==6) ή ($σειρά==8))
{
  $πχ = ερώτηση "Παίκτης [Χ]: Δώσε θέση (από 1 ως 9)"
αν ($πχ==1)
{
$χχ=100
$ψψ=100
}
αλλιώς αν ($πχ==2)
{
$χχ=200
$ψψ=100
}
αλλιώς αν ($πχ==3)
{
$χχ=300
$ψψ=100
}
αλλιώς αν ($πχ==4)
{
$χχ=100
$ψψ=200
}
αλλιώς αν ($πχ==5)
{
$χχ=200
$ψψ=200
}
αλλιώς αν ($πχ==6)
{
$χχ=300
$ψψ=200
}
αλλιώς αν ($πχ==7)
{
$χχ=100
$ψψ=300
}
αλλιώς αν ($πχ==8)
{
$χχ=200
$ψψ=300
}
αλλιώς αν ($πχ==9)
{
$χχ=300
$ψψ=300
}
# μήνυμα "χχ="+$χχ+" ψψ="+$ψψ
  χ $χχ, $ψψ
έλεγξε_νικητή
}
αλλιώς αν (($σειρά==1) ή($σειρά==3)   ή($σειρά==5) ή ($σειρά==7) ή ($σειρά==9))
{
  $πο = ερώτηση "Παίκτης [Ο]: Δώσε θέση (από 1 ως 9)"
  αν ($πο==1)
{
$χχ=100
$ψψ=100
}
αλλιώς αν ($πο==2)
{
$χχ=200
$ψψ=100
}
αλλιώς αν ($πο==3)
{
$χχ=300
$ψψ=100
}
αλλιώς αν ($πο==4)
{
$χχ=100
$ψψ=200
}
αλλιώς αν ($πο==5)
{
$χχ=200
$ψψ=200
}
αλλιώς αν ($πο==6)
{
$χχ=300
$ψψ=200
}
αλλιώς αν ($πο==7)
{
$χχ=100
$ψψ=300
}
αλλιώς αν ($πο==8)
{
$χχ=200
$ψψ=300
}
αλλιώς αν ($πο==9)
{
$χχ=300
$ψψ=300
}
# μήνυμα "χχ="+$χχ+" ψψ="+$ψψ
  ο $χχ, $ψψ
έλεγξε_νικητή
}
αν ($έλεγχος!=1)
{
$σειρά = $σειρά + 1
# μήνυμα "Σειρά = " +$σειρά
}
}
αν $νικητής==0
{
μήνυμα "Ισοπαλία. Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}[pre][/pre]
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 22 Ιούν 2010, 01:51:43 μμ
Και ο κώδικας για το παιχνίδι με τον υπολογιστή:

Κώδικας: [Επιλογή]
#################
αρχικοποίησε
$χ1=-1
$χ2=-1
$χ3=-1
$χ4=-1
$χ5=-1
$χ6=-1
$χ7=-1
$χ8=-1
$χ9=-1
$σημαία=0
$σειρά=0 #ζυγά παίζει ο Χ,μονά ο Ο
$νικητής=0
$έλεγχος=0
#################

#Το πλέγμα φτιάχνει το σχήμα της τρίλιζας!
μάθε πλέγμα {
  χσ 0,0,0
  πήγαινε 50,50
  επανάλαβε 4 {σδ 90 μπ 300}
  πήγαινε 150, 350 μπ 300
  πήγαινε 250, 350 μπ 300
  σδ 90
  πήγαινε 50, 150 μπ 300
  πήγαινε 50, 250 μπ 300
  σα 90
  κέντρο
}
#################
#Βάζει τους αριθμούς στα τετράγωνα της τρίλιζας. Από 1 μέχρι 9
μάθε ετικέτες {
χσ 0,255,0
$χ=50 #συντεταγμένη χ
$ψ=48 #συντεταγμένη ψ
$α=1 #νούμερα από 1 μέχρι 9
  επανάλαβε 3
{
  επανάλαβε 3
{
    πήγαινε $χ, $ψ
      τύπωσε $α
      $α=$α+1
      $χ=$χ+100
   }
  $χ=50
$ψ=$ψ+100
  }
}
#################
#Μετακινεί τη χελώνα στη 375,200 για να μην παρεμβάλλεται στο σχήμα
μάθε καρέκλα {
  πήγαινε 375,200 κατ 0
}
#################
#Σχηματίζει το Ο στις συντεταγμένες που δινονται
μάθε υπολογιστής
{
αν (($χ1==2) και ($χ4==2) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ1==2) και ($χ4==-1) και ($χ7==2))
{ο 100,200}
αλλιώς αν (($χ1==-1) και ($χ4==2) και ($χ7==2))
{ο 100,100}

αλλιώς αν (($χ1==2) και ($χ2==2) και ($χ3==-1))
{ο 300,100}
αλλιώς αν (($χ1==2) και ($χ2==-1) και ($χ3==2))
{ο 200,100}
αλλιώς αν (($χ1==-1) και ($χ2==2) και ($χ3==2))
{ο 100,100}

αλλιώς αν (($χ1==2) και ($χ5==2) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ1==2) και ($χ5==-1) και ($χ9==2))
{ο 200,200}
αλλιώς αν (($χ1==-1) και ($χ5==2) και ($χ9==2))
{ο 100,100}

αλλιώς αν (($χ2==2) και ($χ5==2) και ($χ8==-1))
{ο 200,300}
αλλιώς αν (($χ2==2) και ($χ5==-1) και ($χ8==2))
{ο 200,200}
αλλιώς αν (($χ2==-1) και ($χ5==2) και ($χ8==2))
{ο 200,100}

αλλιώς αν (($χ3==2) και ($χ6==2) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ3==2) και ($χ6==-1) και ($χ9==2))
{ο 300,200}
αλλιώς αν (($χ3==-1) και ($χ6==2) και ($χ9==2))
{ο 300,100}

αλλιώς αν (($χ3==2) και ($χ5==2) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ3==2) και ($χ5==-1) και ($χ7==2))
{ο 200,200}
αλλιώς αν (($χ3==-1) και ($χ5==2) και ($χ7==2))
{ο 300,100}

αλλιώς αν (($χ4==2) και ($χ5==2) και ($χ6==-1))
{ο 300,200}
αλλιώς αν (($χ4==2) και ($χ5==-1) και ($χ6==2))
{ο 200,200}
αλλιώς αν (($χ4==-1) και ($χ5==2) και ($χ6==2))
{ο 100,200}

αλλιώς αν (($χ7==2) και ($χ8==2) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ7==2) και ($χ8==-1) και ($χ9==2))
{ο 200,300}
αλλιώς αν (($χ7==-1) και ($χ8==2) και ($χ9==2))
{ο 100,300}
#########################################
αλλιώς αν (($χ1==1) και ($χ4==1) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ1==1) και ($χ4==-1) και ($χ7==1))
{ο 100,200}
αλλιώς αν (($χ1==-1) και ($χ4==1) και ($χ7==1))
{ο 100,100}

αλλιώς αν (($χ1==1) και ($χ2==1) και ($χ3==-1))
{ο 300,100}
αλλιώς αν (($χ1==1) και ($χ2==-1) και ($χ3==1))
{ο 200,100}
αλλιώς αν (($χ1==-1) και ($χ2==1) και ($χ3==1))
{ο 100,100}

αλλιώς αν (($χ1==1) και ($χ5==1) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ1==1) και ($χ5==-1) και ($χ9==1))
{ο 200,200}
αλλιώς αν (($χ1==-1) και ($χ5==1) και ($χ9==1))
{ο 100,100}

αλλιώς αν (($χ2==1) και ($χ5==1) και ($χ8==-1))
{ο 200,300}
αλλιώς αν (($χ2==1) και ($χ5==-1) και ($χ8==1))
{ο 200,200}
αλλιώς αν (($χ2==-1) και ($χ5==1) και ($χ8==1))
{ο 200,100}

αλλιώς αν (($χ3==1) και ($χ6==1) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ3==1) και ($χ6==-1) και ($χ9==1))
{ο 300,200}
αλλιώς αν (($χ3==-1) και ($χ6==1) και ($χ9==1))
{ο 300,100}

αλλιώς αν (($χ3==1) και ($χ5==1) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ3==1) και ($χ5==-1) και ($χ7==1))
{ο 200,200}
αλλιώς αν (($χ3==-1) και ($χ5==1) και ($χ7==1))
{ο 300,100}

αλλιώς αν (($χ4==1) και ($χ5==1) και ($χ6==-1))
{ο 300,200}
αλλιώς αν (($χ4==1) και ($χ5==-1) και ($χ6==1))
{ο 200,200}
αλλιώς αν (($χ4==-1) και ($χ5==1) και ($χ6==1))
{ο 100,200}

αλλιώς αν (($χ7==1) και ($χ8==1) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ7==1) και ($χ8==-1) και ($χ9==1))
{ο 200,300}
αλλιώς αν (($χ7==-1) και ($χ8==1) και ($χ9==1))
{ο 100,300}
#########################################
αλλιώς αν ($χ1==-1)
{ο 100,100}
αλλιώς αν ($χ2==-1)
{ο 200,100}
αλλιώς αν ($χ3==-1)
{ο 300,200}
αλλιώς αν ($χ4==-1)
{ο 100,200}
αλλιώς αν ($χ5==-1)
{ο 200,200}
αλλιώς αν ($χ6==-1)
{ο 300,200}
αλλιώς αν ($χ7==-1)
{ο 100,300}
αλλιώς αν ($χ8==-1)
{ο 200,300}
αλλιώς αν ($χ9==-1)
{ο 300,300}

}
μάθε ο $χ, $ψ {
  χσ 255,0,0
$σημαία=0
$έλεγχος=0
αν ($χ == 100) και ($ψ == 100)
{
αν $χ1==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ1==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ1=2
}
}
αν ($χ == 200) και ($ψ == 100)
{
αν $χ2==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ2==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ2=2
}
}
αν ($χ == 300) και ($ψ == 100)
{
αν $χ3==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ3==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ3=2
}
}
αν ($χ == 100) και ($ψ == 200)
{
αν $χ4==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ4==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ4=2
}
}
αν ($χ == 200) και ($ψ == 200)
{
αν $χ5==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ5==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ5=2
}
}
αν ($χ == 300) και ($ψ == 200)
{
αν $χ6==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ6==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ6=2
}
}
αν ($χ == 100) και ($ψ == 300)
{
αν $χ7==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ7==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ7=2
}
}
αν ($χ == 200) και ($ψ == 300)
{
αν $χ8==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ8==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ8=2
}
}
αν ($χ == 300) και ($ψ == 300)
{
αν $χ9==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ9==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ9=2
}
}
αν ($σημαία == 0)
{
πήγαινε $χ-4, $ψ+2
πήγαινε $χ, $ψ
  σπ κατ 0 μπ 40 σδ 90 σκ
    επανάλαβε 30
{
    μπ 8 σδ 12
    }
  καρέκλα
}
}
#################
#Σχηματίζει το Χ στις συντεταγμένες που δινονται
μάθε χ $χ, $ψ {
  χσ 0,0,255
$σημαία=0
αν ($χ == 100) και ($ψ == 100)
{
αν $χ1==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ1==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ1=1
}
}
αν ($χ == 200) και ($ψ == 100)
{
αν $χ2==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ2==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ2=1
}
}
αν ($χ == 300) και ($ψ == 100)
{
αν $χ3==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ3==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ3=1
}
}
αν ($χ == 100) και ($ψ == 200)
{
αν $χ4==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ4==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ4=1
}
}
αν ($χ == 200) και ($ψ == 200)
{
αν $χ5==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ5==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ5=1
}
}
αν ($χ == 300) και ($ψ == 200)
{
αν $χ6==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ6==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ6=1
}
}
αν ($χ == 100) και ($ψ == 300)
{
αν $χ7==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ7==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ7=1
}
}
αν ($χ == 200) και ($ψ == 300)
{
αν $χ8==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ8==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ8=1
}
}
αν ($χ == 300) και ($ψ == 300)
{
αν $χ9==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ9==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ9=1
}
}
αν ($σημαία == 0)
{
  πήγαινε $χ, $ψ
  σδ 45
  μπ 50 πι 100 μπ 50
  σα 90
  μπ 50 πι 100 μπ 50
  καρέκλα
}
}
#################
μάθε έλεγξε_νικητή
{
αν ( ($χ1==1) και ($χ4==1) και ($χ7==1))
{νικητήςΧ}
αλλιώς αν ( ($χ1==1) και ($χ2==1) και($χ3==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ1==1) και ($χ5==1) και ($χ9==1) ) {νικητήςΧ}

αλλιώς αν ( ($χ1==2) και ($χ4==2) και ($χ7==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ1==2) και ($χ2==2) και ($χ3==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ1==2) και ($χ5==2) και ($χ9==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ2==1) και ($χ5==1) και ($χ8==1) ) {νικητήςΧ}

αλλιώς αν ( ($χ2==2) και ($χ5==2) και ($χ8==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ3==1) και ($χ6==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ3==1) και ($χ5==1) και ($χ7==1) ) {νικητήςΧ}

αλλιώς αν ( ($χ3==2) και ($χ6==2) και ($χ9==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ3==2) και ($χ5==2) και ($χ7==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ4==1) και ($χ5==1) και ($χ6==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ4==2) και ($χ5==2) και ($χ6==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ7==1) και ($χ8==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ7==2) και ($χ8==2) και ($χ7==2) ) {νικητήςΟ}
}
#################
μάθε νικητήςΧ
{
$νικητής="Χ"
μήνυμα "Ο Παίχτης με το X κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
#################
μάθε νικητήςΟ
{
$νικητής="Ο"
μήνυμα "Ο Παίχτης με το Ο κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
#################

# Εμφάνιση πλέγματος
μσ 5
πλέγμα
ετικέτες
μσ 3
καρέκλα

όσο ($σειρά <9) και ($νικητής == 0)
{
αν (($σειρά==0) ή($σειρά==2)   ή($σειρά==4) ή ($σειρά==6) ή ($σειρά==8))
{
  $πχ = ερώτηση "Παίκτης [Χ]: Δώσε θέση (από 1 ως 9)"
αν ($πχ==1)
{
$χχ=100
$ψψ=100
}
αλλιώς αν ($πχ==2)
{
$χχ=200
$ψψ=100
}
αλλιώς αν ($πχ==3)
{
$χχ=300
$ψψ=100
}
αλλιώς αν ($πχ==4)
{
$χχ=100
$ψψ=200
}
αλλιώς αν ($πχ==5)
{
$χχ=200
$ψψ=200
}
αλλιώς αν ($πχ==6)
{
$χχ=300
$ψψ=200
}
αλλιώς αν ($πχ==7)
{
$χχ=100
$ψψ=300
}
αλλιώς αν ($πχ==8)
{
$χχ=200
$ψψ=300
}
αλλιώς αν ($πχ==9)
{
$χχ=300
$ψψ=300
}
# μήνυμα "χχ="+$χχ+" ψψ="+$ψψ
  χ $χχ, $ψψ
έλεγξε_νικητή
}
αλλιώς αν (($σειρά==1) ή($σειρά==3)   ή($σειρά==5) ή ($σειρά==7) ή ($σειρά==9))
{
  υπολογιστής
}
αν ($έλεγχος!=1)
{
$σειρά = $σειρά + 1
# μήνυμα "Σειρά = " +$σειρά
}
}
αν $νικητής==0
{
μήνυμα "Ισοπαλία. Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 24 Ιούν 2010, 04:46:49 μμ
Αυτή είναι η τελική μορφή της τρίλιζας, η οποία δίνει τη δυνατότητα στο χρήστη να επιλέξει στην αρχή του παιχνιδιού αν θα παίξει τρίλιζα με τον υπολογιστή ή με τρίλιζα με δύο παίκτες.
Θα ήθελα να ακούσω τις απόψεις σας για το πως σας φαίνεται. Ευχαριστώ πολύ.

Κώδικας: [Επιλογή]
#################
αρχικοποίησε
$χ1=-1
$χ2=-1
$χ3=-1
$χ4=-1
$χ5=-1
$χ6=-1
$χ7=-1
$χ8=-1
$χ9=-1
$σημαία=0
$σειρά=0 #ζυγά παίζει ο Χ, μονά ο Ο
$νικητής="ΚΑΝΕΙΣ"
$έλεγχος=0
$λάθος=1
$απάντηση=0
#################
#Το πλέγμα φτιάχνει το σχήμα της τρίλιζας!
μάθε πλέγμα {
χσ 0,0,0                                   #θέτει χρώμα στυλό το μαύρο

πήγαινε 50,50                         #πηγαίνει στη θέση με συντεταγμένες 50,50

επανάλαβε 4 {σδ 90 μπ 300}  #δημιουργεί τετράγωνο πλευράς 300

πήγαινε 150, 350 μπ 300        #πηγαίνει στη θέση με συντεταγμένες 150,350 και στη συνέχεια προχωράει μπροστά 300 εικονοστοιχεία. Αποτέλεσμα αυτού είναι η δημιουργία της 1ης στήλης του τετραγώνου.

πήγαινε 250, 350 μπ 300       # πηγαίνει στη θέση με συντεταγμένες 250,350 και στη συνέχεια προχωράει μπροστά 300 εικονοστοιχεία. Αποτέλεσμα αυτού είναι ο διαχωρισμός του τετραγώνου σε 3 στήλες.

σδ 90                                     #στρίβει δεξιά 90 μοίρες
πήγαινε 50, 150 μπ 300        #πηγαίνει στη θέση με συντεταγμένες 50,150 και στη συνέχεια προχωράει μπροστά 300 εικονοστοιχεία. Αποτέλεσμα αυτού είναι η δημιουργία της 1ης γραμμής του τετραγώνου.

πήγαινε 50, 250 μπ 300        #πηγαίνει στη θέση με συντεταγμένες 50,250 και στη συνέχεια προχωράει μπροστά 300 εικονοστοιχεία. Αποτέλεσμα αυτού είναι ο διαχωρισμός του τετραγώνου σε 3 γραμμές.

σα 90                                   #στρίβει αριστερά 90 μοίρες
κέντρο                                #μετακινείται στο κέντρο
}
#################
μσ 5                           #αλλάζει το μέγεθος στυλό σε 5.
πλέγμα
#Βάζει τους αριθμούς στα τετράγωνα της τρίλιζας. Από 1 μέχρι 9
μάθε ετικέτες {
χσ 0,255,0              #θέτει χρώμα στυλό πράσινο.
$χ=50                    #συντεταγμένη χ           
$ψ=48                   #συντεταγμένη ψ
$α=1                     #νούμερα από 1 μέχρι 9. Το α θα τυπώνουμε
επανάλαβε 3
{
         επανάλαβε 3   # σε αυτήν την επανάληψη τυπώνονται τα νούμερα τις γραμμές. Στην αρχή 1,2,3 μετά 4,5,6 και τέλος 7,8,9.
         {
              πήγαινε $χ, $ψ     #πηγαίνει στη θέση που θέλουμε
              τύπωσε $α            #τυπώνει το α
              $α=$α+1             #το αυξάνει κατά 1
              $χ=$χ+100          #μετακινείται δεξιά κατά 100 εικονοστοιχεία
         }
         $χ=50
         $ψ=$ψ+100              #μετακινείται κάτω κατά 100 εικονοστοιχεία
}
}
#################
ετικέτες
#Μετακινεί τη χελώνα στη 375,200 για να μην παρεμβάλλεται στο σχήμα
μάθε καρέκλα {
πήγαινε 375,200 κατ 0
}
#################
μσ 3                   # αλλάζει το μέγεθος στυλό σε 3.
καρέκλα
#Σχηματίζει το Χ στις συντεταγμένες που δίνονται
μάθε χ $χ, $ψ {                             #καλείται χ και συντεταγμένηΧ,συντεταγμένηΨ
χσ 0,0,255                                     #θέτει χρώμα στυλό μπλε
$σημαία=0
$έλεγχος=0
αν (($χ == 100) και ($ψ == 100))     #αν είμαστε στο πάνω αριστερά τετράγωνο
{
αν $χ1==1                                    # και η μεταβλητή χ1 είναι 1 το τετράγωνο έχει επιλεγεί ήδη από τον παίκτη με το «Χ»
{
$σημαία=1                                 #η σημαία γίνεται 1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"  #εκτυπώνεται μήνυμα
$έλεγχος=1                                #και η τιμή της μεταβλητής έλεγχος γίνεται 1
}
αλλιώς αν $χ1==2                     #αλλιώς αν η μεταβλητή χ1 είναι 2 το τετράγωνο έχει επιλεγεί ήδη από τον παίκτη με το «Ο»
{
$σημαία=1                                #η σημαία γίνεται 1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"   #εκτυπώνεται μήνυμα
$έλεγχος=1                               #και η τιμή της μεταβλητής έλεγχος γίνεται 1
}
αλλιώς                                      #αλλιώς το χ1 είναι ίσο με -1, και θα επιλεγεί από τον παίκτη με το «Χ»
{
$χ1=1                                       #και για αυτό η τιμή της μεταβλητή χ1 γίνεται 1
}
}
αλλιώς αν (($χ == 200) και ($ψ == 100))
{
αν $χ2==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ2==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ2=1
}
}
αλλιώς αν (($χ == 300) και ($ψ == 100))
{
αν $χ3==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ3==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ3=1
}
}
αλλιώς αν (($χ == 100) και ($ψ == 200))
{
αν $χ4==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ4==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ4=1
}
}
αλλιώς αν (($χ == 200) και ($ψ == 200))
{
αν $χ5==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ5==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ5=1
}
}
αλλιώς αν (($χ == 300) και ($ψ == 200))
{
αν $χ6==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ6==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ6=1
}
}
αλλιώς αν (($χ == 100) και ($ψ == 300))
{
αν $χ7==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ7==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ7=1
}
}
αλλιώς αν (($χ == 200) και ($ψ == 300))
{
αν $χ8==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ8==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ8=1
}
}
αλλιώς αν (($χ == 300) και ($ψ == 300))
{
αν $χ9==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ9==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ9=1
}
}
αν ($σημαία == 0)               #αν η σημαία είναι 0 τότε το τετράγωνο δεν έχει επιλεγεί και μπορούμε να ζωγραφίσουμε το Χ στο τετράγωνο αυτό.
{
πήγαινε $χ, $ψ                    #πηγαίνουμε στις συντεταγμένες που δίνονται
σδ 45                                 #και σχεδιάζουμε το Χ
μπ 50 πι 100 μπ 50
σα 90
μπ 50 πι 100 μπ 50
καρέκλα
}
}
#################
#Σχηματίζει το Ο στις συντεταγμένες που δίνονται
μάθε ο $χ, $ψ {                              #καλείται ο και συντεταγμένηΧ,συντεταγμένηΨ
χσ 255,0,0                                     #θέτει χρώμα στυλό κόκκινο
$σημαία=0
$έλεγχος=0
αν ($χ == 100) και ($ψ == 100)     #αν είμαστε στο πάνω αριστερά τετράγωνο
{
αν $χ1==1                                    # και η μεταβλητή χ1 είναι 1 το τετράγωνο έχει επιλεγεί ήδη από τον παίκτη με το «Χ»
{
$σημαία=1                                     #η σημαία γίνεται 1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"    #εκτυπώνεται μήνυμα
$έλεγχος=1                                   #και η τιμή της μεταβλητής έλεγχος γίνεται 1
}
αλλιώς αν $χ1==2                         #αλλιώς αν η μεταβλητή χ1 είναι 2 το τετράγωνο έχει επιλεγεί ήδη από τον παίκτη με το «Ο»
{
$σημαία=1                                    #η σημαία γίνεται 1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"    #εκτυπώνεται μήνυμα
$έλεγχος=1                                   #και η τιμή της μεταβλητής έλεγχος γίνεται 1
}
αλλιώς                                          #αλλιώς το χ1 είναι ίσο με -1, και θα επιλεγεί από τον παίκτη με το «Ο»
{
$χ1=2                                          #και για αυτό η τιμή της μεταβλητή χ1 γίνεται 2
}
}
αλλιώς αν (($χ == 200) και ($ψ == 100))
{
αν $χ2==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ2==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ2=2
}
}
αλλιώς αν (($χ == 300) και ($ψ == 100))
{
αν $χ3==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ3==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ3=2
}
}
αλλιώς αν (($χ == 100) και ($ψ == 200))
{
αν $χ4==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ4==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ4=2
}
}
αλλιώς αν (($χ == 200) και ($ψ == 200))
{
αν $χ5==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ5==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ5=2
}
}
αλλιώς αν (($χ == 300) και ($ψ == 200))
{
αν $χ6==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ6==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ6=2
}
}
αλλιώς αν (($χ == 100) και ($ψ == 300))
{
αν $χ7==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ7==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ7=2
}
}
αλλιώς αν (($χ == 200) και ($ψ == 300))
{
αν $χ8==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ8==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ8=2
}
}
αλλιώς αν (($χ == 300) και ($ψ == 300))
{
αν $χ9==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ9==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ9=2
}
}
αν ($σημαία == 0)                       #αν η σημαία είναι 0 τότε το τετράγωνο δεν έχει επιλεγεί και μπορούμε να ζωγραφίσουμε το Χ στο τετράγωνο αυτό.

{
πήγαινε $χ, $ψ                            #πηγαίνουμε στις συντεταγμένες που δίνονται
σπ κατ 0 μπ 40 σδ 90 σκ               #και σχεδιάζουμε το Χ
επανάλαβε 30
{
μπ 8 σδ 12
}
καρέκλα
}
}
#################
μάθε έλεγξε_νικητή
{
αν ( ($χ1==1) και ($χ4==1) και ($χ7==1)){νικητήςΧ}
αλλιώς αν ( ($χ1==1) και ($χ2==1) και($χ3==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ1==1) και ($χ5==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ1==2) και ($χ4==2) και ($χ7==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ1==2) και ($χ2==2) και ($χ3==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ1==2) και ($χ5==2) και ($χ9==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ2==1) και ($χ5==1) και ($χ8==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ2==2) και ($χ5==2) και ($χ8==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ3==1) και ($χ6==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ3==1) και ($χ5==1) και ($χ7==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ3==2) και ($χ6==2) και ($χ9==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ3==2) και ($χ5==2) και ($χ7==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ4==1) και ($χ5==1) και ($χ6==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ4==2) και ($χ5==2) και ($χ6==2) ) {νικητήςΟ}

αλλιώς αν ( ($χ7==1) και ($χ8==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ7==2) και ($χ8==2) και ($χ7==2) ) {νικητήςΟ}
}
#################
μάθε νικητήςΧ
{
$νικητής="Χ"
μήνυμα "Ο Παίχτης με το X κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση!"
τέλος
}
#################
μάθε νικητήςΟ
{
$νικητής="Ο"
μήνυμα "Ο Παίχτης με το Ο κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση!"
τέλος
}

συνεχίζεται και στο επόμενο μήνυμα..
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 24 Ιούν 2010, 04:47:43 μμ
συνέχεια κώδικα...

Κώδικας: [Επιλογή]
###########################
μάθε υπολογιστής
{
αν (($χ1==2) και ($χ4==2) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ1==2) και ($χ4==-1) και ($χ7==2))
{ο 100,200}
αλλιώς αν (($χ1==-1) και ($χ4==2) και ($χ7==2))
{ο 100,100}

αλλιώς αν (($χ1==2) και ($χ2==2) και ($χ3==-1))
{ο 300,100}
αλλιώς αν (($χ1==2) και ($χ2==-1) και ($χ3==2))
{ο 200,100}
αλλιώς αν (($χ1==-1) και ($χ2==2) και ($χ3==2))
{ο 100,100}

αλλιώς αν (($χ1==2) και ($χ5==2) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ1==2) και ($χ5==-1) και ($χ9==2))
{ο 200,200}
αλλιώς αν (($χ1==-1) και ($χ5==2) και ($χ9==2))
{ο 100,100}

αλλιώς αν (($χ2==2) και ($χ5==2) και ($χ8==-1))
{ο 200,300}
αλλιώς αν (($χ2==2) και ($χ5==-1) και ($χ8==2))
{ο 200,200}
αλλιώς αν (($χ2==-1) και ($χ5==2) και ($χ8==2))
{ο 200,100}

αλλιώς αν (($χ3==2) και ($χ6==2) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ3==2) και ($χ6==-1) και ($χ9==2))
{ο 300,200}
αλλιώς αν (($χ3==-1) και ($χ6==2) και ($χ9==2))
{ο 300,100}

αλλιώς αν (($χ3==2) και ($χ5==2) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ3==2) και ($χ5==-1) και ($χ7==2))
{ο 200,200}
αλλιώς αν (($χ3==-1) και ($χ5==2) και ($χ7==2))
{ο 300,100}

αλλιώς αν (($χ4==2) και ($χ5==2) και ($χ6==-1))
{ο 300,200}
αλλιώς αν (($χ4==2) και ($χ5==-1) και ($χ6==2))
{ο 200,200}
αλλιώς αν (($χ4==-1) και ($χ5==2) και ($χ6==2))
{ο 100,200}

αλλιώς αν (($χ7==2) και ($χ8==2) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ7==2) και ($χ8==-1) και ($χ9==2))
{ο 200,300}
αλλιώς αν (($χ7==-1) και ($χ8==2) και ($χ9==2))
{ο 100,300}
#########################################
αλλιώς αν (($χ1==1) και ($χ4==1) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ1==1) και ($χ4==-1) και ($χ7==1))
{ο 100,200}
αλλιώς αν (($χ1==-1) και ($χ4==1) και ($χ7==1))
{ο 100,100}

αλλιώς αν (($χ1==1) και ($χ2==1) και ($χ3==-1))
{ο 300,100}
αλλιώς αν (($χ1==1) και ($χ2==-1) και ($χ3==1))
{ο 200,100}
αλλιώς αν (($χ1==-1) και ($χ2==1) και ($χ3==1))
{ο 100,100}

αλλιώς αν (($χ1==1) και ($χ5==1) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ1==1) και ($χ5==-1) και ($χ9==1))
{ο 200,200}
αλλιώς αν (($χ1==-1) και ($χ5==1) και ($χ9==1))
{ο 100,100}

αλλιώς αν (($χ2==1) και ($χ5==1) και ($χ8==-1))
{ο 200,300}
αλλιώς αν (($χ2==1) και ($χ5==-1) και ($χ8==1))
{ο 200,200}
αλλιώς αν (($χ2==-1) και ($χ5==1) και ($χ8==1))
{ο 200,100}

αλλιώς αν (($χ3==1) και ($χ6==1) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ3==1) και ($χ6==-1) και ($χ9==1))
{ο 300,200}
αλλιώς αν (($χ3==-1) και ($χ6==1) και ($χ9==1))
{ο 300,100}

αλλιώς αν (($χ3==1) και ($χ5==1) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ3==1) και ($χ5==-1) και ($χ7==1))
{ο 200,200}
αλλιώς αν (($χ3==-1) και ($χ5==1) και ($χ7==1))
{ο 300,100}

αλλιώς αν (($χ4==1) και ($χ5==1) και ($χ6==-1))
{ο 300,200}
αλλιώς αν (($χ4==1) και ($χ5==-1) και ($χ6==1))
{ο 200,200}
αλλιώς αν (($χ4==-1) και ($χ5==1) και ($χ6==1))
{ο 100,200}

αλλιώς αν (($χ7==1) και ($χ8==1) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ7==1) και ($χ8==-1) και ($χ9==1))
{ο 200,300}
αλλιώς αν (($χ7==-1) και ($χ8==1) και ($χ9==1))
{ο 100,300}
#########################################
αλλιώς αν ($χ1==-1)
{ο 100,100}
αλλιώς αν ($χ2==-1)
{ο 200,100}
αλλιώς αν ($χ3==-1)
{ο 300,200}
αλλιώς αν ($χ4==-1)
{ο 100,200}
αλλιώς αν ($χ5==-1)
{ο 200,200}
αλλιώς αν ($χ6==-1)
{ο 300,200}
αλλιώς αν ($χ7==-1)
{ο 100,300}
αλλιώς αν ($χ8==-1)
{ο 200,300}
αλλιώς αν ($χ9==-1)
{ο 300,300}

}
###########################
μάθε τέλος
{
χσ 255,255,0
σκ
μσ 5
αν $χ1==-1
{
πήγαινε 55,55
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ2==-1
{
πήγαινε 155,55
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ3==-1
{
πήγαινε 255,55
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ4==-1
{
πήγαινε 55,155
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ5==-1
{
πήγαινε 155,155
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ6==-1
{
πήγαινε 255,155
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ7==-1
{
πήγαινε 55,255
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ8==-1
{
πήγαινε 155,255
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ9==-1
{
πήγαινε 255,255
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
καρέκλα
}
μάθε παιχνίδι
{
όσο (($απάντηση != 1) και ($απάντηση != 2))
{ $απάντηση = ερώτηση "Αν θέλετε να παίξετε με 2 παίκτες πληκτρολογήστε 2. Αν θέλετε να παίξετε με τον υπολογιστή πληκτρολογηστε 1"
αν (($απάντηση != 1) και ($απάντηση != 2))
{ μήνυμα "Δεκτές είναι οι επιλογές 1 ή 2 και καμία άλλη!"
}
}
όσο ($σειρά <9) και ($νικητής=="ΚΑΝΕΙΣ")
{
αν (($σειρά==0) ή($σειρά==2)   ή($σειρά==4) ή ($σειρά==6) ή ($σειρά==8))
{
  $πχ = ερώτηση "Παίκτης [Χ]: Δώσε θέση (από 1 ως 9)"
αν ($πχ==1)
{
$χχ=100
$ψψ=100
}
αλλιώς αν ($πχ==2)
{
$χχ=200
$ψψ=100
}
αλλιώς αν ($πχ==3)
{
$χχ=300
$ψψ=100
}
αλλιώς αν ($πχ==4)
{
$χχ=100
$ψψ=200
}
αλλιώς αν ($πχ==5)
{
$χχ=200
$ψψ=200
}
αλλιώς αν ($πχ==6)
{
$χχ=300
$ψψ=200
}
αλλιώς αν ($πχ==7)
{
$χχ=100
$ψψ=300
}
αλλιώς αν ($πχ==8)
{
$χχ=200
$ψψ=300
}
αλλιώς αν ($πχ==9)
{
$χχ=300
$ψψ=300
}
# μήνυμα "χχ="+$χχ+" ψψ="+$ψψ
  χ $χχ, $ψψ
έλεγξε_νικητή
}
αλλιώς αν (($σειρά==1) ή($σειρά==3)   ή($σειρά==5) ή ($σειρά==7) ή ($σειρά==9))
{
     αν ($απάντηση == 1)
{ υπολογιστής
έλεγξε_νικητή }
αλλιώς
{
$πο = ερώτηση "Παίκτης [Ο]: Δώσε θέση (από 1 ως 9)"
αν ($πο==1)
{
$χχ=100
$ψψ=100
}
αλλιώς αν ($πο==2)
{
$χχ=200
$ψψ=100
}
αλλιώς αν ($πο==3)
{
$χχ=300
$ψψ=100
}
αλλιώς αν ($πο==4)
{
$χχ=100
$ψψ=200
}
αλλιώς αν ($πο==5)
{
$χχ=200
$ψψ=200
}
αλλιώς αν ($πο==6)
{
$χχ=300
$ψψ=200
}
αλλιώς αν ($πο==7)
{
$χχ=100
$ψψ=300
}
αλλιώς αν ($πο==8)
{
$χχ=200
$ψψ=300
}
αλλιώς αν ($πο==9)
{
$χχ=300
$ψψ=300
}
αλλιώς
{
  $λάθος=0
  μήνυμα "Δώσατε λάθος επιλογή. Δεκτοί είναι οι αριθμοί από 1 μέχρι και 9 και μόνο!"
}
αν ($λάθος!=0)
{
ο $χχ, $ψψ
έλεγξε_νικητή
}
}
}
αν ($έλεγχος!=1)
{
$σειρά = $σειρά + 1
# μήνυμα "Σειρά = " +$σειρά
}
}
αν $νικητής=="ΚΑΝΕΙΣ"
{
μήνυμα "Ισοπαλία. Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
}
παιχνίδι
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mour στις 24 Ιούν 2010, 04:51:43 μμ
Μήπως είναι υπερβολικά δύσκολο για τα παιδιά???
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 29 Ιούν 2010, 01:51:29 μμ
Χμμ.... Μπορεί να είναι δύσκολο όντως για το παιχνίδι με τον υπολογιστή. Για το παιχνίδι με δύο παίκτες είναι αρκετά απλοϊκό νομίζω.
Αλλά από τη στιγμή που υλοποίησα κώδικα για όταν παίζει ο υπολογιστής από την αρχή γνώριζα ότι θα είναι λίγο πολύπλοκο. Λογικό αν σκεφτούμε ότι ο κώδικας για τον υπολογιστή είναι έτσι και αλλιώς πολύπλοκος. Εκεί νομίζω ότι υπάρχει η όποια δυσκολία..
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 01 Ιούλ 2010, 12:57:11 πμ
Προσπάθησα να εγκαταστήσω τα ελληνικά στο kturtle με βάση τις παρακάτω οδηγίες
1. Copy logokeywords.el_GR.xml to kdeedu/kturtle/src/data/keywords/
2. Copy logohighlightstyle.el_GR.xml to kdeedu/kturtle/src/data/highlightstyles/
3. Copy el_GR directory to kdeedu/kturtle/examples/

In Ubuntu these paths are:
1. /usr/share/apps/kturtle/data/
2. /usr/share/apps/katepart/syntax/
3. /usr/share/apps/kturtle/examples/

Δεν υπάρχουν τα παραπάνω paths για  ubuntu 9.04.
Έχω /usr/share/kde4/apps/kturtle, αλλά δεν ακολουθεί data ή examples

Οι οδηγίες αυτές αφορούν μέχρι και την έκδοση 8.04 του Ubuntu καθώς περιλάμβανε την έκδοση 3.x του KDE.

Από την έκδοση 8.10 και μετά, το Ubuntu, περιλαμβάνει το KDE 4.x και έχει ενσωματωμένα τα ελληνικά στο KTurtle. Έτσι χρειάζεται απλά και μόνο η εγκατάσταση του KTurtle και της υποστήριξη της ελληνικής γλώσσας (γίνεται αυτόματα μέσα από το "Σύστημα->Διαχείριση συστήματος->Γλωσσική υποστήριξη").
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: denix στις 03 Ιούλ 2010, 12:57:09 πμ
Πολύ καλό!! Μου άρεσε!! Λίγη "τύχη" στις κινήσεις του υπολογιστή θα ήταν υπέροχη! Και λίγο "γιαχού" όταν κερδίζει ο παίκτης, του στυλ:
Κώδικας: [Επιλογή]
μάθε yahoo {
επανάλαβε 3 {
χκ 0,0,0 περίμενε 0.1
χκ 255,255,255 περίμενε 0.1
χκ 255,0,255 περίμενε 0.1
χκ 255,255,255 περίμενε 0.1
}
}
#####################
# Ο παίκτης κερδίζει:
yahoo
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: mbot στις 07 Ιούλ 2010, 05:14:39 μμ
Πολύ καλό!! Μου άρεσε!! Λίγη "τύχη" στις κινήσεις του υπολογιστή θα ήταν υπέροχη! Και λίγο "γιαχού" όταν κερδίζει ο παίκτης, του στυλ:
Κώδικας: [Επιλογή]
μάθε yahoo {
επανάλαβε 3 {
χκ 0,0,0 περίμενε 0.1
χκ 255,255,255 περίμενε 0.1
χκ 255,0,255 περίμενε 0.1
χκ 255,255,255 περίμενε 0.1
}
}
#####################
# Ο παίκτης κερδίζει:
yahoo

Ευχαριστώ πολύ!
Απλά επειδή είχα υλοποιήσει τον κώδικα του υπολογιστή για το MicroWorlds και για το Scratch ακριβώς όπως είναι παραπάνω είπα να μην τον αλλάξω. Φυσικά θα μπορούσε να βελτιωθεί, όμως δεν είναι αυτός ο στόχος της πτυχιακής μου... Μπορεί όμως αφού την τελειώσω να τον τελειοποιήσω! :)
Όντως πρόσθεσα το yahoo και είναι πιο ωραίο!!! :) Ευχαριστώ.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 14 Σεπ 2010, 05:07:31 μμ
Υπάρχει ένα θεματάκι με την υποστήριξη γλωσσών πέρα της αγγλικής σε κάποιες εκδόσεις του KDE για Windows (μεταξύ αυτών και στην έκδοση 4.4.4). Συγκεκριμένα δεν υπάρχουν διαθέσιμα για κατέβασμα τα πακέτα γλωσσικής υποστήριξης, επομένως δεν μπορείτε να έχετε ελληνικά (ή άλλη γλώσσα) στο KTurtle. Υπενθυμίζω “KDE on Windows is not in the final state…”

 Η λύση για να παρακάμψετε το πρόβλημα είναι απλή: κατεβάστε μια έκδοση που περιλαμβάνει τα πακέτα γλωσσικής υποστήριξης. Τη στιγμή που γράφεται αυτό το κείμενο ο mirror ftp.ntua.gr έχει την έκδοση 4.2.2 που είναι ΟΚ. Η πιο πρόσφατη που μπόρεσα να βρω και δεν έχει πρόβλημα είναι η έκδοση 4.4.1 στον mirror www.winkde.org.

 Οι διαφορές που έχει το KTurtle σε αυτές τις εκδόσεις είναι από καμιά έως κάποιο ασήμαντο bug fix, οπότε πρακτικά δεν υπάρχει θέμα όποια και να επιλέξετε.

 Σε κάθε περίπτωση δεν ξεχνάμε να επιλέξουμε το Language package kde-l10n-el για κατέβασμα, και στην πρώτη εκτέλεση του KTurtle να επιλέξουμε ως γλώσσα τα ελληνικά (Help -> Switch Application Language και Settings -> Script Language -> Greek).

Τα παραπάνω αφορούν τις εκδόσεις για Windows και όχι τις διανομές Linux.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: alexxtasi στις 17 Φεβ 2011, 12:02:30 πμ
τη στιγμή αυτή υπάρχει η έκδοση 4.5.4 του kde και από τις δοκιμές που έκανα δεν υπάρχει πρόβλημα με τα ελληνικά (βέβαια επιλέγοντας το πακέτο ελληνικής γλώσσας!).
για τη χρήση στο μάθημα πληροφορικής Γ Γυμνασίου, έχει φτιαχτεί ένα wiki page, που μαζί με τις σημειώσεις του μαθήματος έχει και οδηγίες για εγκατάσταση του kde σε windows... για χρήση από τους μαθητές. http://wiki.ubuntu-gr.org/%CE%93%CF%85%CE%BC%CE%BD%CE%AC%CF%83%CE%B9%CE%BF/kturtle/2.0.2%20%CE%95%CE%B3%CE%BA%CE%B1%CF%84%CE%AC%CF%83%CF%84%CE%B1%CF%83%CE%B7%20%CF%83%CE%B5%20Windows

Θέλω να ρωτήσω αν ξέρει κανείς τρόπο να εγκατασταθεί στα windows το documentation του kturtle, αν βέβαια αυτό είναι στα ελληνικά. Στη σελίδα http://docs.kde.org/stable/en/kdeedu/ δεν είδα κάτι τέτοιο. Γνωρίζει κάποιος κάτι για τη μετάφραση του documentation?
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 18 Φεβ 2011, 01:23:44 πμ
Θέλω να ρωτήσω αν ξέρει κανείς τρόπο να εγκατασταθεί στα windows το documentation του kturtle, αν βέβαια αυτό είναι στα ελληνικά. Στη σελίδα http://docs.kde.org/stable/en/kdeedu/ δεν είδα κάτι τέτοιο. Γνωρίζει κάποιος κάτι για τη μετάφραση του documentation?

Έχω στείλει τη μετάφραση του documentation στην ελληνική ομάδα μετάφρασης του KDE εδώ και πολύ καιρό. Επειδή ήταν το πρώτο documentation εφαρμογής του KDE που μεταφραζόταν στα ελληνικά δεν μπορούσε να ανέβει μόνο του, οπότε το πράγμα έμεινε εκεί.

Ωστόσο στη σελίδα www.μαρκακησ.gr/KTurtle/ (http://www.μαρκακησ.gr/KTurtle/) έχω ανεβάσει τα απαραίτητα αρχεία (kturtle.zip (http://μαρκακησ.gr/KTurtle/kturtle.zip)) και οδηγίες για χειρωνακτική εγκατάσταση σε Linux. Δυστυχώς η έκδοση για Windows απ' ότι βλέπω έχει διαφορές στους φακέλους και τα αρχεία και δεν μπορεί να γίνει εγκατάσταση με αυτό τον τρόπο.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: alexxtasi στις 18 Φεβ 2011, 04:50:57 μμ
με λίγα λόγια το ελληνικό documentation για το kturtle είναι έτοιμο, απλά περιμένουμε να ενσωματωθεί στις διανομές (ή το εγκαθιστούμε μόνοι μας)... σωστά?
τώρα στο http://docs.kde.org/stable/en/kdeedu/ τι γίνεται? έχει ξεκινήσει κάποια διαδικασία ενσωμάτωσης ή δε μπορεί να γίνει κάτι τέτοιο?

το σκεπτικό μου είναι ότι:

1. μέχρι την ενσωμάτωση στις linux διανομές καταφεύγουμε στη χειρωνακτική εγκατάσταση (ltsp σε εργαστήρια)
2. αλλά για τους υπολογιστές με windows? Ίσως αν υπήρχε το documentation στο δίκτυο να έλυνε κάποια τέτοια προβλήματα (οι πιο πολλοί μαθητές έχουν windows στο σπίτι τους)

αν μπορώ να βοηθήσω ευχαρίστως, αρκεί να έχω καθοδήγηση. Προσπαθώ κιόλας να ενημερώσω το wiki.ubuntu-gr.org με τις σημειώσεις για το μάθημα της Γ' (πολύ καλή δουλειά του Λυκούργου), βάζοντας screenshots από τη διαδικασία εγκατάστασης σε windows, ώστε να είναι πιο εύκολο και σύντομο για τα πιτσιρίκια....

ευχαριστώ
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: skoud στις 20 Φεβ 2011, 07:43:16 μμ
Έχω εγκαταστήσει χειρωνακτικά σε windows XP, σύμφωνα με τις οδηγίες του συνάδελφου Μαρκάκη, το ελληνικό documentation στο φάκελο C:\Program Files\KDE\share\doc\HTML\el\kturtle και δουλεύει μια χαρά.

Παρεμπιπτόντως έχω φτιάξει ένα blog για τους μαθητές μου (http://14gymnasio-informatics.blogspot.com (http://14gymnasio-informatics.blogspot.com)) , όπου έχω ανεβάσει τις σημειώσεις και ασκήσεις που τους έχω δώσει εφέτος. Κάθε παρατήρηση δεκτή.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 24 Φεβ 2011, 05:32:02 μμ
με λίγα λόγια το ελληνικό documentation για το kturtle είναι έτοιμο, απλά περιμένουμε να ενσωματωθεί στις διανομές (ή το εγκαθιστούμε μόνοι μας)... σωστά?

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

τώρα στο http://docs.kde.org/stable/en/kdeedu/ τι γίνεται? έχει ξεκινήσει κάποια διαδικασία ενσωμάτωσης ή δε μπορεί να γίνει κάτι τέτοιο?

Νομίζω ότι το ίδιο ισχύει και για το δικτυακό τόπο. Εξάλλου το documentation είναι ένα. Ό,τι υπάρχει ενσωματωμένο στην εφαρμογή βρίσκεται και στο site.

1. μέχρι την ενσωμάτωση στις linux διανομές καταφεύγουμε στη χειρωνακτική εγκατάσταση (ltsp σε εργαστήρια)

Αυτό είναι η μια λύση. Μια άλλη είναι μια μορφή αυτοματοποίησης π.χ. μέσα από το αποθετήριο του ΠΣΔ

2. αλλά για τους υπολογιστές με windows? Ίσως αν υπήρχε το documentation στο δίκτυο να έλυνε κάποια τέτοια προβλήματα (οι πιο πολλοί μαθητές έχουν windows στο σπίτι τους)

χμμμ... είχα προσπαθήσει να το κάνω για να το ανεβάσω κάπου ως μια προσωρινή λύση. Δυστυχώς δεν τα κατάφερα με τα εργαλεία που (υποτίθεται) θα παρήγαγαν .html από τα .docbook αρχεία. Πάει καιρός όμως από τότε...

Τώρα, αν κάποιος θέλει να αφιερώσει κάμποσο χρόνο και να το κάνει χειρωνακτικά, μπορεί πάρει τα αγγλικά html και τη μετάφραση (από τα ελληνικά docbook ή να του στείλω τα .po) ώστε να έχουμε html με την ελληνική μετάφραση.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: alkisg στις 24 Φεβ 2011, 06:45:51 μμ
Ωστόσο στη σελίδα www.μαρκακησ.gr/KTurtle/ (http://www.μαρκακησ.gr/KTurtle/) έχω ανεβάσει τα απαραίτητα αρχεία (kturtle.zip (http://μαρκακησ.gr/KTurtle/kturtle.zip)) και οδηγίες για χειρωνακτική εγκατάσταση σε Linux.

Εάν δεν υπάρχει περίπτωση να βγει πακέτο με το ελληνικό documentation του kturtle για το Ubuntu 10.04, τότε να δημοσιεύσουμε εμείς ένα πακέτο στο αποθετήριο για να διευκολύνουμε την κατάσταση.

Να το ονομάσω kturtle-el και απλά να βάλω τα αρχεία από το kturtle.zip (http://μαρκακησ.gr/KTurtle/kturtle.zip) και dependency στο kturtle; Χρειάζεται κάτι άλλο;
Ή να το ονομάσω kturtle και να συμπεριλάβω και τα αρχεία του πρωτότυπου kturtle, ώστε να έρθει σαν update για όλους;

Για τα Windows, ίσως ένα self-extracting .exe που να τα αποσυμπιέζει στην κατάλληλη θέση να ήταν ένα βολικό workaround.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 27 Φεβ 2011, 10:44:01 μμ
Εάν δεν υπάρχει περίπτωση να βγει πακέτο με το ελληνικό documentation του kturtle για το Ubuntu 10.04, τότε να δημοσιεύσουμε εμείς ένα πακέτο στο αποθετήριο για να διευκολύνουμε την κατάσταση.

Δε νομίζω να βγει πακέτο. Η ελληνική μετάφραση των εφαρμογών του KDE έχει επιταχυνθεί τελευταία, όμως δεν ισχύει το ίδιο με το documentation.

Να το ονομάσω kturtle-el και απλά να βάλω τα αρχεία από το kturtle.zip (http://μαρκακησ.gr/KTurtle/kturtle.zip) και dependency στο kturtle; Χρειάζεται κάτι άλλο;
Ή να το ονομάσω kturtle και να συμπεριλάβω και τα αρχεία του πρωτότυπου kturtle, ώστε να έρθει σαν update για όλους;

Ναι, αρκεί τα αρχεία του .zip να μπουν στο φάκελο /usr/share/doc/kde/HTML/el/kturtle/
Νομίζω πιο κομψό είναι να υπάρχει ένα πακέτο kturtle-el που να προσθέτει το ελληνικό documentation και απλά να έχει dependency στο kturtle. Το μειονέκτημα σε αυτή την περίπτωση, όπως λες και 'συ, είναι ότι δεν θα έρθει ως update στις υπάρχουσες ενημερώσεις αλλά θα πρέπει να το προσθέσει ο χρήστης-διαχειριστής. Το πακέτο kturtle-el μπορεί να είναι στα προτεινόμενα των sch-scripts  για το Γυμνάσιο αντί του πακέτου kturtle.

Για τα Windows, ίσως ένα self-extracting .exe που να τα αποσυμπιέζει στην κατάλληλη θέση να ήταν ένα βολικό workaround.
Το ζήτημα στα Windows είναι ποια είναι η κατάλληλη θέση. Σε παλαιότερες εκδόσεις του KDE για Windows η δομή των φακέλων ήταν παρόμοια με το linux και αρκούσε η αντιγραφή των αρχείων. Στην 4.5.x που δοκίμασα (windows πάντα) βλέπω έχουν αλλάξει οι φάκελοι. Αν κάποιος τα κατάφερε σε πρόσφατη έκδοση να πει πως...
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: alkisg στις 28 Φεβ 2011, 12:01:50 πμ
Τελικά η σωστή τους θέση είναι στο πακέτο kde-l10n-el. Απ' ότι φαίνεται στη λίστα αρχείων του πακέτου (http://packages.ubuntu.com/natty/all/kde-l10n-el/filelist), έχουν ήδη βάλει τα ελληνικά docbooks για τον konqueror εκεί, οπότε δεν πρέπει να είναι δύσκολο να συμπεριλάβουν και τα docbooks του kturtle.
Μέχρι όμως να τα συμπεριλάβουν εμείς μπορούμε να ανεβάσουμε στο αποθετήριο μια βελτιωμένη έκδοση αυτού του πακέτου που να τα περιέχει. Αυτό θα έρθει αυτόματα σαν update για όλους.

Με παραξενεύει όμως το ότι φαίνεται το Debian να έχει διαφορετικό πακέτο kde-l10n-el από το Ubuntu, θα το ψάξω με την πρώτη ευκαιρία...
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: alkisg στις 28 Φεβ 2011, 03:01:54 μμ
Έχω στείλει τη μετάφραση του documentation στην ελληνική ομάδα μετάφρασης του KDE εδώ και πολύ καιρό. Επειδή ήταν το πρώτο documentation εφαρμογής του KDE που μεταφραζόταν στα ελληνικά δεν μπορούσε να ανέβει μόνο του, οπότε το πράγμα έμεινε εκεί.

Γρηγόρη πότε και πού το έστειλες; Αν είναι σε κάποια mailing list, στείλε το ακριβές link από το archive της για να αναμοχλεύσουμε το ζήτημα.
Το πρώτο βήμα είναι να πάει upstream εδώ: http://websvn.kde.org/trunk/l10n-kde4/el/docmessages/
Να τα αντίστοιχα αγγλικά templates: http://websvn.kde.org/trunk/l10n-kde4/templates/docmessages/
Τα docbooks του kturtle είναι στον υποφάκελο kdeedu.
Και η σελίδα επικοινωνίας της ελληνικής ομάδας KDE: http://l10n.kde.org/team-infos.php?teamcode=el
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 01 Μάρ 2011, 12:48:55 πμ
θα 'ναι καμια διετία, τότε που υπεύθυνος ήταν ακόμα ο Γεωργαράς. Η μετάφραση της εφαρμογής μπήκε upstream στο KDE αλλά το documentation ατύχησε επειδή ήταν το μόνο. Αφού μπήκε του konqueror τότε μπορεί να μπει και του KTurtle. Όντως αξίζει να αναμοχλεύσουμε το ζήτημα. Θα δω αν έχει αλλαγές και το ξαναστείλω στην ομάδα.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: alexxtasi στις 01 Μάρ 2011, 09:24:35 μμ
Γρηγόρη και Άλκη...
αφήνω τις τεχνικές λεπτομέρειες σε εσάς για το upstream του documentation.
θα μπορούσα να βοηθήσω (με το δικό μου ρυθμό!!) στη δημιουργία του ελληνικού http://docs.kde.org/stable/en/kdeedu/  ??
Καταλαβαίνω πως είναι ένα online documentation ανεξάρτητο από αυτό του πακέτου έτσι?
Αν μου στείλετε απαραίτητο υλικό και οδηγίες (για νιούφιδες)  θα το ξεκινήσω... (χαλαρά όμως ε...)
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: areti1973 στις 02 Μάι 2012, 09:38:36 μμ
Καλησπέρα σας,

Είδα στο forum αυτά που έχετε αναρτήσει και αφορούν στο παιχνίδι τρίλιζα για 2 παίκτες σε Logo - kturtle.
Είμαι φοιτήτρια πληροφορικής και έχω γράψει παρόμοιο κώδικα για αυτό το παιχνίδι στην εργασία μου.
Κοίταξα και το δικό σας και θα ήθελα να σας ενημερώσω πως και η δική μου εκδοχή και η δική σας (κώδικα)
δεν τρέχουν διότι χτυπά η εντολή "αλλιώς αν".
}
αλλιώς αν $χ2==2
{
Έχετε καμιά ιδέα για το πως θα το ξεπεράσουμε αυτό? Είστε πιο έμπειρος και θα ήθελα τη βοήθεια σας εαν μπορείτε.
Ευχαριστώ πολύ.
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: areti1973 στις 04 Μάι 2012, 09:31:27 μμ
Εϊναι γραμμένο στο Logo - Κturtle και ο επεξεργαστής χτυπά συνεχώς την εντολή "αλλιώς" καθώς και το "αλλιώς αν"
Τίτλος: Απ: KTurtle : Περιβάλλον Προγραμματισμού σε Logo
Αποστολή από: markakis στις 07 Μάι 2012, 11:21:17 πμ
Εϊναι γραμμένο στο Logo - Κturtle και ο επεξεργαστής χτυπά συνεχώς την εντολή "αλλιώς" καθώς και το "αλλιώς αν"


Μήπως το λάθος δεν είναι στην σύνταξη της εντολής αλλά στο άνοιγμα/κλείσιμο των άγκιστρων? {}
Μήπως υπάρχει ένα άγκιστρο λιγότερο ή περισσότερο στον κώδικα σου; Τέτοιου είδους σφάλματα δυστυχώς δεν εντοπίζονται από τον διερμηνευτή.

Ένα απλό παράδειγμα σύνταξης της *αν* και *αλλιώς αν* είναι το παρακάτω

$χ = ερώτηση "Δώσε ένα αριθμό"
αν $χ==0 {
   τύπωσε "Μηδέν"
} αλλιώς αν $χ>0 {
   τύπωσε "Θετικός"
} αλλιώς {
   τύπωσε "Αρνητικός"
}