Τώρα είναι Παρ 26 Απρ 2024 04:23 pm

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 3 Δημοσιεύσεις ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: master_mind
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 12 Φεβ 2004 12:46 am 
Χωρίς σύνδεση

Εγγραφή: Τετ 11 Φεβ 2004 11:59 pm
Δημοσιεύσεις: 1
Τοποθεσία: Τσοτύλι
Syntax: [ Download ] [ Hide ]
!-------------------------------------------------------------
!ΤΟ ΠΑΡΑΚΑΤΩ ΠΡΟΓΡΑΜΜΑ ΕΙΝΑΙ Η ΕΚΔΟΣΗ ΤΟΥ ΠΑΙΧΝΙΔΙΟΥ
!MASTER MIND ΣΕ ΓΛΩΣΣΟΜΑΘΕΙΑ. ΠΑΙΖΕΤΑΙ ΑΠΟ ΔΥΟ ΠΑΙΚΤΕΣ
!ΟΠΟΥ Ο ΠΡΩΤΟΣ ΠΛΗΚΤΡΟΛΟΓΕΙ ΤΡΕΙΣ ΔΙΑΦΟΡΕΤΙΚΟΥΣ ΑΚΕΡΑΙΟΥΣ
!ΑΡΙΘΜΟΥΣ ΑΠΟ ΤΟ 1 ΜΕΧΡΙ ΚΑΙ ΤΟ 10, ΚΑΙ Ο ΔΕΥΤΕΡΟΣ ΣΕ 10
!ΠΡΟΣΠΑΘΕΙΕΣ ΠΡΟΣΠΑΘΕΙ ΝΑ ΒΡΕΙ ΤΟΥΣ ΑΡΙΘΜΟΥΣ ΠΟΥ    
!ΠΛΗΚΤΡΟΛΟΓΗΣΕ Ο ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ.
!-------------------------------------------------------------


ΠΡΟΓΡΑΜΜΑ master_mind
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Α1,Α2,Α3,Β1,Β2,Β3,Ζ
ΑΡΧΗ
  ΓΡΑΨΕ '    Α Ν Δ Ρ Ε Α Σ - Χ Ρ Η Σ Τ Ο Σ  Π Λ Ι Α Τ Σ Ι Δ Η Σ     '
  ΓΡΑΨΕ '                2 0 0 3 - 2 0 0 4                          '
  ΓΡΑΨΕ '        Ά  Λ Υ Κ Ε Ι Ο Υ - Τ Σ Ο Τ Υ Λ Ι Ο Υ               '
  ΓΡΑΨΕ '                                                           '
  ΓΡΑΨΕ 'ΔΩΣΤΕ 3 (ΔΙΑΦΟΡΕΤΙΚΟΥΣ) "ΑΚΕΡΑΙΟΥΣ" ΑΡΙΘΜΟΥΣ (ΑΛΛΙΩΣ ΤΕΡΜΑΤΙΖΕΤΑΙ ΤΟ ΠΑΙΧΝΙΔΙ)'
  ΓΡΑΨΕ 'ΑΠΟ ΤΟ "1" ΜΕΧΡΙ ΤΟ "10"                    '
  ΓΡΑΨΕ '                                                           '
  ΓΡΑΨΕ '                                                           '
  ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΝ 1ο ΑΡΙΘΜΟ'
  ΔΙΑΒΑΣΕ Α1
  ΓΡΑΨΕ '                                                           '
  ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΝ 2ο ΑΡΙΘΜΟ'
  ΔΙΑΒΑΣΕ Α2
  ΓΡΑΨΕ '                                                           '
  ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΝ 3ο ΑΡΙΘΜΟ'
  ΔΙΑΒΑΣΕ Α3
  ΑΝ (Α1<1) Η (Α1>10) Η (Α2<1) Η (Α2>10) Η (Α3<1) Η (Α3>10) ΤΟΤΕ
    ΓΡΑΨΕ 'ΜΗ ΑΠΟΔΕΚΤΟΙ ΑΡΙΘΜΟΙ'
    ΓΡΑΨΕ 'Η ΕΦΑΡΜΟΓΗ ΘΑ ΤΕΡΜΑΤΙΣΤΕΙ!'
  ΤΕΛΟΣ_ΑΝ
  ΑΝ (Α1=Α2) Η (Α1=Α3) Η (Α2=Α3) ΤΟΤΕ
    ΓΡΑΨΕ 'ΜΗ ΑΠΟΔΕΚΤΟΙ ΑΡΙΘΜΟΙ'
    ΓΡΑΨΕ 'Η ΕΦΑΡΜΟΓΗ ΘΑ ΤΕΡΜΑΤΙΣΤΕΙ!'
    ΤΕΡΜΑΤΙΣΜΟΣ
  ΤΕΛΟΣ_ΑΝ
  ΑΝ (Α1<1) Η (Α1>10) Η (Α2<1) Η (Α2>10) Η (Α3<1) Η (Α3>10) ΤΟΤΕ
    ΤΕΡΜΑΤΙΣΜΟΣ
  ΤΕΛΟΣ_ΑΝ
  ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
  ΟΣΟ (Α1<>Β1) ΚΑΙ (Α2<>Β2) ΚΑΙ (Α3<>Β3) ΕΠΑΝΑΛΑΒΕ
    ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ 10
      ΓΡΑΨΕ 'ΔΩΣΕ 3 ΑΡΙΘΜΟΥΣ ΓΙΑ ΝΑ ΒΡΕΙΣ ΤΟΥΣ ΑΡΙΘΜΟΥΣ ΤΟΥ ΑΝΤΙΠΑΛΟΥ ΣΟΥ'
      ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΝ 1ο ΑΡΙΘΜΟ'
      ΔΙΑΒΑΣΕ Β1
      ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΝ 2ο ΑΡΙΘΜΟ'
      ΔΙΑΒΑΣΕ Β2
      ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΝ 3ο ΑΡΙΘΜΟ'
      ΔΙΑΒΑΣΕ Β3
      ΑΝ (Α1=Β2)ΤΟΤΕ
        ΓΡΑΨΕ 'ΈΧΕΙΣ ΕΝΑ ΣΩΣΤΟ ΑΡΙΘΜΟ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ (Α1=Β3) ΤΟΤΕ
        ΓΡΑΨΕ 'ΈΧΕΙΣ ΕΝΑ ΣΩΣΤΟ ΑΡΙΘΜΟ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ (Α2=Β1) ΤΟΤΕ
        ΓΡΑΨΕ 'ΈΧΕΙΣ ΕΝΑ ΣΩΣΤΟ ΑΡΙΘΜΟ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ (Α2=Β3) ΤΟΤΕ
        ΓΡΑΨΕ 'ΈΧΕΙΣ ΕΝΑ ΣΩΣΤΟ ΑΡΙΘΜΟ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ (Α3=Β1)ΤΟΤΕ
        ΓΡΑΨΕ 'ΈΧΕΙΣ ΕΝΑ ΣΩΣΤΟ ΑΡΙΘΜΟ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ (Α3=Β2) ΤΟΤΕ
        ΓΡΑΨΕ 'ΈΧΕΙΣ ΕΝΑ ΣΩΣΤΟ ΑΡΙΘΜΟ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ Α1= Β1 ΤΟΤΕ
        ΓΡΑΨΕ 'ΕΧΕΙΣ ΕΝΑ ΣΩΣΤΟ ΑΡΙΘΜΟ ΣΤΗ ΣΩΣΤΗ ΘΕΣΗ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ Α2=Β2 ΤΟΤΕ
        ΓΡΑΨΕ 'ΕΧΕΙΣ ΕΝΑ ΣΩΣΤΟ ΑΡΙΘΜΟ ΣΤΗ ΣΩΣΤΗ ΘΕΣΗ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ Α3=Β3 ΤΟΤΕ
        ΓΡΑΨΕ 'ΕΧΕΙΣ ΕΝΑ ΣΩΣΤΟ ΑΡΙΘΜΟ ΣΤΗ ΣΩΣΤΗ ΘΕΣΗ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ (Α1=Β1) ΚΑΙ (Α2=Β2) ΚΑΙ (Α3=Β3) ΤΟΤΕ
        ΓΡΑΨΕ ' - - - - -Σ Υ Γ Χ Α Ρ Η Τ Η Ρ Ι Α ! ! ! ! ! ! ! !- - - - - '
        ΕΞΟΔΟΣ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ Ζ=10 ΤΟΤΕ
      ΓΡΑΨΕ 'ΔYΣΤΥΧΩΣ_ΧΑΣΑΤΕ :('
    ΤΕΛΟΣ_ΑΝ
    ΤΕΡΜΑΤΙΣΜΟΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ master_mind

 


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
 Θέμα δημοσίευσης:
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 02 Δεκ 2004 06:06 pm 
Χωρίς σύνδεση

Εγγραφή: Πέμ 02 Δεκ 2004 05:29 pm
Δημοσιεύσεις: 1
Ωραίος, αλλά παίρνει μερικές αλλαγές. Μόλις το φτιάξω θα σου το στείλω η κάτι...


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
 Θέμα δημοσίευσης:
ΔημοσίευσηΔημοσιεύτηκε: Παρ 04 Μαρ 2005 04:24 pm 
Χωρίς σύνδεση

Εγγραφή: Πέμ 01 Μάιος 2003 10:25 pm
Δημοσιεύσεις: 38
Τοποθεσία: Καλλιθέα Αττικής
Υπάρχει και άλλο master mind εδώ:
http://spinet.gr/glossomatheia/programs ... hp?p=75#75
(περιλαμβάνει και γεννήτρια τυχαίων αριθμών)

_________________
Γλώσσα προγραμματισμού M2000


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 3 Δημοσιεύσεις ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 19 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές: