Τώρα είναι Παρ 29 Μαρ 2024 05:22 pm

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




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: SUPER DEAL V2
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 18 Ιαν 2007 03:52 pm 
Χωρίς σύνδεση

Εγγραφή: Κυρ 24 Δεκ 2006 05:34 pm
Δημοσιεύσεις: 10
Τοποθεσία: Πειραιας
Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ DEAL
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ:Κ[26],ΤΕΜΠ,ΠΕΒΑ,ΣΥ,ΠΡ,ΔΕΠ,ΜΑΧΠΡ,ΣΥΝΤ,,ΛΑΓ
  ΑΚΕΡΑΙΕΣ: X,Ι,ΕΠ,Ο,ΒΑ,Λ,ΤΕΛΚΟΥ,Π,Ξ
  ΧΑΡΑΚΤΗΡΕΣ: ΔΕ


ΑΡΧΗ
  Κ[1] <-- 0.1
  Κ[2] <-- 0.2
  Κ[3] <-- 1
  Κ[4] <-- 5
  Κ[5] <-- 10
  Κ[6] <-- 50
  Κ[7] <-- 100
  Κ[8] <-- 200
  Κ[9] <--  500
  Κ[10] <--  1000
  Κ[11] <--  2000
  Κ[12] <--  5000
  Κ[13] <--  10000
  Κ[14] <--  20000
  Κ[15] <--  30000
  Κ[16] <--  50000
  Κ[17] <--  75000
  Κ[18] <--  100000
  Κ[19] <--  200000
  Κ[20] <--  300000
  Κ[21] <--   500000
  Κ[22] <--   750
  Κ[23] <--   20
  Κ[24] <--   25000
  Κ[25] <--   300
  Κ[26] <--   3000
 !ΑΝΑΚΑΤΩΜΑ ΤΩΝ ΤΙΜΩΝ
  ΓΡΑΨΕ '!!!!!!!!!!!!!!!!!!!!!!!ΠΡΟΣΟΧΗ!!!!!!!!!!!!!!!!!!!!!!!'
  ΓΡΑΨΕ '!!!ΒΑΛΤΕ ΤΟ ΠΛΗΚΤΡΟΛΟΓΙΟ ΣΤΑ ΕΛΛΗΝΙΚΑ ΚΑΙ ΚΕΦΑΛΑΙΑ!!!'
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    Χ <-- ΤΥΧΑΙΟΣ(9999999)
  ΜΕΧΡΙΣ_ΟΤΟΥ  Χ>100
  Ι <-- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΜΠ <-- Κ[1]
    Κ[1] <-- Κ[25]
    Κ[25] <-- Κ[2]
    Κ[2] <-- Κ[9]
    Κ[9] <-- Κ[12]
    Κ[12] <-- Κ[16]
    Κ[16] <-- Κ[14]
    Κ[14] <-- Κ[3]
    Κ[3] <-- Κ[7]
    Κ[7] <-- Κ[22]
    Κ[22] <-- Κ[19]
    Κ[19] <-- Κ[11]
    Κ[11] <-- Κ[6]
    Κ[6] <-- Κ[8]
    Κ[8] <-- Κ[24]
    Κ[24] <-- Κ[17]
    Κ[17] <-- Κ[20]
    Κ[20] <-- Κ[13]
    Κ[13] <-- Κ[5]
    Κ[5] <-- Κ[23]
    Κ[23] <-- Κ[18]
    Κ[18] <-- Κ[4]
    Κ[4] <-- Κ[10]                  
    Κ[10] <-- Κ[15]
    Κ[15] <-- Κ[21]
    Κ[21] <-- Κ[26]
    Κ[26] <-- ΤΕΜΠ
    Ι <-- Ι + 1
  ΜΕΧΡΙΣ_ΟΤΟΥ Ι=Χ
 !ΑΡΧΗ ΤΟΥ ΠΑΙΧΝΙΔΙΟΥ
  !ΕΠΙΛΟΓΗ ΚΟΥΤΙΟΥ
  ΓΡΑΨΕ 'ΠΟΙΑ ΒΑΛΙΤΣΑ ΘΕΣ; (ΓΡΑΨΕ ΕΝΑ ΑΡΙΘΜΟ ΑΠΟ ΤΟ 1 ΕΩΣ ΤΟ 26)'
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ ΒΑ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΒΑ>0 ΚΑΙ ΒΑ<=26
  ΠΕΒΑ <-- Κ[ΒΑ]
  Κ[ΒΑ] <-- 0
  !ΠΑΙΧΝΙΔΙ
  ΔΕ <-- 'Ο'
  ΓΡΑΨΕ 'ΑΣ ΑΡΧΙΣΟΥΜΕ ΛΟΙΠΟΝ'
  ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 9
    ΑΝ Λ>1 ΤΟΤΕ
      ΓΡΑΨΕ'ΥΠΕΝΘΙΜΙΖΩ ΟΤΙ ΕΧΟΥΝ ΜΕΙΝΕΙ ΟΙ ΒΑΛΙΤΣΕΣ:'
      ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 13
        Π <-- Ο+13
        ΑΝ Κ[Ο]>0 ΚΑΙ Κ[Π]>0 ΤΟΤΕ
          ΑΝ Ο < 10 ΤΟΤΕ
            ΓΡΑΨΕ Ο,' |'
          ΑΛΛΙΩΣ
            ΓΡΑΨΕ Ο,'|'
          ΤΕΛΟΣ_ΑΝ
        ΑΛΛΙΩΣ_ΑΝ Κ[Π]>0 ΚΑΙ Κ[Ο]=0 ΤΟΤΕ
          ΓΡΑΨΕ '   |', Π
        ΑΛΛΙΩΣ_ΑΝ Κ[Ο]>Ο ΚΑΙ Κ[Π]=0 ΤΟΤΕ
          ΑΝ Ο <10 ΤΟΤΕ
            ΓΡΑΨΕ Ο,' |'
          ΑΛΛΙΩΣ
            ΓΡΑΨΕ  Ο,'|'
          ΤΕΛΟΣ_ΑΝ
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ
    ΑΝ Λ = 1 ΤΟΤΕ
      ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 6 ΒΑΛΙΤΣΕΣ'
      Χ <-- 6
      ΣΥΝΤ <-- 500
    ΑΛΛΙΩΣ_ΑΝ Λ=2 ΤΟΤΕ
      ΓΡΑΨΕ ' ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 5 ΒΑΛΙΤΣΕΣ'
      Χ <-- 5
      ΣΥΝΤ <-- 70
    ΑΛΛΙΩΣ_ΑΝ Λ=3 ΤΟΤΕ
      ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 4 ΒΑΛΙΤΣΕΣ'
      Χ <-- 4
      ΣΥΝΤ <-- 35
    ΑΛΛΙΩΣ_ΑΝ Λ=4 ΤΟΤΕ
      ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 3 ΒΑΛΙΤΣΕΣ'
      Χ <-- 3
      ΣΥΝΤ <-- 25
    ΑΛΛΙΩΣ_ΑΝ Λ=5 ΤΟΤΕ
      ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 2 ΒΑΛΙΤΣΕΣ'
      Χ <-- 2
      ΣΥΝΤ <-- 15
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 1 ΒΑΛΙΤΣΑ'
      Χ <-- 1
      ΑΝ Λ=6 ΤΟΤΕ
        ΣΥΝΤ <-- 9
      ΑΛΛΙΩΣ_ΑΝ Λ=7 ΤΟΤΕ
        ΣΥΝΤ <-- 6
      ΑΛΛΙΩΣ_ΑΝ Λ=8 ΤΟΤΕ
        ΣΥΝΤ <-- 3.6
      ΑΛΛΙΩΣ
        ΣΥΝΤ <-- 3.1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
    Ι <-- 0
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'ΔΙΑΛΕΞΕ ΜΙΑ ΒΑΛΙΤΣΑ '
      ΔΙΑΒΑΣΕ ΕΠ
      ΑΝ ΕΠ>0 ΚΑΙ ΕΠ<=26 ΚΑΙ Κ[ΕΠ]<>0 ΤΟΤΕ
        ΓΡΑΨΕ
        ΓΡΑΨΕ 'Η ΒΑΛΙΤΣΑ ',ΕΠ,' ΠΕΡΙΕΧΕΙ '[ΕΠ], 'ΕΥΡΩ'
        ΓΡΑΨΕ '__________________'
        ΓΡΑΨΕ '|     -----      |'
        ΓΡΑΨΕ '      ',ΕΠ
        ΓΡΑΨΕ '|     -----      |'
        ΓΡΑΨΕ '|                |'
        ΓΡΑΨΕ '|                |'
        ΓΡΑΨΕ ' '[ΕΠ],'ΕΥΡΩ'
        ΓΡΑΨΕ '|                |'
        ΓΡΑΨΕ '|________________|'
        ΑΝ Κ[ΕΠ]>=75000 ΤΟΤΕ
          ΓΡΑΨΕ 'ΤΡΑΠΕΖΙΤΗΣ:  ΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑ'
        ΤΕΛΟΣ_ΑΝ
        Κ[ΕΠ] <-- 0
        Ι <-- Ι+1
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ 'ΛΑΘΟΣ ΑΡΙΘΜΟΣ Ή ΗΔΗ ΕΠΙΛΕΓΜΕΝΗ ΒΑΛΙΤΣΑ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ Ι/2=1  Ή Ι/2 =2 Ή Ι/2 = 3  ΤΟΤΕ
        ΓΡΑΨΕ'ΥΠΕΝΘΥΜΙΖΩ ΟΤΙ ΕΧΟΥΝ ΜΕΙΝΕΙ ΟΙ ΒΑΛΙΤΣΕΣ:'
        ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 13
          Π <-- Ο+13
          ΑΝ Κ[Ο]>0 ΚΑΙ Κ[Π]>0 ΤΟΤΕ
            ΑΝ Ο < 10 ΤΟΤΕ
              ΓΡΑΨΕ Ο,' |'
            ΑΛΛΙΩΣ
              ΓΡΑΨΕ Ο,'|'
            ΤΕΛΟΣ_ΑΝ
          ΑΛΛΙΩΣ_ΑΝ Κ[Π]>0 ΚΑΙ Κ[Ο]=0 ΤΟΤΕ
            ΓΡΑΨΕ '   |', Π
          ΑΛΛΙΩΣ_ΑΝ Κ[Ο]>Ο ΚΑΙ Κ[Π]=0 ΤΟΤΕ
            ΑΝ Ο <10 ΤΟΤΕ
              ΓΡΑΨΕ Ο,' |'
            ΑΛΛΙΩΣ
              ΓΡΑΨΕ  Ο,'|'
            ΤΕΛΟΣ_ΑΝ
          ΤΕΛΟΣ_ΑΝ
        ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ Ι=Χ

  !ΤΡΑΠΕΖΙΤΗΣ
    ΣΥ <-- Ο
    ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 26
      ΣΥ <-- ΣΥ + Κ[Ο]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΝΤΡΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ, ΝΤΡΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ'
    ΠΡ <--  (ΣΥ+ΠΕΒΑ)/ΣΥΝΤ
    ΠΡ <-- ΣΤΡΟΓΓ(ΠΡ)
    ΓΡΑΨΕ' Ο ΤΡΑΠΕΖΙΤΗΣ ΠΡΟΣΦΕΡΕΙ ', ΠΡ, 'ΕΥΡΩ ΓΙΑ ΝΑ ΠΑΡΕΙ ΤΗ ΒΑΛΙΤΣΑ ΣΟΥ'
    ΑΝ  Λ=1 ΤΟΤΕ
      ΜΑΧΠΡ <-- ΠΡ
    ΑΛΛΙΩΣ
      ΑΝ ΠΡ>ΜΑΧΠΡ ΤΟΤΕ
        ΜΑΧΠΡ <-- ΠΡ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
 !ΑΠΟΔΟΧΗ ΠΡΟΣΦΟΡΑΣ Η ΟΧΙ
    ΑΝ ΔΕ='Ο' ΤΟΤΕ
      ΓΡΑΨΕ 'ΔΕΧΕΣΑΙ ΤΗΝ ΠΡΟΣΦΟΡΑ;(ΑΠΑΝΤΑ ΜΕ Ν ΓΙΑ ΝΑΙ ΚΑΙ Ο ΓΙΑ ΟΧΙ)'
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
        Ι <-- 0
        ΔΙΑΒΑΣΕ ΔΕ
        ΑΝ ΔΕ='Ο' ΤΟΤΕ
          Ι <-- 1
        ΑΛΛΙΩΣ_ΑΝ ΔΕ= 'Ν'ΤΟΤΕ
          ΓΡΑΨΕ 'Ο ΤΡΑΠΕΖΙΤΗΣ ΑΓΟΡΑΣΕ ΤΗ ΒΑΛΙΤΣΑ ΣΟΥ ΓΙΑ',ΠΡ, 'ΕΥΡΩ'
          ΓΡΑΨΕ 'ΑΣ ΔΟΥΜΕ ΤΙ ΘΑ ΚΕΡΔΙΖΕΣ ΑΝ ΣΥΝΕΧΙΖΕΣ'
          ΔΕΠ <-- ΠΡ
          Ι <-- 1
        ΤΕΛΟΣ_ΑΝ
      ΜΕΧΡΙΣ_ΟΤΟΥ Ι=1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 26
    ΑΝ Κ[Ο]>0 ΤΟΤΕ
      ΤΕΛΚΟΥ <-- Ο
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'ΕΧΟΥ ΜΕΙΝΕΙ ΔΥΟ ΚΟΥΤΙΑ'
  ΓΡΑΨΕ 'ΤΟ ΔΙΚΟ ΣΟΥ ΚΑΙ ΤΟ ΚΟΥΤΙ ', ΤΕΛΚΟΥ
  ΓΡΑΨΕ 'ΑΣ ΑΝΟΙΞΟΥΜΕ ΛΟΙΠΟΝ ΤΑ ΚΟΥΤΙΑ'
  Χ <-- 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 9999995
    ΑΝ Χ>=0 ΤΟΤΕ
      ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
  Χ <-- 0
  ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 64
    ΑΝ Χ=0 ΤΟΤΕ
      ΓΡΑΨΕ'             ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'             ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 1
    ΑΛΛΙΩΣ_ΑΝ Χ=1 ΤΟΤΕ
      ΓΡΑΨΕ'            Ο ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            Ο ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 2
    ΑΛΛΙΩΣ_ΑΝ Χ=2 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 3
    ΑΛΛΙΩΣ_ΑΝ Χ=3 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 4
    ΑΛΛΙΩΣ_ΑΝ Χ=4 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 5
    ΑΛΛΙΩΣ_ΑΝ Χ=5 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 6
    ΑΛΛΙΩΣ_ΑΝ Χ=6 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 7
    ΑΛΛΙΩΣ_ΑΝ Χ=7 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 8
    ΑΛΛΙΩΣ_ΑΝ Χ=8 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 9
    ΑΛΛΙΩΣ_ΑΝ Χ=9 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 10
    ΑΛΛΙΩΣ_ΑΝ Χ=10 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 11
    ΑΛΛΙΩΣ_ΑΝ Χ=11 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 12
    ΑΛΛΙΩΣ_ΑΝ Χ=12 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 13
    ΑΛΛΙΩΣ_ΑΝ Χ=13 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 14
    ΑΛΛΙΩΣ_ΑΝ Χ=14 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟ'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟ'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 15
    ΑΛΛΙΩΣ_ΑΝ Χ=15 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ Ο'
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ Ο'
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 16
    ΑΛΛΙΩΣ_ΑΝ Χ=16 ΤΟΤΕ
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ '
      ΓΡΑΨΕ'            ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ '
      ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
        ΑΝ Χ>=0 ΤΟΤΕ
          ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      Χ <-- 0
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
  ΓΡΑΨΕ 'ΤΟ ΔΙΚΟ ΣΟΥ ΚΟΥΤΙ ΠΕΡΙΕΧΕΙ ',ΠΕΒΑ,'ΕΥΡΩ'
  ΓΡΑΨΕ 'ΕΝΩ ΤΟ ΚΟΥΤΙ ', ΤΕΛΚΟΥ ,' ΠΕΡΙΕΧΕΙ' , Κ[ΤΕΛΚΟΥ] , 'ΕΥΡΩ'
  ΑΝ ΔΕ= 'Ο' ΤΟΤΕ
    ΑΝ ΜΑΧΠΡ>ΠΕΒΑ ΤΟΤΕ
      ΓΡΑΨΕ' ΔΕΝ ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
      ΓΡΑΨΕ 'ΘΑ ΜΠΟΡΟΥΣΕΣ ΝΑ ΕΙΧΕΣ ΠΑΡΕΙ', ΜΑΧΠΡ, 'ΕΥΡΩ ΑΠΟ ΤΟΝ ΤΡΑΠΕΖΙΤΗ'
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ  'ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
    ΤΕΛΟΣ_ΑΝ
  ΑΛΛΙΩΣ_ΑΝ ΔΕ= 'Ν' ΤΟΤΕ
    ΓΡΑΨΕ 'ΚΕΡΔΙΣΕΣ' ,ΔΕΠ ,'ΕΥΡΩ'
    ΑΝ ΔΕΠ < ΜΑΧΠΡ Ή ΔΕΠ< ΠΕΒΑ ΤΟΤΕ
      ΑΝ ΜΑΧΠΡ>ΠΕΒΑ ΤΟΤΕ
        ΓΡΑΨΕ 'ΔΕΝ ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
        ΓΡΑΨΕ 'ΘΑ ΜΟΡΟΥΣΕΣ ΝΑ  ΕΙΧΕΣ ΠΑΡΕΙ ΤΑ', ΜΑΧΠΡ, ' ΕΥΡΩ ΤΟΥ ΤΡΑΠΕΖΙΤΗ'
      ΑΛΛΙΩΣ_ΑΝ ΠΕΒΑ>ΜΑΧΠΡ ΤΟΤΕ
        ΓΡΑΨΕ 'ΔΕΝ ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
        ΓΡΑΨΕ 'ΘΑ ΜΠΡΟΥΣΕΣ ΝΑ ΕΙΧΕΣ ΠΑΡΕΙ ΤΑ ', ΠΕΒΑ,' ΕΥΡΩ ΠΟΥ ΠΕΡΙΕΙΧΕ ΤΟ ΚΟΥΤΙ ΣΟΥ'
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
      ΓΡΑΨΕ'ΚΕΡΔΙΣΕΣ' , ΔΕΠ , ' ΕΥΡΩ'
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ'     ======================================'
  ΓΡΑΨΕ'  ============================================='
  ΓΡΑΨΕ' ====           ΑΠΟ TON  BULUBA89            ===='
  ΓΡΑΨΕ'  ============================================='
  ΓΡΑΨΕ'    ======================================'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
 


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

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


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

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


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

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