Γράψτε διαδικασία που διαβάζει τις τιμές πώλησης, το
εμβαδόν σε τετραγωνικά μέτρα και τις διευθύνσεις 35
διαμερισμάτων στην Αθήνα και υπολογίζει τον αύξοντα
αριθμό (1-35) και τη διεύθυνση του διαμερίσματος που
αποτελεί την πιο συμφέρουσα αγορά για κάποιο
επενδυτή γης.
Παρατήρηση
Η διαδικασία πρέπει να διασφαλίζει την
εγκυρότητα των εισερχόμενων δεδομένων και συγκεκριμένα
ότι:
* όλες οι τιμές πώλησης είναι θετικοί αριθμοί που δεν
υπερβαίνουν το 200000,
* το εμβαδόν όλων των διαμερισμάτων είναι θετικό και
δεν υπερβαίνει τα 80 τετραγωνικά μέτρα.
Λύση
ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΜ(ΑΑΜΙΝ, ΔΜΙΝ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΑΑΜΙΝ, Κ
ΧΑΡΑΚΤΗΡΕΣ: Δ, ΔΜΙΝ
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΩΛ, ΕΜΒ, ΜΙΝ, ΤΜ2
ΑΡΧΗ
ΜΙΝ <-- 200001
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 35
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΠΩΛ
ΜΕΧΡΙΣ_ΟΤΟΥ (ΠΩΛ > 0) ΚΑΙ (ΠΩΛ <= 200000)
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
εμβαδόν σε τετραγωνικά μέτρα και τις διευθύνσεις 35
διαμερισμάτων στην Αθήνα και υπολογίζει τον αύξοντα
αριθμό (1-35) και τη διεύθυνση του διαμερίσματος που
αποτελεί την πιο συμφέρουσα αγορά για κάποιο
επενδυτή γης.
Παρατήρηση
Η διαδικασία πρέπει να διασφαλίζει την
εγκυρότητα των εισερχόμενων δεδομένων και συγκεκριμένα
ότι:
* όλες οι τιμές πώλησης είναι θετικοί αριθμοί που δεν
υπερβαίνουν το 200000,
* το εμβαδόν όλων των διαμερισμάτων είναι θετικό και
δεν υπερβαίνει τα 80 τετραγωνικά μέτρα.
Λύση
ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΜ(ΑΑΜΙΝ, ΔΜΙΝ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΑΑΜΙΝ, Κ
ΧΑΡΑΚΤΗΡΕΣ: Δ, ΔΜΙΝ
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΩΛ, ΕΜΒ, ΜΙΝ, ΤΜ2
ΑΡΧΗ
ΜΙΝ <-- 200001
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 35
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΠΩΛ
ΜΕΧΡΙΣ_ΟΤΟΥ (ΠΩΛ > 0) ΚΑΙ (ΠΩΛ <= 200000)
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΕΜΒ
ΜΕΧΡΙΣ_ΟΤΟΥ (ΕΜΒ > 0) ΚΑΙ (ΕΜΒ <= 80)
ΔΙΑΒΑΣΕ Δ
ΤΜ2 <-- ΠΩΛ/ΕΜΒ
ΑΝ ΤΜ2 < ΜΙΝ ΤΟΤΕ
ΜΙΝ <-- ΤΜ2
ΑΑΜΙΝ <-- Κ
ΔΜΙΝ <-- Δ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου