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

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

ΠΡΟΓΡΑΜΜΑ έσοδα_έξοδα_ΤΘ_29213

!ΘΕΜΑ 4

!Μία εταιρεία κρατά σε ένα δισδιάστατο πίνακα ΕΤΑΙΡΕΙΑ[12,2] τα έσοδα και τα έξοδα της

!ανά μήνα για όλο το χρόνο. Να γραφτεί πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:

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

!Μονάδες 2

!4.2  Να διαβάζει τα έσοδα και τα έξοδα της εταιρείας για κάθε μήνα έτσι

!ώστε τα έσοδα να καταχωρούνται στη 1η στήλη του πίνακα ΕΤΑΙΡΕΙΑ

!και τα έξοδα στη 2η στήλη του πίνακα ΕΤΑΡΕΙΑ .

!Στη συνέχεια στο πίνακα ΤΕΛΙΚΟ[12] να καταχωρείται το κέρδος ή τη ζημία

!που έχει η εταιρεία για τον αντίστοιχο μήνα έτσι, ώστε το κέρδος να είναι θετικός

!αριθμός ενώ η ζημία αρνητικός αριθμός .

!Π.χ.

!Έσοδα 1ου μήνα = ΕΤΑΙΡΕΙΑ[1,1]            Έξοδα 1ου μήνα ΕΤΑΙΡΕΙΑ[1,2]

!         τότε ΤΕΛΙΚΟ[1]=ΕΤΑΡΕΙΑ[1,1]-ΕΤΑΙΡΕΙΑ[1,2]

!Μονάδες 8

!4.3  Να υπολογίζει και να τυπώνει το συνολικό κέρδος που έχει η εταιρεία

!στο τέλος της χρονιάς. Αν δεν έχει κέρδος να τυπώνεται κατάλληλο μήνυμα.

!Μονάδες 5

!4.4 Να τυπώνει τους μήνες που είχαν κέρδος και ποιος μήνας είχε το μεγαλύτερο

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

!Μονάδες 10



! 4.1 Δήλωση μεταβλητών

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΕΤΑΙΡΕΙΑ[12, 2], ΤΕΛΙΚΟ[12] 

  ΑΚΕΡΑΙΕΣ: i, συνολικο_κερδος, μεγιστο_κερδος, μηνας_μεγιστου_κερδους



ΑΡΧΗ

  συνολικο_κερδος <- 0

  μεγιστο_κερδος <- -99999

  μηνας_μεγιστου_κερδους <- 0



                         ! 4.2 Εισαγωγή δεδομένων και υπολογισμός κέρδους/ζημίας

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

    ΓΡΑΨΕ "Δώσε τα έσοδα για τον μήνα ", i, ":"

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

    ΓΡΑΨΕ "Δώσε τα έξοδα για τον μήνα ", i, ":"

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



    ΤΕΛΙΚΟ[i] <- ΕΤΑΙΡΕΙΑ[i, 1] - ΕΤΑΙΡΕΙΑ[i, 2] 

    ΑΝ ΤΕΛΙΚΟ[i] > 0 ΤΟΤΕ

      συνολικο_κερδος <- συνολικο_κερδος + ΤΕΛΙΚΟ[i] 

    ΤΕΛΟΣ_ΑΝ



    ΑΝ ΤΕΛΙΚΟ[i] > μεγιστο_κερδος ΤΟΤΕ

      μεγιστο_κερδος <- ΤΕΛΙΚΟ[i] 

      μηνας_μεγιστου_κερδους <- i

    ΤΕΛΟΣ_ΑΝ

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



                                ! 4.3 Υπολογισμός και εμφάνιση συνολικού κέρδους

  ΑΝ συνολικο_κερδος > 0 ΤΟΤΕ

    ΓΡΑΨΕ "Το συνολικό κέρδος της εταιρείας είναι: ", συνολικο_κερδος

  ΑΛΛΙΩΣ

    ΓΡΑΨΕ "Η εταιρεία δεν είχε συνολικό κέρδος."

  ΤΕΛΟΣ_ΑΝ



                 ! 4.4 Εμφάνιση μηνών με κέρδος και μήνα με το μεγαλύτερο κέρδος

  ΑΝ μεγιστο_κερδος > 0 ΤΟΤΕ

    ΓΡΑΨΕ "Μήνες με κέρδος:"

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

      ΑΝ ΤΕΛΙΚΟ[i] > 0 ΤΟΤΕ

        ΓΡΑΨΕ "Μήνας ", i, ": Κέρδος ", ΤΕΛΙΚΟ[i] 

      ΤΕΛΟΣ_ΑΝ

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



    ΓΡΑΨΕ "Ο μήνας με το μεγαλύτερο κέρδος είναι ο μήνας ", μηνας_μεγιστου_κερδους, " με κέρδος ", μεγιστο_κερδος

  ΑΛΛΙΩΣ

    ΓΡΑΨΕ "Δεν υπήρξε μήνας με κέρδος."

  ΤΕΛΟΣ_ΑΝ



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