Άσκηση 10 - Online κρατήσεις στο Ζωολογικό Πάρκο

Χρέωση από τιμοκατάλογο, έκπτωση με σύνθετη συνθήκη, πίνακας μετρητών ανά κωδικό, μέγιστο και ποσοστό εισπράξεων.

Τράπεζα ΘεμάτωνΤΘ 25935Απαιτητικό25 μονάδες

Θέμα 4 της Τράπεζας Θεμάτων · κωδικός 25935

Εκφώνηση

Το Ζωολογικό Πάρκο της περιοχής σας δέχεται επισκέψεις από ιδιώτες και γκρουπ (π.χ. σχολεία, ομάδες). Κατά το μήνα Νοέμβριο, προκειμένου να αυξήσει τα έσοδά του, προσφέρει 5 προγράμματα ξενάγησης σε μειωμένες τιμές για online κρατήσεις θέσεων. Ο τιμοκατάλογος που ισχύει για τις online κρατήσεις στα προγράμματα αυτά, είναι ο εξής:

Είδος κράτησης
Κατηγορία επισκέπτη	Από ιδιώτη	Από γκρουπ (σχολεία κλπ)
Παιδιά	10 ευρώ/άτομο	5 ευρώ/άτομο
Ενήλικες	20 ευρώ/άτομο	10 ευρώ/άτομο

Την περασμένη εβδομάδα έγιναν 30 online κρατήσεις για τα προγράμματα αυτά. Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ που:

Ερωτήματα

Πάτησε ένα ερώτημα για να φωτιστούν οι γραμμές της λύσης που το απαντούν.

Μεθοδολογία - πού κρίνεται το θέμα

Η χρέωση βγαίνει από τον τιμοκατάλογο: πρώτα το είδος της κράτησης (ιδιώτης ή γκρουπ) και μετά παιδιά · τιμή παιδιού + ενήλικες · τιμή ενήλικα.
Η έκπτωση αφορά μόνο ιδιώτες, γι' αυτό ο έλεγχός της είναι μέσα στον κλάδο του 'ΙΔ'. Η συνθήκη είναι ΠΑΙΔ > 6 (περισσότερα από 6) ΚΑΙ ΕΝΗΛ >= 4 (τουλάχιστον 4) - προσοχή στα > και >=.
Οι επισκέπτες κάθε προγράμματος συγκεντρώνονται στον πίνακα ΕΠ[5], με δείκτη τον ίδιο τον κωδικό ΚΩΔ. Ο πίνακας μηδενίζεται πριν από τον βρόχο και στο τέλος βρίσκουμε τη θέση του μεγίστου - αυτή είναι ο κωδικός του προγράμματος.
Στο ποσοστό του 4.3 οι εισπράξεις είναι τα τελικά ποσά, μετά την έκπτωση.

Τι εξασκείς

Χρέωση από τιμοκατάλογο
Σύνθετη συνθήκη
Πίνακας μετρητών
Μέγιστο και θέση μεγίστου

Η λύση σε ΓΛΩΣΣΑ - τρέξε την εδώ

Η εκφώνηση ορίζει 30 κρατήσεις - πλήθος που δεν πληκτρολογείται. Για να δεις τη λύση να τρέχει, μίκρυνέ το όσο τα δοκιμαστικά δεδομένα.

ΠΡΟΓΡΑΜΜΑ ΑΣΚΗΣΗ_10
! 4.1
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: Ι, ΚΩΔ, ΠΑΙΔ, ΕΝΗΛ, ΚΩΔΜαξ, ΕΠ[5]
   ΠΡΑΓΜΑΤΙΚΕΣ: ΧΡ, ΕισΓκρ, Σύνολο
   ΧΑΡΑΚΤΗΡΕΣ: ΕΙΔ
ΑΡΧΗ
! 4.3
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
   ΕΠ[Ι] ← 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕισΓκρ ← 0
Σύνολο ← 0
! 4.1
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 30
   ΔΙΑΒΑΣΕ ΚΩΔ, ΕΙΔ, ΠΑΙΔ, ΕΝΗΛ
   ! 4.2
   ΑΝ ΕΙΔ = 'ΙΔ' ΤΟΤΕ
      ΧΡ ← ΠΑΙΔ * 10 + ΕΝΗΛ * 20
      ΑΝ (ΠΑΙΔ > 6) ΚΑΙ (ΕΝΗΛ >= 4) ΤΟΤΕ
         ΓΡΑΨΕ 'Ο πελάτης κέρδισε έκπτωση 10%'
         ΧΡ ← ΧΡ - ΧΡ * 10 / 100
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ
      ΧΡ ← ΠΑΙΔ * 5 + ΕΝΗΛ * 10
   ΤΕΛΟΣ_ΑΝ
   ΓΡΑΨΕ 'Τελικό ποσό: ', ΧΡ, ' ευρώ'
   ! 4.3
   ΕΠ[ΚΩΔ] ← ΕΠ[ΚΩΔ] + ΠΑΙΔ + ΕΝΗΛ
   Σύνολο ← Σύνολο + ΧΡ
   ΑΝ ΕΙΔ = 'ΓΚΡ' ΤΟΤΕ
      ΕισΓκρ ← ΕισΓκρ + ΧΡ
   ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΩΔΜαξ ← 1
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 5
   ΑΝ ΕΠ[Ι] > ΕΠ[ΚΩΔΜαξ] ΤΟΤΕ
      ΚΩΔΜαξ ← Ι
   ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Πρόγραμμα με τους περισσότερους επισκέπτες: ', ΚΩΔΜαξ
ΑΝ Σύνολο > 0 ΤΟΤΕ
   ΓΡΑΨΕ 'Εισπράξεις από γκρουπ: ', ΕισΓκρ / Σύνολο * 100, '%'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΠΡΟΓΡΑΜΜΑ ΑΣΚΗΣΗ_10
! 4.1
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: Ι, ΚΩΔ, ΠΑΙΔ, ΕΝΗΛ, ΚΩΔΜαξ, ΕΠ[5]
   ΠΡΑΓΜΑΤΙΚΕΣ: ΧΡ, ΕισΓκρ, Σύνολο
   ΧΑΡΑΚΤΗΡΕΣ: ΕΙΔ
ΑΡΧΗ
! 4.3
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
   ΕΠ[Ι] ← 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕισΓκρ ← 0
Σύνολο ← 0
! 4.1
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 30
   ΔΙΑΒΑΣΕ ΚΩΔ, ΕΙΔ, ΠΑΙΔ, ΕΝΗΛ
   ! 4.2
   ΑΝ ΕΙΔ = 'ΙΔ' ΤΟΤΕ
      ΧΡ ← ΠΑΙΔ * 10 + ΕΝΗΛ * 20
      ΑΝ (ΠΑΙΔ > 6) ΚΑΙ (ΕΝΗΛ >= 4) ΤΟΤΕ
         ΓΡΑΨΕ 'Ο πελάτης κέρδισε έκπτωση 10%'
         ΧΡ ← ΧΡ - ΧΡ * 10 / 100
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ
      ΧΡ ← ΠΑΙΔ * 5 + ΕΝΗΛ * 10
   ΤΕΛΟΣ_ΑΝ
   ΓΡΑΨΕ 'Τελικό ποσό: ', ΧΡ, ' ευρώ'
   ! 4.3
   ΕΠ[ΚΩΔ] ← ΕΠ[ΚΩΔ] + ΠΑΙΔ + ΕΝΗΛ
   Σύνολο ← Σύνολο + ΧΡ
   ΑΝ ΕΙΔ = 'ΓΚΡ' ΤΟΤΕ
      ΕισΓκρ ← ΕισΓκρ + ΧΡ
   ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΩΔΜαξ ← 1
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 5
   ΑΝ ΕΠ[Ι] > ΕΠ[ΚΩΔΜαξ] ΤΟΤΕ
      ΚΩΔΜαξ ← Ι
   ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Πρόγραμμα με τους περισσότερους επισκέπτες: ', ΚΩΔΜαξ
ΑΝ Σύνολο > 0 ΤΟΤΕ
   ΓΡΑΨΕ 'Εισπράξεις από γκρουπ: ', ΕισΓκρ / Σύνολο * 100, '%'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

1ΠΡΟΓΡΑΜΜΑ ΑΣΚΗΣΗ_10
2! 4.1
3ΜΕΤΑΒΛΗΤΕΣ
4   ΑΚΕΡΑΙΕΣ: Ι, ΚΩΔ, ΠΑΙΔ, ΕΝΗΛ, ΚΩΔΜαξ, ΕΠ[5]
5   ΠΡΑΓΜΑΤΙΚΕΣ: ΧΡ, ΕισΓκρ, Σύνολο
6   ΧΑΡΑΚΤΗΡΕΣ: ΕΙΔ
7ΑΡΧΗ
8! 4.3
9ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
10   ΕΠ[Ι] ← 0
11ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
12ΕισΓκρ ← 0
13Σύνολο ← 0
14! 4.1
15ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 30
16   ΔΙΑΒΑΣΕ ΚΩΔ, ΕΙΔ, ΠΑΙΔ, ΕΝΗΛ
17   ! 4.2
18   ΑΝ ΕΙΔ = 'ΙΔ' ΤΟΤΕ
19      ΧΡ ← ΠΑΙΔ * 10 + ΕΝΗΛ * 20
20      ΑΝ (ΠΑΙΔ > 6) ΚΑΙ (ΕΝΗΛ >= 4) ΤΟΤΕ
21         ΓΡΑΨΕ 'Ο πελάτης κέρδισε έκπτωση 10%'
22         ΧΡ ← ΧΡ - ΧΡ * 10 / 100
23      ΤΕΛΟΣ_ΑΝ
24   ΑΛΛΙΩΣ
25      ΧΡ ← ΠΑΙΔ * 5 + ΕΝΗΛ * 10
26   ΤΕΛΟΣ_ΑΝ
27   ΓΡΑΨΕ 'Τελικό ποσό: ', ΧΡ, ' ευρώ'
28   ! 4.3
29   ΕΠ[ΚΩΔ] ← ΕΠ[ΚΩΔ] + ΠΑΙΔ + ΕΝΗΛ
30   Σύνολο ← Σύνολο + ΧΡ
31   ΑΝ ΕΙΔ = 'ΓΚΡ' ΤΟΤΕ
32      ΕισΓκρ ← ΕισΓκρ + ΧΡ
33   ΤΕΛΟΣ_ΑΝ
34ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
35ΚΩΔΜαξ ← 1
36ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 5
37   ΑΝ ΕΠ[Ι] > ΕΠ[ΚΩΔΜαξ] ΤΟΤΕ
38      ΚΩΔΜαξ ← Ι
39   ΤΕΛΟΣ_ΑΝ
40ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
41ΓΡΑΨΕ 'Πρόγραμμα με τους περισσότερους επισκέπτες: ', ΚΩΔΜαξ
42ΑΝ Σύνολο > 0 ΤΟΤΕ
43   ΓΡΑΨΕ 'Εισπράξεις από γκρουπ: ', ΕισΓκρ / Σύνολο * 100, '%'
44ΤΕΛΟΣ_ΑΝ
45ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

Ctrl + Enter

Πάτησε «Εκτέλεση» για να τρέξεις τη λύση, ή «Βήμα-βήμα» για να τη δεις εντολή προς εντολή με τις τιμές των μεταβλητών. Τα δεδομένα εισόδου βρίσκονται έτοιμα στην καρτέλα «Είσοδος».

Έτοιμο. Ο κώδικας τρέχει τοπικά στον browser σου - τίποτα δεν στέλνεται σε server.

Ο κώδικας εκτελείται από διερμηνευτή ΓΛΩΣΣΑΣ γραμμένο ειδικά για τη σελίδα και τρέχει αποκλειστικά στον browser σου. Μπορείς να τον αλλάξεις ελεύθερα - οι αλλαγές σου αποθηκεύονται τοπικά σε αυτή τη συσκευή - να τον δεις να εκτελείται βήμα-βήμα με τις τιμές των μεταβλητών, και να τον κατεβάσεις ως αρχείο .glo για τον «Διερμηνευτή της ΓΛΩΣΣΑΣ». Αν κολλήσεις στη σύνταξη, δες την αναφορά της ΓΛΩΣΣΑΣ.

Θέλεις όλη τη μεθοδολογία, όχι μόνο τη λύση;

Το βιβλίο «Πληροφορική Γ΄ Λυκείου» της σειράς δουλεύει τα θέματα βήμα προς βήμα: τεχνικές, μοτίβα λύσης, συχνά λάθη και κριτήρια αξιολόγησης.

Δες το βιβλίο Όλες οι ασκήσεις