2ο ΓΕΛ Γέρακα - ΠΛΗΡΟΦΟΡΙΚΗ - ΛΥΣΕΙΣ ΤΡΑΠΕΖΑΣ ΘΕΜΑΤΩΝ 34683

e-ΜΑΘΗΜΑΤΑ
ΠΛΗΡΟΦΟΡΙΚΗ
Λύσεις ασκήσεων Τράπεζας Θεμάτων
34683



ΠΡΟΓΡΑΜΜΑ Αλκυονίδες_ΤΘ_34683



!ΘΕΜΑ 4

!Η Ελληνική Στατιστική Υπηρεσία θέλει να κρατήσει στοιχεία για την εμφάνιση

!των αλκυονίδων ημερών. Η εμφάνιση των αλκυονίδων ημερών αναφέρεται στο διάστημα

!από 15 Δεκεμβρίου μέχρι 15 Φεβρουαρίου (θεωρούμε ότι είναι 60 ημέρες)

!και πρόκειται για ημέρες που χαρακτηρίζονται από ηλιοφάνεια και θερμοκρασίες

!πάνω από 15 βαθμούς.

!Να γραφεί πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:

!

!4.1.      α) Να περιλαμβάνει κατάλληλο τμήμα δηλώσεων.

!β) Να διαβάζει τις ονομασίες 20 πόλεων της επικράτειας και τη θερμοκρασία

!που σημειώθηκε κάθε πόλη στο διάστημα αυτών των 60 ημερών.

!Μονάδες 8

!

!4.2. Να υπολογίζει και να εμφανίζει πόσες αλκυονίδες ημέρες είχε κάθε πόλη

!σε αυτό το διάστημα.

!Μονάδες 10

!

!4.3. Να εμφανίζει τις ονομασίες των πόλεων με το μεγαλύτερο αριθμό αλκυονίδων ημερών.

!Μονάδες 7







ΣΤΑΘΕΡΕΣ

  ΠΟΛΕΙΣ = 20

  ΗΜΕΡΕΣ = 60



ΜΕΤΑΒΛΗΤΕΣ

  ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ[ΠΟΛΕΙΣ], tempName

  ΑΚΕΡΑΙΕΣ: ΘΕΡΜΟΚΡΑΣΙΑ[ΠΟΛΕΙΣ, ΗΜΕΡΕΣ], ΑΛΚΥΟΝΙΔΕΣ[ΠΟΛΕΙΣ] 

  ΑΚΕΡΑΙΕΣ: i, j, maxΑλκυονιδες



ΑΡΧΗ



! --- 4.1 Ανάγνωση δεδομένων ---

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΟΛΕΙΣ

    ΓΡΑΨΕ 'Δώσε όνομα πόλης ', i, ': '

    ΔΙΑΒΑΣΕ ΟΝΟΜΑ[i] 

    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΗΜΕΡΕΣ

      ΓΡΑΨΕ 'Δώσε θερμοκρασία για την ημέρα ', j, ' στην πόλη ', ΟΝΟΜΑ[i], ': '

      ΔΙΑΒΑΣΕ ΘΕΡΜΟΚΡΑΣΙΑ[i, j] 

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ





! --- 4.2 Υπολογισμός αλκυονίδων ημερών για κάθε πόλη ---

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΟΛΕΙΣ

    ΑΛΚΥΟΝΙΔΕΣ[i] <- 0

    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΗΜΕΡΕΣ

      ΑΝ ΘΕΡΜΟΚΡΑΣΙΑ[i, j] > 15 ΤΟΤΕ

        ΑΛΚΥΟΝΙΔΕΣ[i] <- ΑΛΚΥΟΝΙΔΕΣ[i] + 1

      ΤΕΛΟΣ_ΑΝ

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΓΡΑΨΕ 'Η πόλη ', ΟΝΟΜΑ[i], ' είχε ', ΑΛΚΥΟΝΙΔΕΣ[i], ' αλκυονίδες ημέρες.'

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ





! --- 4.3 Εμφάνιση πόλεων με το μέγιστο αριθμό αλκυονίδων ημερών ---

  maxΑλκυονιδες <- ΑΛΚΥΟΝΙΔΕΣ[1] 

  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ ΠΟΛΕΙΣ

    ΑΝ ΑΛΚΥΟΝΙΔΕΣ[i] > maxΑλκυονιδες ΤΟΤΕ

      maxΑλκυονιδες <- ΑΛΚΥΟΝΙΔΕΣ[i] 

    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



  ΓΡΑΨΕ 'Πόλεις με το μεγαλύτερο αριθμό αλκυονίδων ημερών (', maxΑλκυονιδες, '):'

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΟΛΕΙΣ

    ΑΝ ΑΛΚΥΟΝΙΔΕΣ[i] = maxΑλκυονιδες ΤΟΤΕ

      ΓΡΑΨΕ ΟΝΟΜΑ[i] 

    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ