Ασκησιολόγιο ΓλωσσοΜάθειας https://spinet.gr/glossomatheia/programs/ |
|
Ημερήσιο - Θέμα 3 https://spinet.gr/glossomatheia/programs/viewtopic.php?f=30&t=566 |
Σελίδα 1 από 1 |
Συγγραφέας: | ΧΑΤΖΗΤΣΟΜΠΑΝΗΣ ΘΕΟΦΙΛΟΣ [ Πέμ 31 Μάιος 2007 04:17 pm ] |
Θέμα δημοσίευσης: | Ημερήσιο - Θέμα 3 |
! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΜΑΙΟΣ 2007 - ΘΕΜΑ 3 ! =============================================================================================== ! Ένας συλλέκτης γραμματοσήμων επισκέπτεται στο διαδίκτυο το αγαπημένο του ηλεκτρονικό κατάστημα ! φιλοτελισμού προκειμένου να αγοράσει γραμματόσημα. Προτίθεται να ξοδέψει μέχρι 1500 ευρώ. ! Να αναπτύξετε αλγόριθμο ο οποίος: ! α. Για κάθε γραμματόσημο, να διαβάζει την τιμή και την προέλευση του (ελληνικό/ξένο) και ! να επιτρέπει την αγορά του, εφόσον η τιμή του δεν υπερβαίνει το διαθέσιμο υπόλοιπο χρημάτων. ! Διαφορετικά να τερματίζει τυπώνοντας το μήνυμα «ΤΕΛΟΣ ΑΓΟΡΩΝ». ! ΣΗΜΕΙΩΣΗ : Δεν απαιτείται έλεγχος εγκυρότητας για τα δεδομένα εισόδου. ! β. Να τυπώνει: ! 1. Το συνολικό ποσό που ξόδεψε ο συλλέκτης. ! 2. Το πλήθος των ελληνικών και το πλήθος των ξένων γραμματοσήμων που αγόρασε. ! 3. Το ποσό που περίσσεψε, εφόσον υπάρχει, διαφορετικά το μήνυμα «ΕΞΑΝΤΛΗΘΗΚΕ ΟΛΟ ΤΟ ΠΟΣΟ». ! =============================================================================================== ! ΠΡΟΓΡΑΜΜΑ ΗΜ_2007_05_3 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ : x , n1 , n2 ΠΡΑΓΜΑΤΙΚΕΣ: ποσο , τιμη , s ΛΟΓΙΚΕΣ: flag ΑΡΧΗ ποσο <-- 1500 s <-- 0 n1 <-- 0 n2 <-- 0 flag <-- αληθής ! ΘΑ ΑΓΟΡΑΣΤΕΙ ΚΑΙ ΑΛΛΟ ΓΡΑΜΜΑΤΟΣΗΜΟ ΟΣΟ flag = αληθής ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ 'Δώσε τιμή γραμματοσήμου' ΔΙΑΒΑΣΕ τιμή ΑΝ s + τιμη <= ποσο ΤΟΤΕ s <-- s + τιμη ΓΡΑΨΕ '1. ΕΛΛΗΝΙΚΟ ή 2. ΞΕΝΟ ;' ΔΙΑΒΑΣΕ x ΑΝ x = 1 ΤΟΤΕ n1 <-- n1 + 1 ΑΛΛΙΩΣ n2 <-- n2 + 1 ΤΕΛΟΣ_ΑΝ ΑΛΛΙΩΣ flag <-- ψευδής ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'ΤΕΛΟΣ ΑΓΟΡΩΝ' ΓΡΑΨΕ 'Το συνολικό ποσό που δαπανήθηκε είναι ίσο με' , s , 'ευρώ.' ΓΡΑΨΕ 'Αγοράσθηκαν' , n1 , 'ξένα και' , n2 , 'ελληνικά γραμματόσημα.' ΑΝ s = ποσο ΤΟΤΕ ΓΡΑΨΕ 'ΕΞΑΝΤΛΗΘΗΚΕ ΟΛΟ ΤΟ ΠΟΣΟ' ΑΛΛΙΩΣ ΓΡΑΨΕ 'Περίσσεψαν' , ποσο - s , 'ευρώ.' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ |
Σελίδα 1 από 1 | Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ] |
Powered by phpBB® Forum Software © phpBB Group http://www.phpbb.com/ |