Παράρτημα Α – 2.5 Επιλογή – Άσκηση 10

1. Ένα ταξιδιωτικό γραφείο οργανώνει 3ήμερες και 5ήμερες εκδρομές στην Κρήτη, Ρόδο και Μύκονο με αεροπλάνο ή πλοίο. Οι τιμές κατ’ άτομο για κάθε περίπτωση, βρίσκονται στον παρακάτω πίνακα.

----------------------------------------------
               Αεροπλάνο     |       Πλοίο
----------------------------------------------
Προορισμός | 3ήμερη | 5ήμερη | 3ήμερη | 5ήμερη
----------------------------------------------
     Κρήτη |  400€  |  600€  |  550€  |  750€
----------------------------------------------
     Ρόδος |  500€  |  700€  |  700€  |  900€
----------------------------------------------
   Μύκονος |  550€  |  650€  |  650€  |  850€
-----------------------------------------------

Να γραφεί πρόγραμμα σε «ΓΛΩΣΣΑ», το οποίο να διαβάζει τον προορισμό, το μέσο μεταφοράς (Π=πλοίο ή Α=Αεροπλάνο), τις ημέρες διαμονής (3 ή 5) και το πλήθος των ατόμων. Στη συνέχεια να υπολογίζει και τυπώνει το κόστος της εκδρομής.
Παρατήρηση: Επειδή δε γίνεται έλεγχος εισόδου, είναι επισφαλής η χρήση της περίπτωσης ΑΛΛΙΩΣ, χωρίς να είναι λάθος η χρήση της. Στον α τρόπο, δεν χρησιμοποιείται η ΑΛΛΙΩΣ, στον β τρόπο, η ΑΛΛΙΩΣ αντιστοιχεί στην εναπομείνουσα επιλογή. ΕΚΣΦΑΛΜΑΤΩΣΗ: Δοκιμάστε και στους 2 τρόπους το σετ τιμών (ΑΛΛΟ,ΑΛΛΟ,7,1). Τι παρατηρείτε;

 ! Α ΤΡΟΠΟΣ
ΠΡΟΓΡΑΜΜΑ  parartima_a_sel_36_9a
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΚΟΣΤΟΣ
  ΧΑΡΑΚΤΗΡΕΣ: ΠΡΟΟΡΙΣΜΟΣ, ΜΕΣΟ
  ΑΚΕΡΑΙΕΣ: ΗΜΕΡΕΣ, ΠΛΗΘΟΣ
ΑΡΧΗ
ΚΟΣΤΟΣ <- 0    ! ΑΝ ΔΟΘΕΙ ΛΑΘΟΣ ΕΙΣΟΔΟΣ, ΘΑ ΕΜΦΑΝΙΣΕΙ ΚΟΣΤΟΣ=0 
ΓΡΑΨΕ 'ΔΩΣΤΕ ΠΡΟΟΡΙΣΜΟ(ΚΡΗΤΗ/ΡΟΔΟΣ/ΜΥΚΟΝΟΣ):'
ΔΙΑΒΑΣΕ ΠΡΟΟΡΙΣΜΟΣ
ΓΡΑΨΕ 'ΔΩΣΤΕ ΜΕΣΟ ΜΕΤΑΦΟΡΑΣ (ΑΕΡΟΠΛΑΝΟ/ΠΛΟΙΟ):'
ΔΙΑΒΑΣΕ ΜΕΣΟ 
ΓΡΑΨΕ 'ΔΩΣΤΕ ΗΜΕΡΕΣ ΔΙΑΜΟΝΗΣ (3/5):'
ΔΙΑΒΑΣΕ ΗΜΕΡΕΣ 
ΓΡΑΨΕ 'ΔΩΣΤΕ ΠΛΗΘΟΣ ΑΤΟΜΩΝ:'
ΔΙΑΒΑΣΕ ΠΛΗΘΟΣ
ΑΝ ΜΕΣΟ = 'ΑΕΡΟΠΛΑΝΟ' ΤΟΤΕ
   ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΚΡΗΤΗ' ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 400 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ_ΑΝ ΗΜΕΡΕΣ=5 ΤΟΤΕ 
         ΚΟΣΤΟΣ <- 600 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ_ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΡΟΔΟΣ'  ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 500 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ_ΑΝ ΗΜΕΡΕΣ=5 ΤΟΤΕ 
         ΚΟΣΤΟΣ <- 700 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ_ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΜΥΚΟΝΟΣ'  ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 550 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ_ΑΝ ΗΜΕΡΕΣ=5 ΤΟΤΕ 
         ΚΟΣΤΟΣ <- 650 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ ΜΕΣΟ = 'ΠΛΟΙΟ' ΤΟΤΕ
   ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΚΡΗΤΗ' ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 550 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ_ΑΝ ΗΜΕΡΕΣ=5 ΤΟΤΕ 
         ΚΟΣΤΟΣ <- 750 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ_ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΡΟΔΟΣ'  ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 700 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ_ΑΝ ΗΜΕΡΕΣ=5 ΤΟΤΕ 
         ΚΟΣΤΟΣ <- 900 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ_ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΜΥΚΟΝΟΣ'  ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 650 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ_ΑΝ ΗΜΕΡΕΣ=5 ΤΟΤΕ 
         ΚΟΣΤΟΣ <- 850 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'ΚΟΣΤΟΣ ΕΚΔΡΟΜΗΣ:', ΚΟΣΤΟΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 

 ! Β ΤΡΟΠΟΣ
ΠΡΟΓΡΑΜΜΑ  parartima_a_sel_36_9b
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΚΟΣΤΟΣ
  ΧΑΡΑΚΤΗΡΕΣ: ΠΡΟΟΡΙΣΜΟΣ, ΜΕΣΟ
  ΑΚΕΡΑΙΕΣ: ΗΜΕΡΕΣ, ΠΛΗΘΟΣ
ΑΡΧΗ
ΚΟΣΤΟΣ <- 0    ! ΑΝ ΔΟΘΕΙ ΛΑΘΟΣ ΕΙΣΟΔΟΣ, ΘΑ ΕΜΦΑΝΙΣΕΙ ΚΟΣΤΟΣ=0 
ΓΡΑΨΕ 'ΔΩΣΤΕ ΠΡΟΟΡΙΣΜΟ(ΚΡΗΤΗ/ΡΟΔΟΣ/ΜΥΚΟΝΟΣ):'
ΔΙΑΒΑΣΕ ΠΡΟΟΡΙΣΜΟΣ
ΓΡΑΨΕ 'ΔΩΣΤΕ ΜΕΣΟ ΜΕΤΑΦΟΡΑΣ (ΑΕΡΟΠΛΑΝΟ/ΠΛΟΙΟ):'
ΔΙΑΒΑΣΕ ΜΕΣΟ 
ΓΡΑΨΕ 'ΔΩΣΤΕ ΗΜΕΡΕΣ ΔΙΑΜΟΝΗΣ (3/5):'
ΔΙΑΒΑΣΕ ΗΜΕΡΕΣ 
ΓΡΑΨΕ 'ΔΩΣΤΕ ΠΛΗΘΟΣ ΑΤΟΜΩΝ:'
ΔΙΑΒΑΣΕ ΠΛΗΘΟΣ
ΑΝ ΜΕΣΟ = 'ΑΕΡΟΠΛΑΝΟ' ΤΟΤΕ
   ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΚΡΗΤΗ' ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 400 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ ! 5ΗΜΕΡΗ
         ΚΟΣΤΟΣ <- 600 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ_ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΡΟΔΟΣ'  ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 500 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ ! 5ΗΜΕΡΗ
         ΚΟΣΤΟΣ <- 700 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ             ! ΜΥΚΟΝΟΣ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 550 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ ! 5ΗΜΕΡΗ
         ΚΟΣΤΟΣ <- 650 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ  ! ΠΛΟΙΟ
   ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΚΡΗΤΗ' ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 550 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ ! 5ΗΜΕΡΗ
         ΚΟΣΤΟΣ <- 750 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ_ΑΝ ΠΡΟΟΡΙΣΜΟΣ = 'ΡΟΔΟΣ'  ΤΟΤΕ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 700 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ ! 5ΗΜΕΡΗ
         ΚΟΣΤΟΣ <- 900 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ             ! ΜΥΚΟΝΟΣ
      ΑΝ ΗΜΕΡΕΣ=3 ΤΟΤΕ
         ΚΟΣΤΟΣ <- 650 * ΠΛΗΘΟΣ
      ΑΛΛΙΩΣ ! 5ΗΜΕΡΗ
         ΚΟΣΤΟΣ <- 850 * ΠΛΗΘΟΣ
      ΤΕΛΟΣ_ΑΝ
   ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'ΚΟΣΤΟΣ ΕΚΔΡΟΜΗΣ:', ΚΟΣΤΟΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ