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

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

ΠΡΟΓΡΑΜΜΑ Κάτσε_κάτω_από_την_μπάρα_ΤΘ_30208

!ΘΕΜΑ 4

!Στον τελικό της άρσης βαρών σε ένα παγκόσμιο πρωτάθλημα συμμετέχουν 16 αθλητές

!από διαφορετικές χώρες. Κάθε αθλητής έχει τρεις προσπάθειες, των οποίων

!ο μέσος όρος αποτελεί τη συνολική του επίδοση.

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

!

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

!   Μονάδες 2

!4.2  Να διαβάζει τα ονόματα και τις χώρες προέλευσης των αθλητών και

!τα καταχωρεί στον πίνακα ΑΡΣ[16,2], όπου στην 1η στήλη καταχωρείται το όνομα

!και στη 2η η χώρα προέλευσης. Το πρόγραμμα διαβάζει επίσης τις τρεις επιδόσεις

!κάθε αθλητή, τις οποίες καταχωρεί σε αντίστοιχο πίνακα.

!Μονάδες 8

!4.3  Να υπολογίζει τη συνολική επίδοση κάθε αθλητή, ως το μέσο όρο των τριών

!προσπαθειών του και να τους ταξινομεί κατά φθίνουσα σειρά.

!Μονάδες 11

!4.4  Να εκτυπώνει τα ονόματα και τη χώρα προέλευσης των αθλητών που κερδίζουν

!τα 3 πρώτα μετάλλια. Θεωρείστε ότι δεν υπάρχει περίπτωση ισοβαθμίας σε κάποια

!από τις θέσεις των μεταλλίων.

!Μονάδες  4





ΜΕΤΑΒΛΗΤΕΣ

  ΧΑΡΑΚΤΗΡΕΣ: ΑΡΣ[16,2], tempΟνομα, tempΧωρα

  ΠΡΑΓΜΑΤΙΚΕΣ: ΕΠΙΔΟΣΕΙΣ[16,3], ΜΕΣΟΣ[16], tempΕπιδ

  ΑΚΕΡΑΙΕΣ: i, j

ΑΡΧΗ

  ! Εισαγωγή δεδομένων

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16

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

     ΔΙΑΒΑΣΕ ΑΡΣ[i,1]

     ΓΡΑΨΕ 'Δώσε χώρα αθλητή ', i, ': '

     ΔΙΑΒΑΣΕ ΑΡΣ[i,2]

     ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3

        ΓΡΑΨΕ 'Δώσε επίδοση ', j, ' του αθλητή ', ΑΡΣ[i,1], ': '

        ΔΙΑΒΑΣΕ ΕΠΙΔΟΣΕΙΣ[i,j]

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

     ΜΕΣΟΣ[i] <- (ΕΠΙΔΟΣΕΙΣ[i,1] + ΕΠΙΔΟΣΕΙΣ[i,2] + ΕΠΙΔΟΣΕΙΣ[i,3]) / 3

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



  ! Ταξινόμηση κατά φθίνουσα σειρά με βάση τον μέσο όρο

  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 16

     ΓΙΑ j ΑΠΟ 16 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ  -1

        ΑΝ ΜΕΣΟΣ[j-1] < ΜΕΣΟΣ[j] ΤΟΤΕ

           tempΕπιδ <- ΜΕΣΟΣ[j]

           ΜΕΣΟΣ[j] <- ΜΕΣΟΣ[j-1]

           ΜΕΣΟΣ[j-1] <- tempΕπιδ



           tempΟνομα <- ΑΡΣ[j,1]

           ΑΡΣ[j,1] <- ΑΡΣ[j-1,1]

           ΑΡΣ[j-1,1] <- tempΟνομα



           tempΧωρα <- ΑΡΣ[j,2]

           ΑΡΣ[j,2] <- ΑΡΣ[j-1,2]

           ΑΡΣ[j-1,2] <- tempΧωρα

        ΤΕΛΟΣ_ΑΝ

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

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



  ! Εκτύπωση των 3 πρώτων μεταλλίων

  ΓΡΑΨΕ '--- Νικητές ---'

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3

     ΓΡΑΨΕ i, 'ο Μεταλλιο: ', ΑΡΣ[i,1], ' (', ΑΡΣ[i,2], ')  με επίδοση ', ΜΕΣΟΣ[i]

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



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