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

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

ΠΡΟΓΡΑΜΜΑ Ασφαλιστική_ΤΘ_30351

!ΘΕΜΑ 4

!Μία ασφαλιστική εταιρεία έχει 350 ασφαλιστές. Οι ασφάλειες που γίνονται είναι

!ασφάλειες ΖΩΗΣ και ασφάλειες ΚΑΤΟΙΚΙΑΣ.

!Στο πίνακα ΑΣΦΑΛΙΣΤΕΣ [350] καταχωρούνται τα ονόματα των ασφαλιστών και στο

!πίνακα ΑΣΦΑΛΕΙΕΣ[350,2] καταχωρούνται κατά αντιστοιχία θέσεων για κάθε ασφαλιστή

!το πλήθος των συμβολαίων που έχει κάνει έτσι, ώστε στην 1η στήλη καταχωρείται

!το πλήθος των συμβολαίων  ΖΩΗΣ και στη 2η στήλη το πλήθος των συμβολαίων ΚΑΤΟΙΚΙΑΣ.

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

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

!Μονάδες 2

!4.2  Να διαβάζει τα ονόματα των 350 ασφαλιστών και το πλήθος των ασφαλειών

!που έχει κάνει σε ΖΩΗ και σε ΚΑΤΟΙΚΙΑ. Να γίνεται έλεγχος δεδομένων,

!ώστε το πλήθος των ασφαλειών να είναι θετικός αριθμός.

!Μονάδες 8

!4.3  Να εκτυπώνει το πλήθος των ασφαλειών που έχουν γίνει συνολικά για κάθε κατηγορία.

!Δηλαδή το πλήθος των ασφαλειών ΖΩΗΣ και το πλήθος των ασφαλειών ΚΑΤΟΙΚΙΑΣ.

!Μονάδες 8

!4.4  Να εκτυπώνει το όνομα του ασφαλιστή με τις περισσότερες ασφάλειες συνολικά

!(δηλαδή, και τις δύο κατηγορίες). Θεωρήστε ότι υπάρχει μόνο ένας ασφαλιστής

!με τις περισσότερες ασφάλειες.

!Μονάδες  7



ΜΕΤΑΒΛΗΤΕΣ

  ΧΑΡΑΚΤΗΡΕΣ: ΑΣΦΑΛΙΣΤΕΣ[350] 

  ΑΚΕΡΑΙΕΣ: ΑΣΦΑΛΕΙΕΣ[350, 2] 

  ΑΚΕΡΑΙΕΣ: i, συνολοΖΩΗΣ, συνολοΚΑΤΟΙΚΙΑΣ, συνολο, μεγιστο, θεση

ΑΡΧΗ

  συνολοΖΩΗΣ <- 0

  συνολοΚΑΤΟΙΚΙΑΣ <- 0

  μεγιστο <- -1

  θεση <- 0



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

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

    ΔΙΑΒΑΣΕ ΑΣΦΑΛΙΣΤΕΣ[i] 



!   Ασφάλειες ΖΩΗΣ με έλεγχο εγκυρότητας

    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

      ΓΡΑΨΕ 'Δώσε τον αριθμό συμβολαίων ΖΩΗΣ για τον ', ΑΣΦΑΛΙΣΤΕΣ[i], ': '

      ΔΙΑΒΑΣΕ ΑΣΦΑΛΕΙΕΣ[i, 1] 

    ΜΕΧΡΙΣ_ΟΤΟΥ ΑΣΦΑΛΕΙΕΣ[i, 1] >= 0



!   Ασφάλειες ΚΑΤΟΙΚΙΑΣ με έλεγχο εγκυρότητας

    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

      ΓΡΑΨΕ 'Δώσε τον αριθμό συμβολαίων ΚΑΤΟΙΚΙΑΣ για τον ', ΑΣΦΑΛΙΣΤΕΣ[i], ': '

      ΔΙΑΒΑΣΕ ΑΣΦΑΛΕΙΕΣ[i, 2] 

    ΜΕΧΡΙΣ_ΟΤΟΥ ΑΣΦΑΛΕΙΕΣ[i, 2] >= 0



!   Προσθήκη στα σύνολα

    συνολοΖΩΗΣ <- συνολοΖΩΗΣ + ΑΣΦΑΛΕΙΕΣ[i, 1] 

    συνολοΚΑΤΟΙΚΙΑΣ <- συνολοΚΑΤΟΙΚΙΑΣ + ΑΣΦΑΛΕΙΕΣ[i, 2] 



!   Έλεγχος για τον ασφαλιστή με τις περισσότερες συνολικά

    συνολο <- ΑΣΦΑΛΕΙΕΣ[i, 1] + ΑΣΦΑΛΕΙΕΣ[i, 2] 

    ΑΝ συνολο > μεγιστο ΤΟΤΕ

      μεγιστο <- συνολο

      θεση <- i

    ΤΕΛΟΣ_ΑΝ

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



! Εκτύπωση συνολικών αποτελεσμάτων

  ΓΡΑΨΕ 'Συνολικά συμβόλαια ΖΩΗΣ: ', συνολοΖΩΗΣ

  ΓΡΑΨΕ 'Συνολικά συμβόλαια ΚΑΤΟΙΚΙΑΣ: ', συνολοΚΑΤΟΙΚΙΑΣ

  ΓΡΑΨΕ 'Ασφαλιστής με τα περισσότερα συμβόλαια: ', ΑΣΦΑΛΙΣΤΕΣ[θεση] 



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