ΠΡΟΓΡΑΜΜΑ  Πετρα_Ψαλίδι_Χαρτί
! Τμήμα δηλώσεων
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: t
  ΧΑΡΑΚΤΗΡΕΣ: flag2
  ΑΚΕΡΑΙΕΣ: f,Π,Υ
ΑΡΧΗ
  Π <-- 0 ! Το σκορ του παίχτη
  Υ <-- 0 ! Το σκορ του Υπολογιστή
  ΓΡΑΨΕ '                                             '
  ΓΡΑΨΕ '  Ν Ι Κ Ο Σ  Γ Ε Ω Ρ Γ Ι Τ Σ Ο Π Ο Υ Λ Ο Σ   '
  ΓΡΑΨΕ '          2 0 0 7- 2 0 0 8                   '
  ΓΡΑΨΕ '  Α΄ Γ Ε Ν.  Λ Υ Κ Ε Ι Ο   Σ Ι Ν Δ Ο Υ       '
  γράψε ''
  ΓΡΑΨΕ ' Α Ν Α Π Τ Υ Ξ Η   Ε Φ Α Ρ Μ Ο Γ Ω Ν   Σ Ε   '
  ΓΡΑΨΕ '     Π Ρ Ο Γ Ρ Α Μ Α Τ Ι Σ Τ Ι Κ Ο            '
  γραψε '         Π Ε Ρ Ι Β Α Λ Λ Ο Ν                '
  ΓΡΑΨΕ ''
  ΓΡΑΨΕ 'Τώρα θα παίξουμε Πέτρα-Ψαλίδι-Χαρτί!'
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ ''
    ΓΡΑΨΕ 'Πες μου τι έβγαλες;'
    ΓΡΑΨΕ '1. Πέτρα'
    ΓΡΑΨΕ '2. Ψαλίδι'
    ΓΡΑΨΕ '3. Χαρτί'

    ΓΡΑΨΕ_ 'Γράψε τον αριθμό μπροστά από την επιλογή σου:'
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ f
      ΑΝ f<>1 και f<>2 και f<>3 ΤΟΤΕ
        ΓΡΑΨΕ 'Λάθοςτιμή.'
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ f=1 η f=2 η f=3

    ΓΡΑΨΕ 'Δώσε έναν αριθμό από το 1 μέχρι το 3.'
    ΓΡΑΨΕ_ 'Η επιλογή σου είναι:'
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ t
      ΑΝ t<>1 και t<>2 και t<>3 και f<>4 τότε
        ΓΡΑΨΕ 'Λάθος τιμή. Πρέπει από 1 εως 3!'
      ΤΕΛΟΣ_ΑΝ

    ΜΕΧΡΙΣ_ΟΤΟΥ t=1 Η t=2 η t=3

    ΑΝ f=1 ΚΑΙ t=1 ΤΟΤΕ
      ΓΡΑΨΕ 'Έχασα. Εγώ έχω ψαλίδι.'
      Π <-- Π+1
    ΑΛΛΙΩΣ_ΑΝ f=2 ΚΑΙ t=1 ΤΟΤΕ
      ΓΡΑΨΕ 'Εγώ έχω ψαλίδι. Άρα ήμαστε ισοπαλία.'
    ΑΛΛΙΩΣ_ΑΝ f=3 ΚΑΙ t=1 ΤΟΤΕ
      ΓΡΑΨΕ 'Ευτυχώς. Έβγαλα ψαλίδι. Νίκησα.'
      Υ <-- Υ+1
    ΑΛΛΙΩΣ_ΑΝ f=1 ΚΑΙ t=2 ΤΟΤΕ
      ΓΡΑΨΕ 'Έχασες. Έβγαλα χαρτί.'
      Υ <-- Υ+1
    ΑΛΛΙΩΣ_ΑΝ f=2 ΚΑΙ t=2 ΤΟΤΕ
      ΓΡΑΨΕ 'Νίκησες. Έχω χαρτί.'
      Π <-- Π+1
    ΑΛΛΙΩΣ_ΑΝ f=3 ΚΑΙ t=2 ΤΟΤΕ
      ΓΡΑΨΕ 'Έχω χαρτί. Ισοπαλία.'
    ΑΛΛΙΩΣ_ΑΝ f=1 ΚΑΙ t=3 ΤΟΤΕ
      ΓΡΑΨΕ 'Ισοπαλία. Κι εγώ πέτρα έχω!'
    ΑΛΛΙΩΣ_ΑΝ f=2 ΚΑΙ t=3 ΤΟΤΕ
      ΓΡΑΨΕ 'Νίκησα. Εγώ εχώ πέτρα.'
      Υ <-- Υ+1
    ΑΛΛΙΩΣ_ΑΝ f=3 ΚΑΙ t=3 ΤΟΤΕ
      ΓΡΑΨΕ 'Νίκη για εσένα. Πέτρα έχω.'
      Π <-- Π+1
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'Το ΣΚΟΡ είναι ΠΑΙΧΤΗΣ-Η/Υ:',Π,'-',Υ
    ΑΝ Π>Υ ΤΟΤΕ
      ΓΡΑΨΕ 'ΜΠΡΑΒΟ Νικάς!!!'
    ΑΛΛΙΩΣ_ΑΝ Π=Υ ΤΟΤΕ
      ΓΡΑΨΕ 'Είμαστε ΙΣΟΠΑΛΙΑ!!!'
    ΑΛΛΙΩΣ_ΑΝ Π<Υ ΤΟΤΕ
      ΓΡΑΨΕ 'ΧΑΝΕΙΣ! προσπάθησε περρισότερο!!'

    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ ''
    ΓΡΑΨΕ 'Θέλεις κι άλλη παρτίδα;'
    ΓΡΑΨΕ '1. ΝΑΙ'
    ΓΡΑΨΕ '2. ΟΧΙ'
    ΓΡΑΨΕ_ 'Γράψε τον αριθμό της επιλογής σου:'
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

      ΔΙΑΒΑΣΕ flag2
      ΑΝ (flag2<>'1') Και (flag2<>'2')  ΤΟΤΕ
        ΓΡΑΨΕ 'Λάθος τιμή πρέπει 1 ή 2'
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ (flag2='1') Ή (flag2='2')
  ΜΕΧΡΙΣ_ΟΤΟΥ (flag2='2')

  ΑΝ (flag2='2') Ή (flag2='2') ΤΟΤΕ
    ΓΡΑΨΕ ''
    ΓΡΑΨΕ '       Ελπίζω να διασκέδασες!!!        '
    ΓΡΑΨΕ '         ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ            '
  ΤΕΛΟΣ_ΑΝ

  ΓΡΑΨΕ '|','*******************************','|'
  ΓΡΑΨΕ '|','                               ','|'
  ΓΡΑΨΕ '|','                               ','|'
  ΓΡΑΨΕ '|','-------------------------------','|'
  ΓΡΑΨΕ '|','  Made By "ProskoposEthnoy$"   ','|'
  ΓΡΑΨΕ '|','Email:proskoposethnoys@yahoo.gr','|'
  ΓΡΑΨΕ '|','-------------------------------','|'


ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ