2ο ΓΕΛ Γέρακα - ΑΣΚΗΣΕΙΣ ΑΕΠΠ - Εσπερινών 2007

e-ΜΑΘΗΜΑΤΑ
Ανάπτυξη Εφαρμογών σε Προγραμματιστικό περιβάλλον
Λύσεις ασκήσεων από θέματα Πανελλαδικών εξετάσεων

Αλγόριθμος Εξετάσεις

!Β2007-Θ4

!Σε ένα πανεπιστημιακό τμήμα εισήχθησαν κατόπιν γενικών εξετάσεων 235 φοιτητές

!προερχόμενοι από την ΤΕΧΝΟΛΟΓΙΚΗ ή τη ΘΕΤΙΚΗ κατεύθυνση.

!Να αναπτύξετε αλγόριθμο, ο οποίος:

!α. Για καθένα από τους 235 φοιτητές διαβάζει:

!-  το ονοματεπώνυμό του,

!-  τα μόρια εισαγωγής του,

!-  την κατεύθυνσή του, η οποία μπορεί να είναι «ΤΕΧΝΟΛΟΓΙΚΗ» ή «ΘΕΤΙΚΗ», ελέγχοντας

!   την εγκυρότητα εισαγωγής της και καταχωρίζει τα δεδομένα αυτά σε τρεις πίνακες.

!β. Υπολογίζει και εμφανίζει:

!1. το μέσο όρο των μορίων εισαγωγής των φοιτητών που προέρχονται από την ΤΕΧΝΟΛΟΓΙΚΗ

!   κατεύθυνση.

!2. το ποσοστό των φοιτητών, που προέρχονται από την ΤΕΧΝΟΛΟΓΙΚΗ κατεύθυνση.

!3. την κατεύθυνση, από την οποία προέρχεται ο φοιτητής με τα περισσότερα μόρια

!   εισαγωγής (να θεωρήσετε ότι δεν υπάρχει περίπτωση ισοβαθμίας).

!4. τα ονοματεπώνυμα των φοιτητών που προέρχονται από την ΤΕΧΝΟΛΟΓΙΚΗ κατεύθυνση,

!   για τους οποίους τα μόρια εισαγωγής τους είναι περισσότερα από το μέσο όρο των

!   μορίων εισαγωγής των φοιτητών που προέρχονται από την ΤΕΧΝΟΛΟΓΙΚΗ κατεύθυνση.



Ν <- 235



! α

Για i από 1 μέχρι Ν

  Εμφάνισε "Φοιτητής: ", i

  Εμφάνισε "Δώστε Oνοματεπώνυμo   : "

  Διάβασε ονοματεπώνυμo[i] 

  Εμφάνισε "Δώστε Mόρια εισαγωγής : "

  Διάβασε μόρια[i] 

  Αρχή_επανάληψης

    Εμφάνισε "Δώστε κατεύθυνση («ΤΕΧΝΟΛΟΓΙΚΗ» ή «ΘΕΤΙΚΗ»):"

    Διάβασε κατεύθυνση[i] 

  Μέχρις_ότου κατεύθυνση[i] = "ΤΕΧΝΟΛΟΓΙΚΗ" ή κατεύθυνση[i] = "ΘΕΤΙΚΗ"

Τέλος_επανάληψης



!β1.

άθροισμα_μορίων_τεχ <- 0

πλήθος_φοιτητών_τεχ <- 0

Για i από 1 μέχρι Ν

  Αν κατεύθυνση[i] = "ΤΕΧΝΟΛΟΓΙΚΗ" τότε

    άθροισμα_μορίων_τεχ <- άθροισμα_μορίων_τεχ + μόρια[i] 

    πλήθος_φοιτητών_τεχ <- πλήθος_φοιτητών_τεχ + 1

  Τέλος_αν

Τέλος_επανάληψης



Αν πλήθος_φοιτητών_τεχ > 0 τότε

  μέσος_όρος <- άθροισμα_μορίων_τεχ/ πλήθος_φοιτητών_τεχ

  Εμφάνισε "Μέσος όρος μορίων εισαγωγής  φοιτητών από ΤΕΧΝΟΛΟΓΙΚΗ :", μέσος_όρος

αλλιώς

  μέσος_όρος <- 0

  Εμφάνισε "Κανένας φοιτητής από ΤΕΧΝΟΛΟΓΙΚΗ"

Τέλος_αν



!β2

ποσοστό <- 100* πλήθος_φοιτητών_τεχ/ Ν

Εμφάνισε "Ποσοστό των φοιτητών από ΤΕΧΝΟΛΟΓΙΚΗ :", ποσοστό, "%"



!β3

max <- μόρια[1] 

θέση <- 1

Για i από 2 μέχρι Ν

  Αν max < μόρια[i] τότε

    max <- μόρια[i] 

    θέση <- i

  Τέλος_αν

Τέλος_επανάληψης

Εμφάνισε "Kατεύθυνση φοιτητή με περισσότερα μόρια: ", κατεύθυνση[θέση] 





!β4.

Εμφάνισε "Ονοματεπώνυμα φοιτητών ΤΕΧΝΟΛΟΓΙΚΗΣ με μόρια εισαγωγής > Μ.Ο Τεχνολογικής"

Για i από 1 μέχρι Ν

  Αν κατεύθυνση[i] = "ΤΕΧΝΟΛΟΓΙΚΗ" και μόρια[i] > μέσος_όρος τότε

    Εμφάνισε ονοματεπώνυμo[i] 

  Τέλος_αν

Τέλος_επανάληψης



Τέλος Εξετάσεις