ΠΡΟΓΡΑΜΜΑ ΚΑΤΑΝΑΛΩΤΗΣ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Π, ΕΠΙΛΟΓΗ, ΣΥΝΕΧΕΙΑ ΠΡΑΓΜΑΤΙΚΕΣ: ΠΟΣΟ, ΤΙΜΗ, ΣΥΝΟΛΟ_ΑΓΟΡΩΝ ΧΑΡΑΚΤΗΡΕΣ: ΑΠ ΛΟΓΙΚΕΣ: ΤΕΛΟΣ ΑΡΧΗ ΕΠΙΛΟΓΗ ← 1 ΣΥΝΟΛΟ_ΑΓΟΡΩΝ ← 0 ΠΟΣΟ ← 0 Π ← 0 ΓΡΑΨΕ 'ΚΑΛΩΣ ΟΡΙΣΑΤΕ ΣΤΟ ΚΑΤΑΣΤΗΜΑ ΜΑΣ' ΓΡΑΨΕ 'ΘΕΛΕΤΕ ΝΑ ΞΕΚΙΝΗΣΕΤΕ ΤΙΣ ΑΓΟΡΕΣ ΣΑΣ (ΝΑΙ Ή ΟΧΙ);' ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΔΙΑΒΑΣΕ ΑΠ ΜΕΧΡΙΣ_ΟΤΟΥ (ΑΠ = "ΝΑΙ") Η (ΑΠ = "ΟΧΙ") ΑΝ (ΑΠ = "ΝΑΙ") ΤΟΤΕ ΓΡΑΨΕ "ΠΑΡΑΚΑΛΩ ΔΩΣΤΕ ΜΑΣ ΤΟ ΧΡΗΜΑΤΙΚΟ ΠΟΣΟ: " ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΔΙΑΒΑΣΕ ΠΟΣΟ ΜΕΧΡΙΣ_ΟΤΟΥ (ΠΟΣΟ > 0) ΓΡΑΨΕ "ΤΟ ΔΙΑΘΕΣΙΜΟ ΠΟΣΟ ΕΙΝΑΙ:", ΠΟΣΟ, "€" Π ← 1 !ΠΛΗΘΟΣ ΠΡΟΪΟΝΤΩΝ ΓΡΑΨΕ "ΔΩΣΕ ΤΗΝ ΤΙΜΗ ΤΟΥ ", Π, "ου ΠΡΟΪΟΝΤΟΣ" ΔΙΑΒΑΣΕ ΤΙΜΗ ΣΥΝΟΛΟ_ΑΓΟΡΩΝ ← ΤΙΜΗ ΕΠΙΛΟΓΗ ← 1 ΤΕΛΟΣ ← ΨΕΥΔΗΣ ΟΣΟ (ΕΠΙΛΟΓΗ = 1) ΚΑΙ (ΤΕΛΟΣ = ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ ΑΝ (ΣΥΝΟΛΟ_ΑΓΟΡΩΝ > ΠΟΣΟ) ΚΑΙ (ΕΠΙΛΟΓΗ = 1) ΤΟΤΕ ΑΝ (ΣΥΝΟΛΟ_ΑΓΟΡΩΝ > ΠΟΣΟ) ΤΟΤΕ ΣΥΝΟΛΟ_ΑΓΟΡΩΝ ← ΣΥΝΟΛΟ_ΑΓΟΡΩΝ - ΤΙΜΗ Π ← Π - 1 ΓΡΑΨΕ "ΕΧΕΤΕ ΔΩΣΕΙ ΤΙΜΗ ΜΕΓΑΛΥΤΕΡΗ ΑΠΟ ΤΟ ΔΙΑΘΕΣΙΜΟ ΠΟΣΟ" ΓΡΑΨΕ "ΔΙΑΘΕΣΙΜΟ ΠΟΣΟ:", ΠΟΣΟ - ΣΥΝΟΛΟ_ΑΓΟΡΩΝ ΓΡΑΨΕ "ΕΑΝ ΘΕΛΕΤΕ ΝΑ ΣΥΝΕΧΙΣΕΤΕ ΠΑΤΗΣΤΕ 1 ΑΛΛΙΩΣ 2:ΓΙΑ ΕΞΟΔΟ" ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΔΙΑΒΑΣΕ ΕΠΙΛΟΓΗ ΜΕΧΡΙΣ_ΟΤΟΥ (ΕΠΙΛΟΓΗ = 1) Η (ΕΠΙΛΟΓΗ = 2) ΑΝ (ΕΠΙΛΟΓΗ = 1) ΤΟΤΕ Π ← Π + 1 ΓΡΑΨΕ "ΔΩΣΕ ΤΗΝ ΤΙΜΗ ΤΟΥ ", Π, "ου ΠΡΟΪΟΝΤΟΣ" ΔΙΑΒΑΣΕ ΤΙΜΗ ΣΥΝΟΛΟ_ΑΓΟΡΩΝ ← ΣΥΝΟΛΟ_ΑΓΟΡΩΝ + ΤΙΜΗ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΑΛΛΙΩΣ_ΑΝ (ΣΥΝΟΛΟ_ΑΓΟΡΩΝ < ΠΟΣΟ) ΤΟΤΕ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "ΘΕΛΕΤΕ ΝΑ ΣΥΝΕΧΙΣΕΤΕ; 1:ΣΥΝΕΧΕΙΑ 2:ΕΞΟΔΟΣ" ΔΙΑΒΑΣΕ ΕΠΙΛΟΓΗ ΜΕΧΡΙΣ_ΟΤΟΥ(ΕΠΙΛΟΓΗ = 1) Η (ΕΠΙΛΟΓΗ = 2) ΑΝ (ΕΠΙΛΟΓΗ = 1) ΤΟΤΕ Π ← Π + 1 ΓΡΑΨΕ "ΔΩΣΕ ΤΗΝ ΤΙΜΗ ΤΟΥ ", Π, "ου ΠΡΟΪΟΝΤΟΣ" ΔΙΑΒΑΣΕ ΤΙΜΗ ΣΥΝΟΛΟ_ΑΓΟΡΩΝ ← ΣΥΝΟΛΟ_ΑΓΟΡΩΝ + ΤΙΜΗ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΑΝ (ΣΥΝΟΛΟ_ΑΓΟΡΩΝ = ΠΟΣΟ) ΤΟΤΕ ΓΡΑΨΕ "ΕΧΕΤΕ ΕΞΑΝΤΛΗΣΕΙ ΟΛΟ ΤΟ ΠΟΣΟ!!!" ΤΕΛΟΣ ← ΑΛΗΘΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΛΛΙΩΣ ΓΡΑΨΕ "ΣΑΣ ΕΥΧΑΡΙΣΤΟΥΜΕ" ΤΕΛΟΣ_ΑΝ ΑΝ (ΕΠΙΛΟΓΗ = 2) ΚΑΙ (ΣΥΝΟΛΟ_ΑΓΟΡΩΝ < ΠΟΣΟ) ΤΟΤΕ ΓΡΑΨΕ "ΟΛΟΚΛΗΡΩΣΑΤΕ ΤΗ ΣΥΝΑΛΛΑΓΗ ΣΑΣ!!!" ΓΡΑΨΕ "ΣΥΝΟΛΟ ΠΡΟΪΟΝΤΩΝ:", Π ΓΡΑΨΕ "ΤΑ ΡΕΣΤΑ ΣΑΣ ΕΙΝΑΙ:", ΠΟΣΟ - ΣΥΝΟΛΟ_ΑΓΟΡΩΝ, "€" ΓΡΑΨΕ "ΣΑΣ ΕΥΧΑΡΙΣΤΟΥΜΕ" ΑΛΛΙΩΣ ΓΡΑΨΕ "ΟΛΟΚΛΗΡΩΣΑΤΕ ΤΗ ΣΥΝΑΛΛΑΓΗ ΣΑΣ!!!" ΓΡΑΨΕ "ΣΥΝΟΛΟ ΠΡΟΪΟΝΤΩΝ:", Π ΓΡΑΨΕ "ΤΑ ΡΕΣΤΑ ΣΑΣ ΕΙΝΑΙ:", ΠΟΣΟ - ΣΥΝΟΛΟ_ΑΓΟΡΩΝ, "€" ΓΡΑΨΕ "ΣΑΣ ΕΥΧΑΡΙΣΤΟΥΜΕ" ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ !ArxeioEisodou ΝΑΙ 60 7 1 8 1 24 1 7.5 2