ΠΡΟΓΡΑΜΜΑ ΆΛΕΞ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Σ_ΟΛ , Ο , Σ , Ι ΠΡΑΓΜΑΤΙΚΕΣ: ΠΟΣ ΧΑΡΑΚΤΗΡΕΣ: ΑΠ , Π , ΑΠ1, ΠΡΟΦ! ΛΟΓΙΚΕΣ: ΕΓΚ ΑΡΧΗ ΓΡΑΨΕ ' ΕΝΑ ΠΡΟΓΡΑΜΜΑ ΕΞΑΣΚΗΣΗΣ ΤΟΥ ΜΥΑΛΟΥ , ΠΡΟΣΦΕΡΕΙ ΣΤΟΝ ΧΡΗΣΤΗ ΤΗΝ ΔΥΝΑΤΟΤΗΤΑ ΝΑ' ΓΡΑΨΕ ' ΕΞΕΤΑΣΕΙ ΤΟΝ ΕΥΑΤΟ ΤΟΥ ΣΤΙΣ ΔΙΑΦΟΡΕΣ ΠΡΑΞΕΙΣ .' ΓΡΑΨΕ ' ΑΦΙΕΡΩΜΕΝΟ ΣΤΟΝ ΑΔΕΡΦΟ ΜΟΥ!' ΓΡΑΨΕ ΓΡΑΨΕ ΓΡΑΨΕ Σ_ΟΛ <-- 0 Ο <-- 0 ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΓΡΑΨΤΕ ΤΟ ΟΝΟΜΑ ΣΑΣ' ΔΙΑΒΑΣΕ ΠΡΟΦ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ ' ΜΕ ΤΙ ΘΑ ΗΘΕΛΕΣ ΝΑ ΑΣΧΟΛΗΘΕΙΣ ???' ΓΡΑΨΕ ' 1.ΑΦΑΙΡΕΣΗ(-)' ΓΡΑΨΕ ' 2.ΔΙΑΙΡΕΣΗ(:)' ΓΡΑΨΕ ' 3.ΠΟΛΑΠΛΑΣΙΑΣΜΟ(*)' ΓΡΑΨΕ ' 4.ΠΡΟΣΘΕΣΗ(+)' ΓΡΑΨΕ ' 5.ΕΞΟΔΟΣ(ΕΧΙΤ)' ΓΡΑΨΕ ΓΡΑΨΕ ΓΡΑΨΕ_ ' ΠΟΙΑ ΕΙΝΑΙ Η ΑΠΑΝΤΗΣΗ ΣΟΥ?' ΔΙΑΒΑΣΕ ΑΠ ΑΝ ΑΠ = 'ΕΞΟΔΟΣ' Η ΑΠ = '5' ΤΟΤΕ ΓΡΑΨΕ 'ΕΠΕΛΕΞΕΣ ΕΞΟΔΟ' ΤΕΛΟΣ_ΑΝ ΕΓΚ <-- ΑΛΗΘΗΣ ΑΝ ΑΠ<>'1' ΚΑΙ ΑΠ<>'2' ΚΑΙ ΑΠ<>'3' ΚΑΙ ΑΠ<>'4' ΚΑΙ ΑΠ<>'5' ΤΟΤΕ ΕΓΚ <-- ΨΕΥΔΗΣ ΤΕΛΟΣ_ΑΝ ΟΣΟ ΑΠ <>'ΑΦΑΙΡΕΣΗ' ΚΑΙ ΑΠ<>'ΔΙΑΙΡΕΣΗ' ΚΑΙ ΑΠ<>'ΠΟΛΑΠΛΑΣΙΑΣΜΟ' ΚΑΙ ΑΠ<>'ΠΡΟΣΘΕΣΗ' ΚΑΙ ΑΠ<>'ΕΞΟΔΟΣ' ΚΑΙ ΕΓΚ = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ ' ΔΕΝ ΕΓΡΑΨΕΣ ΣΕ ΚΕΦΑΛΑΙΑ ΕΛΛΗΝΙΚΑ Ή Η ΑΠΑΝΤΗΣΗ ΣΟΥ ΔΕΝ ΑΝΗΚΕ ΣΤΙΣ ΕΠΙΛΟΓΕΣ' ΓΡΑΨΕ ' ΠΑΡΑΚΑΛΩ ΞΑΝΑΔΩΣΕ ΤΗΝ ΑΠΑΝΤΗΣΗ ΣΟΥ' ΔΙΑΒΑΣΕ ΑΠ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ ΑΠ = 'ΠΡΟΣΘΕΣΗ' Η ΑΠ = '4' ΤΟΤΕ ΓΡΑΨΕ 'ΕΠΕΛΕΞΕΣ ΠΡΟΣΘΕΣΗ , ΠΕΡΙΜΕΝΕ ΛΙΓΑΚΙ' ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 7000000 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ ΠΡΟΣΘΕΣΗ(Σ, ΠΡΟΦ) Σ_ΟΛ <-- Σ_ΟΛ + Σ Ο <-- Ο +10 ΑΛΛΙΩΣ_ΑΝ ΑΠ = 'ΠΟΛΑΠΛΑΣΙΑΣΜΟ' Η ΑΠ = '3' ΤΟΤΕ ΓΡΑΨΕ 'ΕΠΕΛΕΞΕΣ ΠΟΛΑΠΛΑΣΙΑΣΜΟ , ΠΕΡΙΜΕΝΕ ΛΙΓΑΚΙ' ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 70000000 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ ΠΟΛΑΠΛΑΣΙΑΣΜΟΣ(Σ, ΠΡΟΦ) Σ_ΟΛ <-- Σ_ΟΛ + Σ Ο <-- Ο +10 ΑΛΛΙΩΣ_ΑΝ ΑΠ = 'ΑΦΑΙΡΕΣΗ' Η ΑΠ = '1' ΤΟΤΕ ΓΡΑΨΕ 'ΕΠΕΛΕΞΕΣ ΑΦΑΙΡΕΣΗ , ΠΕΡΙΜΕΝΕ ΛΙΓΑΚΙ' ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 70000000 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ ΑΦΑΙΡΕΣΗ(Σ, ΠΡΟΦ) Σ_ΟΛ <-- Σ_ΟΛ + Σ Ο <-- Ο +10 ΑΛΛΙΩΣ_ΑΝ ΑΠ ='ΔΙΑΙΡΕΣΗ' Η ΑΠ = '2' ΤΟΤΕ ΓΡΑΨΕ 'ΕΠΕΛΕΞΕΣ ΔΙΑΙΡΕΣΗ , ΠΕΡΙΜΕΝΕ ΛΙΓΑΚΙ' ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 70000000 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ ΔΙΑΙΡΕΣΗ(Σ, ΠΡΟΦ) Σ_ΟΛ <-- Σ_ΟΛ + Σ Ο <-- Ο +10 ΤΕΛΟΣ_ΑΝ ΓΡΑΨΕ ' ΘΕΣ ΝΑ ΑΣΧΟΛΗΘΕΙΣ ΜΕ ΚΑΤΙ ΑΛΛΟ?' ΔΙΑΒΑΣΕ ΑΠ1 ΟΣΟ ΑΠ1 <> 'ΟΧΙ' ΚΑΙ ΑΠ1 <> 'ΝΑΙ' ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ ' ΔΕΝ ΕΓΡΑΨΕΣ ΣΕ ΚΕΦΑΛΑΙΑ ΕΛΛΗΝΙΚΑ Ή Η ΑΠΑΝΤΗΣΗ ΣΟΥ ΔΕΝ ΗΤΑΝ ΝΑΙ Ή ΟΧΙ' ΔΙΑΒΑΣΕ ΑΠ1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠ1 = 'ΟΧΙ' Η ΑΠ = '5' Η ΑΠ = 'ΕΞΟΔΟΣ' ΑΝ Ο <> 0 ΤΟΤΕ ΠΟΣ <-- (Σ_ΟΛ / Ο)*100 ΓΡΑΨΕ ' ΑΠΑΝΤΗΣΕΣ ΣΕ',Ο,'ΕΡΩΤΗΣΕΙΣ ΚΑΙ ΕΙΧΕΣ ΣΩΣΤΕΣ ΤΙΣ',Σ_ΟΛ ΓΡΑΨΕ ' ΠΑΙΡΝΕΙΣ',ΠΟΣ,'ΣΤΑ 100' Ι <-- 0 ΚΑΛΕΣΕ ΚΑΤ_ΣΤΑΤ(Ι, ΠΡΟΦ, Ι) ΤΕΛΟΣ_ΑΝ ΓΡΑΨΕ ' ΕΥΧΑΡΙΣΤΩ ΠΟΥ ΧΡΗΣΙΜΟΠΟΙΗΣΕΣ ΤΟ ΠΡΟΓΡΑΜΜΑ.' ΓΡΑΨΕ ' MADE BY YURIS' ΓΡΑΨΕ ' 3η ΛΥΚΕΙΟΥ - 2ο ΛΥΚΕΙΟ ΣΠΑΡΤΗΣ.' ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Άλεξ ΔΙΑΔΙΚΑΣΙΑ ΠΡΟΣΘΕΣΗ(Σ, ΠΡΟΦ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ , Υ , Γ , Ι , Κ , Σ , Α ΧΑΡΑΚΤΗΡΕΣ: ΠΡΟΦ ΑΡΧΗ Σ <-- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10 Χ <-- ΤΥΧΑΙΟΣ(1000) Υ <-- ΤΥΧΑΙΟΣ(1000) Γ <-- Χ + Υ ΓΡΑΨΕ ' ΠΟΣΟ ΚΑΝΕΙ',Χ,'ΣΥΝ',Υ,'?' ΓΡΑΨΕ_ Χ,'+',Υ,'=' Α <-- ΕΙΣ(1) ΑΝ Α=Γ ΤΟΤΕ Γράψε' ΦΙΛΑΡΑΚΟ ΜΠΡΑΒΟ ΣΟΥ' Σ <-- Σ+1 ΑΛΛΙΩΣ ΓΡΑΨΕ' ΠΡΟΣΕΧΕ ΦΙΛΑΡΑΚΟ , ΕΚΑΝΕΣ ΛΑΘΟΣ!!! ΕΧΕΙΣ ΑΛΛΗ ΜΙΑ ΕΥΚΑΙΡΙΑ' ΓΡΑΨΕ_ Χ,'+',Υ,'=' Α <-- ΕΙΣ(1) ΑΝ Α=Γ ΤΟΤΕ ΓΡΑΨΕ' ΦΙΛΑΡΑΚΟ ΜΠΡΑΒΟ ΣΟΥ' Σ <-- Σ+1 ΑΛΛΙΩΣ ΓΡΑΨΕ' ΠΡΟΣΕΧΕ ΦΙΛΑΡΑΚΟ , ΕΚΑΝΕΣ ΛΑΘΟΣ!!! Η ΣΩΣΤΗ ΑΠΑΝΤΗΣΗ ΕΙΝΑΙ',Γ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΑΝ Ι <> 10 ΤΟΤΕ ΓΡΑΨΕ' ΕΠΟΜΕΝΟ ΤΩΡΑ' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ' ΟΙ ΣΩΣΤΕΣ ΑΠΑΝΤΗΣΕΙΣ ΣΟΥ ΕΙΝΑΙ',Σ,'ΣΤΙΣ 10' Ι <-- 1 ΚΑΛΕΣΕ ΚΑΤ_ΣΤΑΤ(Ι, ΠΡΟΦ, Σ) ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ ΔΙΑΔΙΚΑΣΙΑ ΠΟΛΑΠΛΑΣΙΑΣΜΟΣ(Σ, ΠΡΟΦ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ , Υ , Γ , Ι , Κ , Σ , Α ΧΑΡΑΚΤΗΡΕΣ: ΠΡΟΦ ΑΡΧΗ Σ <-- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10 Χ <-- ΤΥΧΑΙΟΣ(10) !ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΣ ΜΕ ΜΗΔΕΝ ΕΙΝΑΙ ΠΟΛΥ ΑΠΛΟΣ! Υ <-- ΤΥΧΑΙΟΣ(100) Γ <-- Χ * Υ ΓΡΑΨΕ ' ΠΟΣΟ ΚΑΝΕΙ',Χ,'ΕΠΙ',Υ,'?' ΓΡΑΨΕ_ Χ,'*',Υ,'=' Α <-- ΕΙΣ(1) ΑΝ Α=Γ ΤΟΤΕ ΓΡΑΨΕ' ΦΙΛΑΡΑΚΟ ΜΠΡΑΒΟ ΣΟΥ' Σ <-- Σ+1 ΑΛΛΙΩΣ ΓΡΑΨΕ' ΠΡΟΣΕΧΕ ΦΙΛΑΡΑΚΟ , ΕΚΑΝΕΣ ΛΑΘΟΣ!!! ΕΧΕΙΣ ΑΛΛΗ ΜΙΑ ΕΥΚΑΙΡΙΑ' ΓΡΑΨΕ_ Χ,'*',Υ,'=' Α <-- ΕΙΣ(1) ΑΝ Α=Γ ΤΟΤΕ ΓΡΑΨΕ' ΦΙΛΑΡΑΚΟ ΜΠΡΑΒΟ ΣΟΥ' Σ <-- Σ+1 ΑΛΛΙΩΣ ΓΡΑΨΕ' ΠΡΟΣΕΧΕ ΦΙΛΑΡΑΚΟ , ΕΚΑΝΕΣ ΛΑΘΟΣ!!! Η ΣΩΣΤΗ ΑΠΑΝΤΗΣΗ ΕΙΝΑΙ',Γ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΑΝ Ι <> 10 ΤΟΤΕ ΓΡΑΨΕ' ΕΠΟΜΕΝΟ ΤΩΡΑ' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ' ΟΙ ΣΩΣΤΕΣ ΑΠΑΝΤΗΣΕΙΣ ΣΟΥ ΕΙΝΑΙ',Σ,'ΣΤΙΣ 10' Ι <-- 2 ΚΑΛΕΣΕ ΚΑΤ_ΣΤΑΤ(Ι, ΠΡΟΦ, Σ) ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ ΔΙΑΔΙΚΑΣΙΑ ΑΦΑΙΡΕΣΗ(Σ, ΠΡΟΦ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ , Υ , Γ , Ι , Κ , Σ , Α ΧΑΡΑΚΤΗΡΕΣ: ΠΡΟΦ ΑΡΧΗ Σ <-- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10 Χ <-- ΤΥΧΑΙΟΣ(1000) Υ <-- ΤΥΧΑΙΟΣ(1000) ΟΣΟ Χ - Υ < 0 ΕΠΑΝΑΛΑΒΕ Χ <-- ΤΥΧΑΙΟΣ(1000) Υ <-- ΤΥΧΑΙΟΣ(1000) ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Γ <-- Χ - Υ ΓΡΑΨΕ ' ΠΟΣΟ ΚΑΝΕΙ',Χ,'ΜΕΙΟΝ',Υ,'?' ΓΡΑΨΕ_ Χ,'-',Υ,'=' Α <-- ΕΙΣ(1) ΑΝ Α=Γ ΤΟΤΕ ΓΡΑΨΕ' ΦΙΛΑΡΑΚΟ ΜΠΡΑΒΟ ΣΟΥ' Σ <-- Σ+1 ΑΛΛΙΩΣ ΓΡΑΨΕ' ΠΡΟΣΕΧΕ ΦΙΛΑΡΑΚΟ , ΕΚΑΝΕΣ ΛΑΘΟΣ!!! ΕΧΕΙΣ ΑΛΛΗ ΜΙΑ ΕΥΚΑΙΡΙΑ' ΓΡΑΨΕ_ Χ,'-',Υ,'=' Α <-- ΕΙΣ(1) ΑΝ Α=Γ ΤΟΤΕ ΓΡΑΨΕ' ΦΙΛΑΡΑΚΟ ΜΠΡΑΒΟ ΣΟΥ' Σ <-- Σ+1 ΑΛΛΙΩΣ ΓΡΑΨΕ' ΠΡΟΣΕΧΕ ΦΙΛΑΡΑΚΟ , ΕΚΑΝΕΣ ΛΑΘΟΣ!!! Η ΣΩΣΤΗ ΑΠΑΝΤΗΣΗ ΕΙΝΑΙ',Γ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΑΝ Ι <> 10 ΤΟΤΕ ΓΡΑΨΕ' ΕΠΟΜΕΝΟ ΤΩΡΑ' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ' ΟΙ ΣΩΣΤΕΣ ΑΠΑΝΤΗΣΕΙΣ ΣΟΥ ΕΙΝΑΙ',Σ,'ΣΤΙΣ 10' Ι <-- 3 ΚΑΛΕΣΕ ΚΑΤ_ΣΤΑΤ(Ι, ΠΡΟΦ, Σ) ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΙΡΕΣΗ(Σ, ΠΡΟΦ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ , Υ , Ι , Κ , Σ , Α ΧΑΡΑΚΤΗΡΕΣ: ΠΡΟΦ ΠΡΑΓΜΑΤΙΚΕΣ: Γ ΑΡΧΗ Σ <-- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10 Χ <-- ΤΥΧΑΙΟΣ(1000) Υ <-- ΤΥΧΑΙΟΣ(500)+1!ΔΕΝ ΝΟΕΙΤΑΙ ΔΙΑΙΡΕΣΗ ΜΕ ΤΟ ΜΗΔΕΝ! ΟΣΟ Χ MOD Υ <> 0 ΕΠΑΝΑΛΑΒΕ Χ <-- ΤΥΧΑΙΟΣ(1000) Υ <-- ΤΥΧΑΙΟΣ(500)+1!ΔΕΝ ΕΝΝΟΕΙΤΑΙ ΔΙΑΙΡΕΣΗ ΜΕ ΤΟ ΜΗΔΕΝ! ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Γ <-- Χ / Υ ΓΡΑΨΕ ' ΠΟΣΟ ΚΑΝΕΙ',Χ,'ΔΙΑ',Υ,'?' ΓΡΑΨΕ_ Χ,'/',Υ,'=' Α <-- ΕΙΣ(1) ΑΝ Α=Γ ΤΟΤΕ ΓΡΑΨΕ' ΦΙΛΑΡΑΚΟ ΜΠΡΑΒΟ ΣΟΥ' Σ <-- Σ+1 ΑΛΛΙΩΣ ΓΡΑΨΕ' ΠΡΟΣΕΧΕ ΦΙΛΑΡΑΚΟ , ΕΚΑΝΕΣ ΛΑΘΟΣ!!! ΕΧΕΙΣ ΑΛΛΗ ΜΙΑ ΕΥΚΑΙΡΙΑ' ΓΡΑΨΕ_ Χ,'/',Υ,'=' Α <-- ΕΙΣ(1) ΑΝ Α=Γ ΤΟΤΕ ΓΡΑΨΕ' ΦΙΛΑΡΑΚΟ ΜΠΡΑΒΟ ΣΟΥ' Σ <-- Σ+1 ΑΛΛΙΩΣ ΓΡΑΨΕ' ΠΡΟΣΕΧΕ ΦΙΛΑΡΑΚΟ , ΕΚΑΝΕΣ ΛΑΘΟΣ!!! Η ΣΩΣΤΗ ΑΠΑΝΤΗΣΗ ΕΙΝΑΙ',Γ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΑΝ Ι <> 10 ΤΟΤΕ ΓΡΑΨΕ' ΕΠΟΜΕΝΟ ΤΩΡΑ' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ' ΟΙ ΣΩΣΤΕΣ ΑΠΑΝΤΗΣΕΙΣ ΣΟΥ ΕΙΝΑΙ',Σ,'ΣΤΙΣ 10' Ι <-- 4 ΚΑΛΕΣΕ ΚΑΤ_ΣΤΑΤ(Ι, ΠΡΟΦ, Σ) ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ ΣΥΝΑΡΤΗΣΗ ΕΙΣ(ΠΡΟΣ) :ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΕΣ: ΕΙ ΑΚΕΡΑΙΕΣ: Α, ΠΡΟΣ, Χ ΛΟΓΙΚΕΣ: ΣΦΑ ΑΡΧΗ ΠΡΟΣ <-- 1 ΣΦΑ <-- ΨΕΥΔΗΣ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ ΣΦΑ ΤΟΤΕ ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΕΙΝΑΙ ΑΚΕΡΑΙΟΣ ΑΡΙΘΜΟΣ' ΤΕΛΟΣ_ΑΝ ΣΦΑ <-- ΨΕΥΔΗΣ Χ <-- 0 ΔΙΑΒΑΣΕ ΕΙ ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ ΜΗΚΟΣ_ΧΑΡ(ΕΙ) ΑΝ ΕΙ[Α]='1' ΤΟΤΕ Χ <-- (Χ*10)+1 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='2' ΤΟΤΕ Χ <-- (Χ*10)+2 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='3' ΤΟΤΕ Χ <-- (Χ*10)+3 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='4' ΤΟΤΕ Χ <-- (Χ*10)+4 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='5' ΤΟΤΕ Χ <-- (Χ*10)+5 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='6' ΤΟΤΕ Χ <-- (Χ*10)+6 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='7' ΤΟΤΕ Χ <-- (Χ*10)+7 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='8' ΤΟΤΕ Χ <-- (Χ*10)+8 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='9' ΤΟΤΕ Χ <-- (Χ*10)+9 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='0' ΤΟΤΕ Χ <-- (Χ*10)+0 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='+' ΚΑΙ Α = 1 ΤΟΤΕ ΠΡΟΣ <-- 1 ΑΛΛΙΩΣ_ΑΝ ΕΙ[Α]='-' ΚΑΙ Α = 1 ΤΟΤΕ ΠΡΟΣ <-- -1 ΑΛΛΙΩΣ ΣΦΑ <-- ΑΛΗΘΕΣ Α <-- ΜΗΚΟΣ_ΧΑΡ(ΕΙ) ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΜΕΧΡΙΣ_ΟΤΟΥ ΣΦΑ = ΨΕΥΔΗΣ ΕΙΣ <-- Χ*ΠΡΟΣ ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ ΔΙΑΔΙΚΑΣΙΑ ΚΑΤ_ΣΤΑΤ(ΚΑΤ, ΠΡΟΦ, ΒΑΘΜ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ΚΑΤ, ΒΑΘΜ, ΕΠΙΛ, ΣΒ, ΧΣ, ΥΣ ΑΚΕΡΑΙΕΣ: ΙΣΚ ΧΑΡΑΚΤΗΡΕΣ: ΠΡΟΦ, ΚΣ ΑΡΧΕΙΑ ΑΚΕΡΑΙΩΝ: ΚΑΤΗΓ, ΒΑΘΜΟΣ ΑΡΧΕΙΑ ΧΑΡΑΚΤΗΡΩΝ: ΠΡΟΦΙΛ ΑΡΧΗ ΣΒ <-- 0 ΥΣ <-- 0 ΣΥΣΧΕΤΙΣΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ, 'KAT_STAT_PROF.txt' ΣΥΣΧΕΤΙΣΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ, 'KAT_STAT_KATHG.txt' ΣΥΣΧΕΤΙΣΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ, 'KAT_STAT_BA8MOS.txt' ΑΝ ΟΧΙ(ΥΠΑΡΧΕΙ_ΑΡΧΕΙΟ('KAT_STAT_PROF.txt')) ΤΟΤΕ ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ ΓΡΑΨΕ '1' ΑΛΛΙΩΣ ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ ΤΕΛΟΣ_ΑΝ ΑΝ ΟΧΙ(ΥΠΑΡΧΕΙ_ΑΡΧΕΙΟ('KAT_STAT_KATHG.txt')) ΤΟΤΕ ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ ΓΡΑΨΕ '2' ΑΛΛΙΩΣ ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ ΤΕΛΟΣ_ΑΝ ΑΝ ΟΧΙ(ΥΠΑΡΧΕΙ_ΑΡΧΕΙΟ('KAT_STAT_BA8MOS.txt')) ΤΟΤΕ ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ ΓΡΑΨΕ '3' ΑΛΛΙΩΣ ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ ΤΕΛΟΣ_ΑΝ ΑΝ ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΠΡΟΦΙΛ)<>ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΚΑΤΗΓ) Ή ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΚΑΤΗΓ)<>ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΒΑΘΜΟΣ) ΤΟΤΕ ΓΡΑΨΕ 'Τα αρχεία για την καταγραφή στατιστικών δεδομένων δεν έχουν ίσες γραμμές όπως θα έπρεπε.' ΓΡΑΨΕ 'Τα στατιστικά αυτής της προσπάθειας δεν θα αποθηκευτούν αν δεν αδειάσουν τα αρχεία.' ΓΡΑΨΕ 'Παρακαλώ επιλέξτε ένα από τα παρακάτω γράφοντας τον αριθμό πριν από την επιλογή.' ΓΡΑΨΕ '1.Να αδειάσουν τα αρχεία και να γίνει αποθήκευση των δεδομένων αυτής της προσπάθειας,' ΓΡΑΨΕ ' (θα διαγραφούνε τα δεδομένα των προηγούμενων προσπαθειών όλων των χρηστών).' ΓΡΑΨΕ '2.Να μην γίνει αποθήκευση των δεδομένων, και να συνεχιστεί το πρόγραμμα.' ΓΡΑΨΕ '3.Να μην γίνει αποθήκευση των δεδομένων, και να τερματιστεί το πρόγραμμα.' ΕΠΙΛ <-- ΕΙΣ(1) ΑΝ ΕΠΙΛ <> 1 ΚΑΙ ΕΠΙΛ <> 2 ΚΑΙ ΕΠΙΛ <> 3 ΤΟΤΕ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Πρέπει να επιλέξετε ένα από τα παραπάνω.' ΕΠΙΛ <-- ΕΙΣ(1) ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠΙΛ=1 Ή ΕΠΙΛ=2 Ή ΕΠΙΛ=3 ΤΕΛΟΣ_ΑΝ ΑΝ ΕΠΙΛ=1 ΤΟΤΕ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ ΑΛΛΙΩΣ_ΑΝ ΕΠΙΛ=2 ΤΟΤΕ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ ΕΞΟΔΟΣ ΑΛΛΙΩΣ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ ΚΛΕΙΣΕ_ΠΑΡΑΘΥΡΟ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΑΝ ΚΑΤ <> 0 ΤΟΤΕ ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ, ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΠΡΟΦΙΛ)+1 ΓΡΑΨΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ, ΠΡΟΦ ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ, ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΚΑΤΗΓ)+1 ΓΡΑΨΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ, ΚΑΤ ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ, ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΒΑΘΜΟΣ)+1 ΓΡΑΨΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ, ΒΑΘΜ ΓΙΑ ΙΣΚ ΑΠΟ 1 ΜΕΧΡΙ ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΠΡΟΦΙΛ) ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ, ΙΣΚ ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ, ΚΣ ΑΝ ΚΣ = ΠΡΟΦ ΤΟΤΕ ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ, ΙΣΚ ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ, ΧΣ ΑΝ ΧΣ=ΚΑΤ ΤΟΤΕ ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ, ΙΣΚ ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ, ΧΣ ΣΒ <-- ΣΒ+ΧΣ ΥΣ <-- ΥΣ + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Ο μέσος όρος σωστών που έχετε σε αυτή την κατηγορία είναι:', ΣΒ/ΥΣ, '/10' ΑΛΛΙΩΣ ΓΙΑ ΙΣΚ ΑΠΟ 1 ΜΕΧΡΙ ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΠΡΟΦΙΛ) ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ, ΙΣΚ ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ, ΚΣ ΑΝ ΚΣ = ΠΡΟΦ ΤΟΤΕ ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ, ΙΣΚ ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ, ΧΣ ΣΒ <-- ΣΒ+ΧΣ ΥΣ <-- ΥΣ + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Ο μέσος όρος σωστών που έχετε σε όλες τις κατηγορίες είναι:', (ΣΒ/ΥΣ)*10, '/100' ΤΕΛΟΣ_ΑΝ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΠΡΟΦΙΛ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΚΑΤΗΓ ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΒΑΘΜΟΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ