! = ΤΕΛ02 =================================================================
! Ένα συγκρότημα κατοικιών αποτελείται από 20 όμοιες πολυκατοικίες που κάθε
! μία έχει δέκα ορόφους και κάθε όροφος έχει πέντε διαμερίσματα.
! Να γραφεί πρόγραμμα το οποίο :
! · να ζητά και να καταχωρεί σε τρισδιάστατο πίνακα τον αριθμό των ατόμων
! που διαμένουν σε κάθε διαμέρισμα. Ο καθένας από τους δείκτες του πίνακα
! πίνακα αναφέρεται αντίστοιχα στην πολυκατοικία, τον όροφο και το διαμέ-
! ρισμα. Να γίνεται έλεγχος εγκυρότητας με δεδομένο ότι σε κάθε διαμέρισμα
! μπορούν να μένουν το πολύ 6 άτομα. Προφανώς για τα διαμερίσματα θα κατα-
! χωρηθεί το μηδέν.
! · να υπολογίζει και να εμφανίζει τον αριθμό των άδειων διαμερισμάτων κάθε
! πολυκατοικίας.
! · να υπολογίζει και να εμφανίζει τον αριθμό των κατοίκων κάθε πολυκατοικί-
! ας.
! · να υπολογίζει και να εμφανίζει τον αριθμό των κατοίκων του συγκροτήματος
! · να υπολογίζει και να εμφανίζει το μέσο όρο των ατόμων που διαμένουν σε
! κάθε διαμέρισμα του συγκροτήματος (τα άδεια διαμερίσματα δεν πρέπει να
! να ληφθούν υπ΄ όψιν).
! =========================================================================
ΠΡΟΓΡΑΜΜΑ ΤΕΛ02
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : a[20,10,5] , i , j , k , n , nol , s , sol
ΠΡΑΓΜΑΤΙΚΕΣ : mo
ΑΡΧΗ
! ΕΙΣΑΓΩΓΗ ΔΕΔΟΜΕΝΩΝ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20 ! ΠΟΛΥΚΑΤΟΙΚΙΑ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 10 ! ΟΡΟΦΟΣ
ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 5 ! ΔΙΑΜΕΡΙΣΜΑ
ΓΡΑΨΕ 'Δώσε τον αριθμό των ατόμων που μένουν στο διαμέρισμα' , k , 'του ορόφου' , j , 'της πολυκατοικίας' , i
ΔΙΑΒΑΣΕ a[i,j,k]
ΟΣΟ a[i,j,k] < 0 ή a[i,j,k] > 6 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Λάθος. Ξαναδώσε (0 έως 6)'
ΔΙΑΒΑΣΕ a[i,j,k]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ΜΕΤΡΗΣΗ ΑΔΕΙΩΝ ΔΙΑΜΕΡΙΣΜΑΤΩΝ ΚΑΘΕ ΠΟΛΥΚΑΤΟΙΚΙΑΣ ΚΑΙ ΟΛΙΚΟΣ ΑΡΙΘΜΟΣ ΑΔΕΙΩΝ
nol <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
n <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 5
ΑΝ a[i,j,k] = 0 ΤΟΤΕ
n <-- n + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ο αριθμός των άδειων διαμερισμάτων είναι' , 'της πολυκατοικίας', i , 'είναι', n
nol <-- nol + n
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ΑΡΙΘΜΟΣ ΚΑΤΟΙΚΩΝ ΚΑΘΕ ΠΟΛΥΚΑΤΟΙΚΙΑΣ ΚΑΙ ΟΛΙΚΟΣ ΑΡΙΘΜΟΣ ΚΑΤΟΙΚΩΝ
sol <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
S <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
s <-- s + a[i,j,k]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ο αριθμός των κατοίκων της πολυκατοικίας ' , i , 'είναι' , S
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
sol <-- sol + s
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ο αριθμός των κατοίκων του συγκροτήματος είναι ' , Sol
! ΜΕΣΟΣ ΟΡΟΣ ΚΑΤΟΙΚΩΝ ΑΝΑ ΔΙΑΜΕΡΙΣΜΑ
mo <-- sol/(1000 - nol)
ΓΡΑΨΕ 'Ο μέσος όρος των ατόμων του κάθε διαμερίσματος είναι ' , mo , 'άτομα'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ