Ασκησιολόγιο ΓλωσσοΜάθειας https://spinet.gr/glossomatheia/programs/ |
|
Ημερήσιο - Θέμα 4 https://spinet.gr/glossomatheia/programs/viewtopic.php?f=39&t=668 |
Σελίδα 1 από 1 |
Συγγραφέας: | ΧΑΤΖΗΤΣΟΜΠΑΝΗΣ ΘΕΟΦΙΛΟΣ [ Δευτ 28 Ιούλ 2008 12:32 pm ] |
Θέμα δημοσίευσης: | Ημερήσιο - Θέμα 4 |
! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΝΙΟΣ 2008 - ΘΕΜΑ 4 ! =============================================================================================== ! Στο ευρωπαϊκό πρωτάθλημα ποδοσφαίρου συμμετέχουν 16 ομάδες. Κάθε ομάδα συμμετέχει σε 30 αγώνες. ! Να γράψετε αλγόριθμο ο οποίος: ! α. Διαβάζει σε μονοδιάστατο πίνακα ΟΝ[16] τα ονόματα των ομάδων. ! β. Διαβάζει σε δισδιάστατο πίνακα ΑΠ[16,30] τα αποτελέσματα σε κάθε αγώνα ως εξής: ! Τον χαρακτήρα "Ν"για ΝΙΚΗ ! Τον χαρακτήρα "Ι" για ΙΣΟΠΑΛΙΑ ! Τον χαρακτήρα "Η" για ΗΤΤΑ ! και κάνει τον απαραίτητο έλεγχο εγκυρότητας των δεδομένων. ! γ. Για κάθε ομάδα υπολογίζει και καταχωρεί σε δισδιάστατο πίνακα ΠΛ[16,3] το πλήθος των νικών ! στην πρώτη στήλη, το πλήθος των ισοπαλιών στη δεύτερη στήλη, και το πλήθος των ηττών στην ! τρίτη στήλη του πίνακα. Ο πίνακας αυτός πρέπει προηγουμένως να έχει μηδενισθεί. ! δ. Με βάση τα στοιχεία του πίνακα ΠΛ[16,3] υπολογίζει και καταχωρεί σε νέο πίνακα ΒΑΘ[16] τη ! συνολική βαθμολογία κάθε ομάδας, δεδομένου ότι για κάθε νίκη η ομάδα παίρνει τρεις βαθμούς, ! για κάθε ισοπαλία έναν βαθμό και για κάθε ήττα κανέναν βαθμό. ! ε. Εμφανίζει τα ονόματα και τη βαθμολογία των ομάδων ταξινομημένα σε φθίνουσα σειρά με βάση τη ! βαθμολογία. ! =============================================================================================== ! ΠΡΟΓΡΑΜΜΑ ΗΜ_2008_06_4 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ : πλ[16,3] , βαθ[16] , i , j , temp1 ΧΑΡΑΚΤΗΡΕΣ : ονομ[16] , απ[16,30] , temp2 ΑΡΧΗ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20 ΓΡΑΨΕ 'Δώσε το όνομα της ομάδας No :', i ΔΙΑΒΑΣΕ ονομ[i] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 30 ΓΡΑΨΕ 'Τι έκανε η ομάδα' , ονομ[i] , 'στον αγώνα' , j ΓΡΑΨΕ 'Νίκησε (Ν) , έχασε (Η) ή έφερε ισοπαλία (Ι) ;' ΔΙΑΒΑΣΕ απ[i,j] ΟΣΟ απ[i,j] <> 'Ν' ΚΑΙ απ[i,j] <> 'Ι' ΚΑΙ απ[i,j] <> 'Η' ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ 'Λάθος. Ξαναδώσε Ν ή Ι ή Η' ΔΙΑΒΑΣΕ απ[i,j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3 πλ[i,j] <-- 0 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 30 ΑΝ απ[i,j] = 'Ν' ΤΟΤΕ πλ[i,1] <-- πλ[i,1] + 1 ΑΛΛΙΩΣ_ΑΝ απ[i,j] = 'Ι' ΤΟΤΕ πλ[i,2] <-- πλ[i,2] + 1 ΑΛΛΙΩΣ πλ[i,3] <-- πλ[i,3] + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16 βαθ[i] <-- πλ[i,1]*3 + πλ[i,2]*1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 16 ΓΙΑ j ΑΠΟ 16 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1 ΑΝ βαθ[j-1] < βαθ[j] ΤΟΤΕ temp1 <-- βαθ[j-1] βαθ[j-1] <-- βαθ[j] βαθ[j] <-- temp1 temp2 <-- ονομ[j-1] ονομ[j-1] <-- ονομ[j] ονομ[j] <-- temp2 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16 ΓΡΑΨΕ ονομ[i] , βαθ[i] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ |
Συγγραφέας: | Daisuke [ Πέμ 12 Φεβ 2009 08:50 pm ] |
Θέμα δημοσίευσης: | Re: Ημερήσιο - Θέμα 4 |
Καλησπέρα ! Ευχαριστώ για τα θέματα των πανελλαδικών, μόνο να κάνω μία διόρθωση στην λύση που προφανώς έγινε από απροσεξία ^^ Παράθεση: ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20 ΓΡΑΨΕ 'Δώσε το όνομα της ομάδας No :', i ΔΙΑΒΑΣΕ ονομ[i] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Θα έπρεπε να είναι "Για i από 1 μέχρι 16" ... Αυτό ! |
Συγγραφέας: | ΧΑΤΖΗΤΣΟΜΠΑΝΗΣ ΘΕΟΦΙΛΟΣ [ Παρ 13 Φεβ 2009 02:07 am ] |
Θέμα δημοσίευσης: | Re: Ημερήσιο - Θέμα 4 |
Έχεις δίκαιο. Σε ευχαριστώ για την παρατήρηση. Θα φροντίσω να το διορθώσω. |
Σελίδα 1 από 1 | Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ] |
Powered by phpBB® Forum Software © phpBB Group http://www.phpbb.com/ |