Άσκηση 9 - Χρέωση ραδιοφωνικών διαφημίσεων

Κλιμακωτή χρέωση ανά δευτερόλεπτο, έκπτωση ανάλογα με τις εκπομπές, λέξη-φρουρός και ποσοστό.

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

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

Εκφώνηση

Ένας ραδιοφωνικός σταθμός χρεώνει τις διαφημίσεις των πελατών του ανάλογα με τη διάρκεια σε δευτερόλεπτα της διαφήμισης. Ο υπολογισμός της χρέωσης γίνεται κλιμακωτά με βάση τον ακόλουθο πίνακα:

Διάρκεια εκπομπής διαφήμισης (σε δευτερόλεπτα)	Χρέωση (ανά δευτερόλεπτο)
Μέχρι και 20	20 ευρώ
Για τα δευτερόλεπτα από 21 έως και 30	16 ευρώ
Για τα επιπλέον δευτερόλεπτα	12 ευρώ

Επίσης, ο σταθμός παρέχει 5% έκπτωση αν γίνονται από 7 έως και 14 διαφημιστικές εκπομπές ανά εβδομάδα και 10% έκπτωση αν γίνονται περισσότερες από 14 διαφημιστικές εκπομπές ανά εβδομάδα.

Να γραφεί πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:

Ερωτήματα

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

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

Κλιμακωτή χρέωση σημαίνει ότι κάθε κλίμακα χρεώνει μόνο τα δικά της δευτερόλεπτα. Μια διαφήμιση 40 δευτερολέπτων κοστίζει 20·20 + 10·16 + 10·12 = 680 ευρώ ανά εκπομπή - όχι 40·12.
Οι σταθεροί όροι των πάνω κλιμάκων (20·20 και 10·16) γράφονται ως γινόμενα, ώστε να φαίνεται από πού προκύπτουν. Η σειρά των ΑΛΛΙΩΣ_ΑΝ είναι από τη μικρή διάρκεια προς τη μεγάλη.
Η έκπτωση εφαρμόζεται στη συνολική χρέωση της εβδομάδας (κόστος ανά εκπομπή · φορές). Ελέγχουμε πρώτα το > 14 και μετά το >= 7, ώστε το 5% να πέφτει ακριβώς στο διάστημα 7-14.
Το ποσοστό του 4.3 είναι επί του πλήθους των διαφημίσεων (Πλ), όχι των εκπομπών ή των εσόδων.

Τι εξασκείς

Κλιμακωτή χρέωση
Έκπτωση
Λέξη-φρουρός
Ποσοστό

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

ΠΡΟΓΡΑΜΜΑ ΑΣΚΗΣΗ_9
! 4.1
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: ΔΙΑΡ, ΦΟΡΕΣ, Κόστος, Πλ, Πλ14
   ΠΡΑΓΜΑΤΙΚΕΣ: Χρέωση, Έσοδα
   ΧΑΡΑΚΤΗΡΕΣ: ΕΠΩΝ
ΑΡΧΗ
! 4.3
Έσοδα ← 0
Πλ ← 0
Πλ14 ← 0
! 4.2
ΔΙΑΒΑΣΕ ΕΠΩΝ
ΟΣΟ ΕΠΩΝ <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ
   ΔΙΑΒΑΣΕ ΔΙΑΡ, ΦΟΡΕΣ
   ΑΝ ΔΙΑΡ <= 20 ΤΟΤΕ
      Κόστος ← ΔΙΑΡ * 20
   ΑΛΛΙΩΣ_ΑΝ ΔΙΑΡ <= 30 ΤΟΤΕ
      Κόστος ← 20 * 20 + (ΔΙΑΡ - 20) * 16
   ΑΛΛΙΩΣ
      Κόστος ← 20 * 20 + 10 * 16 + (ΔΙΑΡ - 30) * 12
   ΤΕΛΟΣ_ΑΝ
   Χρέωση ← Κόστος * ΦΟΡΕΣ
   ΑΝ ΦΟΡΕΣ > 14 ΤΟΤΕ
      Χρέωση ← Χρέωση - Χρέωση * 10 / 100
   ΑΛΛΙΩΣ_ΑΝ ΦΟΡΕΣ >= 7 ΤΟΤΕ
      Χρέωση ← Χρέωση - Χρέωση * 5 / 100
   ΤΕΛΟΣ_ΑΝ
   ΓΡΑΨΕ 'Χρέωση για ', ΕΠΩΝ, ': ', Χρέωση, ' ευρώ'
   ! 4.3
   Έσοδα ← Έσοδα + Χρέωση
   Πλ ← Πλ + 1
   ΑΝ ΦΟΡΕΣ > 14 ΤΟΤΕ
      Πλ14 ← Πλ14 + 1
   ΤΕΛΟΣ_ΑΝ
   ! 4.2
   ΔΙΑΒΑΣΕ ΕΠΩΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.3
ΓΡΑΨΕ 'Συνολικά έσοδα του σταθμού: ', Έσοδα, ' ευρώ'
ΓΡΑΨΕ 'Διαφημίσεις με περισσότερες από 14 εκπομπές: ', Πλ14 / Πλ * 100, '%'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΠΡΟΓΡΑΜΜΑ ΑΣΚΗΣΗ_9
! 4.1
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: ΔΙΑΡ, ΦΟΡΕΣ, Κόστος, Πλ, Πλ14
   ΠΡΑΓΜΑΤΙΚΕΣ: Χρέωση, Έσοδα
   ΧΑΡΑΚΤΗΡΕΣ: ΕΠΩΝ
ΑΡΧΗ
! 4.3
Έσοδα ← 0
Πλ ← 0
Πλ14 ← 0
! 4.2
ΔΙΑΒΑΣΕ ΕΠΩΝ
ΟΣΟ ΕΠΩΝ <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ
   ΔΙΑΒΑΣΕ ΔΙΑΡ, ΦΟΡΕΣ
   ΑΝ ΔΙΑΡ <= 20 ΤΟΤΕ
      Κόστος ← ΔΙΑΡ * 20
   ΑΛΛΙΩΣ_ΑΝ ΔΙΑΡ <= 30 ΤΟΤΕ
      Κόστος ← 20 * 20 + (ΔΙΑΡ - 20) * 16
   ΑΛΛΙΩΣ
      Κόστος ← 20 * 20 + 10 * 16 + (ΔΙΑΡ - 30) * 12
   ΤΕΛΟΣ_ΑΝ
   Χρέωση ← Κόστος * ΦΟΡΕΣ
   ΑΝ ΦΟΡΕΣ > 14 ΤΟΤΕ
      Χρέωση ← Χρέωση - Χρέωση * 10 / 100
   ΑΛΛΙΩΣ_ΑΝ ΦΟΡΕΣ >= 7 ΤΟΤΕ
      Χρέωση ← Χρέωση - Χρέωση * 5 / 100
   ΤΕΛΟΣ_ΑΝ
   ΓΡΑΨΕ 'Χρέωση για ', ΕΠΩΝ, ': ', Χρέωση, ' ευρώ'
   ! 4.3
   Έσοδα ← Έσοδα + Χρέωση
   Πλ ← Πλ + 1
   ΑΝ ΦΟΡΕΣ > 14 ΤΟΤΕ
      Πλ14 ← Πλ14 + 1
   ΤΕΛΟΣ_ΑΝ
   ! 4.2
   ΔΙΑΒΑΣΕ ΕΠΩΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.3
ΓΡΑΨΕ 'Συνολικά έσοδα του σταθμού: ', Έσοδα, ' ευρώ'
ΓΡΑΨΕ 'Διαφημίσεις με περισσότερες από 14 εκπομπές: ', Πλ14 / Πλ * 100, '%'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

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

Ctrl + Enter

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

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

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

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

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

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