Θέμα: Άσκήσεις υποπρογράμματα

[Παναγιώτης Τσιωτάκης]

Ασκήσεις υποπρογράμματα μιας και δεν υπάρχουν και πολλές

[Παναγιώτης Τσιωτάκης]

Τα [glοssa] tags δουλεύουν Άλκη?
[glossa]
! http://users.kor.sch.gr/ptsiotakis/aepp/aepp_ask/ch10/aepp_ask10_3.htm άσκηση 5
! Να γράψετε πρόγραμμα που να δέχεται έναν ακέραιο τριψήφιο αριθμό
! και να επιστρέφει τον αντίστοιχο δυαδικό αριθμό
ΠΡΟΓΡΑΜΜΑ  Μετατροπή
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ : i, αριθμός, ΠΙΝΑΚΑΣ[10], στοιχεία
 ΛΟΓΙΚΕΣ: εκτίμηση
ΑΡΧΗ
 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
   ΓΡΑΨΕ "Παρακαλώ δώστε έναν τριψήφιο αριθμό"
   ΔΙΑΒΑΣΕ αριθμός
   εκτίμηση <-- Έλεγχος_Τριψήφιος (αριθμός)
 ΜΕΧΡΙΣ_ΟΤΟΥ  εκτίμηση = ΑΛΗΘΗΣ

 ΚΑΛΕΣΕ  Δεκαδικός_σε_Δυαδικό (αριθμός, ΠΙΝΑΚΑΣ, στοιχεία)

 ΓΡΑΨΕ "Ακολουθεί ο αντίστοιχος δυαδικός αριθμός "
 ΓΡΑΨΕ
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ στοιχεία
   ΓΡΑΨΕ ΠΙΝΑΚΑΣ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!============================================================
ΔΙΑΔΙΚΑΣΙΑ Δεκαδικός_σε_Δυαδικό (αριθμός, ΠΙΝΑΚΑΣ, ψηφία)
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ : αριθμός, temp_αριθμός, i, ΠΙΝΑΚΑΣ[10], temp_ΠΙΝΑΚΑΣ[10], ψηφία
ΑΡΧΗ
 temp_αριθμός <-- αριθμός
 ψηφία <-- 0
 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
   ψηφία <-- ψηφία + 1
   temp_ΠΙΝΑΚΑΣ[ψηφία] <-- temp_αριθμός MOD 2
   temp_αριθμός <-- temp_αριθμός DIV 2
 ΜΕΧΡΙΣ_ΟΤΟΥ (temp_αριθμός = 0)
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ψηφία                   !  αντιστροφή πίνακα
   ΠΙΝΑΚΑΣ <-- temp_ΠΙΝΑΚΑΣ[ψηφία + 1 - i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!============================================================
! Τροποποίηση της http://users.kor.sch.gr/ptsiotakis/aepp/aepp_ask/ch10/aepp_ask10_1.htm άσκηση 9
ΣΥΝΑΡΤΗΣΗ Έλεγχος_Τριψήφιος (αριθμός): ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
 ΛΟΓΙΚΕΣ: εκτίμηση
 ΑΚΕΡΑΙΕΣ : αριθμός
 ΠΡΑΓΜΑΤΙΚΕΣ : χιλιάδες
ΑΡΧΗ
 χιλιάδες <-- αριθμός DIV 100
 ΑΝ (χιλιάδες >= 1) ΚΑΙ (χιλιάδες <= 9) ΤΟΤΕ
   εκτίμηση <-- ΑΛΗΘΗΣ
 ΑΛΛΙΩΣ
   εκτίμηση <-- ΨΕΥΔΗΣ
 ΤΕΛΟΣ_ΑΝ
 Έλεγχος_Τριψήφιος <-- εκτίμηση
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
[/glossa]
Αν χρειάζονται περαιτέρω σχόλια για το πρόγραμμα είμαι διαθέσιμος  

[alkisg]

Ναι, δουλεύουν κανονικά, μάλιστα τα έβαλα και στο post σου. Όταν θέλετε αυτόματο χρωματισμό κώδικα γράφετε [glοssa]Εδώ μπαίνει ο κώδικας[/glοssa] και δεν επιλέγετε το [ ] Τσεκάρετε εδώ αν θα χρησιμοποιήσετε κώδικα (ή δεν συμπαθείτε τον Smiley).

(Λεπτομέρεια: τα [glοssa] που γράφω παραπάνω τα έγραψα επίτηδες λάθος με ελληνικό όμικρον (glΟssa) αντί του σωστού αγγλικού γιατί αλλιώς δεν θα εμφανιζόταν τα tags αλλά θα εμφανιζόταν μόνο ο χρωματισμένος κώδικας: [glossa]Εδώ μπαίνει ο κώδικας[/glossa]

[Ηλίας Πούλης]

 :furious3:
Πρόγραμμα με πρακτορείο εισιτηρίων (Η πληρης εκφώνηση δεν είναι ετοιμη). Αν βρείτε πρόβλημα στείλτε το στην ipoulis@sch.gr. Τρέχει σε γλώσσα

Ηλίας Πούλης

[glossa]
ΠΡΟΓΡΑΜΜΑ ΠΡΑΚΤΟΡΕΙΟ
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ: ΚΟΣ,ΣΕ,ΘΕ,ΑΠ1,ΣΥΝΟΛΟ,ΚΟΣ_ΕΙΣ,ΣΥΝ_ΕΙΣ,ΚΟΣ_ΙΧ,ΣΥΝ_ΙΧ
 ΑΚΕΡΑΙΕΣ: ΚΟΣ_ΜΟΤΟ,ΣΥΝ_ΜΟΤΟ,ΚΟΣ_ΦΟ,ΣΥΝ_ΦΟ
 ΧΑΡΑΚΤΗΡΕΣ: Σ1,Σ2
ΑΡΧΗ
 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      !ΕΙΧΑ ΞΕΧΑΣΕΙ ΤΗΝ ΑΡΧΙΚΟΠΟΙΗΣΗ => ΛΑΘΟΣ ΚΑΤΑ ΤΗΝ ΕΚΤΕΛΕΣΗ
   ΚΟΣ_ΕΙΣ <-- 0
   ΣΥΝ_ΕΙΣ <-- 0
   ΚΟΣ_ΙΧ <-- 0
   ΣΥΝ_ΙΧ <-- 0
   ΚΟΣ_ΜΟΤΟ <-- 0
   ΣΥΝ_ΜΟΤΟ <-- 0
   ΚΟΣ_ΦΟ <-- 0
   ΣΥΝ_ΦΟ <-- 0
   ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
     ΚΑΛΕΣΕ ΜΕΝΟΥ1
     ΔΙΑΒΑΣΕ ΑΠ1
     ΕΠΙΛΕΞΕ ΑΠ1
       ΠΕΡΙΠΤΩΣΗ 1
         ΚΑΛΕΣΕ ΚΟΣΤΟΣ_ΕΙΣ(ΚΟΣ,ΣΕ,ΘΕ)
         ΚΟΣ_ΕΙΣ <-- ΚΟΣ_ΕΙΣ+ΚΟΣ
         ΣΥΝ_ΕΙΣ <-- ΣΥΝ_ΕΙΣ+ΣΕ
       ΠΕΡΙΠΤΩΣΗ 2,3,4
         ΚΟΣ <-- ΚΟΣΤΟΣ_ΟΧ(ΑΠ1)
         ΑΝ ΑΠ1=2 ΤΟΤΕ
           ΚΟΣ_ΙΧ <-- ΚΟΣ_ΙΧ+ΚΟΣ
           ΣΥΝ_ΙΧ <-- ΣΥΝ_ΙΧ+1
         ΑΛΛΙΩΣ_ΑΝ ΑΠ1=3 ΤΟΤΕ
           ΚΟΣ_ΜΟΤΟ <-- ΚΟΣ_ΜΟΤΟ+ΚΟΣ
           ΣΥΝ_ΜΟΤΟ <-- ΣΥΝ_ΜΟΤΟ+1
         ΑΛΛΙΩΣ_ΑΝ ΑΠ1=4 ΤΟΤΕ
           ΚΟΣ_ΦΟ <-- ΚΟΣ_ΦΟ+ΚΟΣ
           ΣΥΝ_ΦΟ <-- ΣΥΝ_ΦΟ+1
         ΤΕΛΟΣ_ΑΝ
     ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
     ΓΡΑΨΕ 'ΘΕΣ ΚΑΙ ΑΛΛΗ ΣΥΝΑΛΛΑΓΗ ΓΙΑ ΤΗΝ ΙΔΙΑ ΚΡΑΤΗΣΗ;;'
     ΚΑΛΕΣΕ ΔΙΑΒΑΠ(Σ1)
   ΜΕΧΡΙΣ_ΟΤΟΥ Σ1='Ο'
   ΣΥΝΟΛΟ <-- ΚΟΣ_ΕΙΣ+ΚΟΣ_ΙΧ+ΚΟΣ_ΜΟΤΟ+ΚΟΣ_ΦΟ
   ΓΡΑΨΕ 'ΓΙΑ ',ΣΥΝ_ΕΙΣ,' ΕΙΣΙΤΗΡΙΟ/Α    : ',ΚΟΣ_ΕΙΣ,' Euro'
   ΓΡΑΨΕ 'ΓΙΑ ',ΣΥΝ_ΙΧ,' ΑΥΤΟΚΙΝΗΤΟ/Α   : ',ΚΟΣ_ΙΧ,' Euro'
   ΓΡΑΨΕ 'ΓΙΑ ',ΣΥΝ_ΜΟΤΟ,' ΜΟΤΟΣΥΚΛΕΤΑ/ΕΣ : ',ΚΟΣ_ΜΟΤΟ,' Euro'
   ΓΡΑΨΕ 'ΓΙΑ ',ΣΥΝ_ΦΟ,' ΦΟΡΤΗΓΟ/Α : ',ΚΟΣ_ΦΟ,' Euro'
   ΓΡΑΨΕ 'ΤΟ ΣΥΝΟΛΟ ΕΙΝΑΙ : ',ΣΥΝΟΛΟ,' Euro'
   ΓΡΑΨΕ 'ΘΕΣ ΝΕΑ ΣΥΝΑΛΛΑΓΗ ΓΙΑ ΑΛΛΗ ΚΡΑΤΗΣΗ;;'
   ΚΑΛΕΣΕ ΔΙΑΒΑΠ(Σ2)
 ΜΕΧΡΙΣ_ΟΤΟΥ Σ2='Ο'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΜΕΝΟΥ1
ΑΡΧΗ
 ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΕΠΙΛΟΓΗ ΣΟΥ'
 ΓΡΑΨΕ '1. ΓΙΑ ΕΙΣΙΤΗΡΙΑ'
 ΓΡΑΨΕ '2. ΓΙΑ ΑΥΤΟΚΙΝΗΤΑ'
 ΓΡΑΨΕ '3. ΓΙΑ ΜΟΤΟΣΥΚΛΕΤΑ'
 ΓΡΑΨΕ '4. ΓΙΑ ΦΟΡΤΗΓΟ'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΜΕΝΟΥ2
ΑΡΧΗ
 ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΕΠΙΛΟΓΗ ΤΗΣ ΘΕΣΗΣ'
 ΓΡΑΨΕ '1. ΓΙΑ Α ΘΕΣΗ'
 ΓΡΑΨΕ '2. ΓΙΑ Γ ΘΕΣΗ'
 ΓΡΑΨΕ '3. ΓΙΑ ΚΑΜΠΙΝΑ'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΚΟΣΤΟΣ_ΕΙΣ(Κ,Σ,Θ)
ΣΤΑΘΕΡΕΣ
 ΑΘ=35
 ΓΘ=25
 ΚΑ=65
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ:Θ,Σ,Κ
ΑΡΧΗ
 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
   ΚΑΛΕΣΕ ΜΕΝΟΥ2
! Θ= Η ΘΕΣΗ ΠΟΥ ΕΠΙΛΕΓΕΙ
   ΔΙΑΒΑΣΕ Θ
! Σ= Ο ΑΡΙΘΜΟΣ ΤΩΝ ΑΤΟΜΩΝ
   ΓΡΑΨΕ 'ΔΩΣΕ ΑΡΙΘΜΟ ΑΤΟΜΩΝ'
   ΚΑΛΕΣΕ ΔΙΑΒΘ(Σ)
   ΕΠΙΛΕΞΕ Θ
     ΠΕΡΙΠΤΩΣΗ 1
       Κ <-- Σ*ΑΘ
     ΠΕΡΙΠΤΩΣΗ 2
       Κ <-- Σ*ΓΘ
     ΠΕΡΙΠΤΩΣΗ 3
       Κ <-- Σ*ΚΑ
     ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
       ΓΡΑΨΕ 'ΛΑΘΟΣ ΕΠΙΛΟΓΗΣ, ΞΑΝΑΔΩΣΕ'
   ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
 ΜΕΧΡΙΣ_ΟΤΟΥ Θ > 0 ΚΑΙ Θ < 4
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΒΘ(Χ)
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ:Χ
ΑΡΧΗ
 ΓΡΑΨΕ 'ΔΩΣΕ ΘΕΤΙΚΟ ΑΡΙΘΜΟ'
 ΔΙΑΒΑΣΕ Χ
 ΟΣΟ Χ < 0 ΕΠΑΝΑΛΑΒΕ
   ΓΡΑΨΕ 'ΕΔΩΣΕΣ ΑΡΝΗΤΙΚΟ, ΞΑΝΑΔΩΣΕ'
   ΔΙΑΒΑΣΕ Χ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΣΥΝΑΡΤΗΣΗ ΚΟΣΤΟΣ_ΟΧ(Α):ΑΚΕΡΑΙΑ
ΣΤΑΘΕΡΕΣ
 ΑΥ=75
 ΜΟ=30
 ΦΟ=150
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ: Α,Κ
ΑΡΧΗ
 Κ <-- 0
 ΑΝ Α=2 ΤΟΤΕ
   Κ <-- ΑΥ
 ΑΛΛΙΩΣ_ΑΝ Α=3 ΤΟΤΕ
   Κ <-- ΜΟ
 ΑΛΛΙΩΣ_ΑΝ Α=4 ΤΟΤΕ
   Κ <-- ΦΟ
 ΤΕΛΟΣ_ΑΝ
 ΚΟΣΤΟΣ_ΟΧ <-- Κ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΒΑΠ(ΣΥΝΕΧΕΙΑ)
ΜΕΤΑΒΛΗΤΕΣ
 ΧΑΡΑΚΤΗΡΕΣ: ΣΥΝΕΧΕΙΑ
ΑΡΧΗ
 ΓΡΑΨΕ 'ΓΙΑ ΝΑΙ ΠΑΤΗΣΕ Ν -- ΓΙΑ ΟΧΙ ΠΑΤΗΣΕ Ο'
 ΔΙΑΒΑΣΕ ΣΥΝΕΧΕΙΑ
 ΟΣΟ ΣΥΝΕΧΕΙΑ <> 'Ν' ΚΑΙ ΣΥΝΕΧΕΙΑ <> 'Ο' ΕΠΑΝΑΛΑΒΕ
   ΓΡΑΨΕ 'ΕΙΠΑΜΕ ΡΕ!! ΓΙΑ ΝΑΙ ΠΑΤΗΣΕ Ν -- ΓΙΑ ΟΧΙ ΠΑΤΗΣΕ Ο'
   ΔΙΑΒΑΣΕ ΣΥΝΕΧΕΙΑ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
[/glossa]


Ηλία πήρα πρωτοβουλία και διόρθωσα τα λάθη, σβήνοντας το επόμενο μήνυμά σου - Τσιωτάκης Παναγιώτης

[Παναγιώτης Τσιωτάκης]

Αγαπητέ Ηλία,

ενδιαφέρον το πρόγραμμα, θα το μελετήσω πιο διεξοδικά προσεχώς. Μπορείς να αφιερώσεις 3 λεπτά να δημιουργήσεις ένα account στο forum για μεγαλύτερη οργάνωση. Όλοι περιμένουμε περισσότερη συμμετοχή από όλους...

Με εκτίμηση,

[Παναγιώτης Τσιωτάκης]

Άσκηση 10.6.4 δικτυακού κόμβου : Να διαβαστεί αριθμός εντός του διαστήματος [1, 10] και να υπολογιστεί η παράσταση:

S = (a+1)^2/1! + (a+2)^2/2! + ... + (a+a)^2/a!


[glossa]

ΠΡΟΓΡΑΜΜΑ Υπολογισμός_Παράστασης
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ: μετρητής, κάτω_όριο, άνω_όριο, Α, αριθμητής, παρονομαστής, παράγοντας
 ΠΡΑΓΜΑΤΙΚΕΣ: άθροισμα
ΑΡΧΗ
 κάτω_όριο <-- 0
 άνω_όριο <-- 10
 ΚΑΛΕΣΕ Επιτρεπτή_Τιμή (Α, κάτω_όριο, άνω_όριο)!  έλεγχος δεδομένων με διαδικασία
 άθροισμα <-- 0
 ΓΙΑ μετρητής ΑΠΟ 1 ΜΕΧΡΙ Α
   παράγοντας <-- Α + μετρητής
   αριθμητής <-- Εις_το_Τετράγωνο (παράγοντας)
   παρονομαστής <-- Παραγοντικό (μετρητής)
   άθροισμα <-- άθροισμα + αριθμητής / παρονομαστής
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΡΑΨΕ 'Η παράσταση είναι ', άθροισμα
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!==================================================================
ΔΙΑΔΙΚΑΣΙΑ Επιτρεπτή_Τιμή (αριθμός, όριο_κάτω, όριο_άνω)
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ : αριθμός, όριο_κάτω, όριο_άνω, εκτίμηση
ΑΡΧΗ
 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
   ΓΡΑΨΕ 'Δώστε έναν αριθμό στο διάστημα [', όριο_κάτω, ', ',  όριο_άνω, ']'
   ΔΙΑΒΑΣΕ εκτίμηση
 ΜΕΧΡΙΣ_ΟΤΟΥ (εκτίμηση >= όριο_κάτω) ΚΑΙ (εκτίμηση <= όριο_άνω)
 αριθμός <-- εκτίμηση
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!==================================================================
ΣΥΝΑΡΤΗΣΗ Παραγοντικό (αριθμός):    ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ : αριθμός, εκτίμηση, i
ΑΡΧΗ
 ΑΝ (αριθμός < 0) ΤΟΤΕ
   εκτίμηση <-- -1!   Η  τιμή -1 θα ερμηνευτεί ως λάθος δεδομένο εισόδου
 ΑΛΛΙΩΣ
   εκτίμηση <-- 1
   ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ αριθμός
        εκτίμηση <-- εκτίμηση * i
   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΤΕΛΟΣ_ΑΝ
 Παραγοντικό <-- εκτίμηση
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
!==================================================================
ΣΥΝΑΡΤΗΣΗ Εις_το_Τετράγωνο (Χ): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ:  Χ, εκτίμηση
ΑΡΧΗ
 εκτίμηση <-- Α_Μ (Χ^2)
 Εις_το_Τετράγωνο <-- εκτίμηση
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

[/glossa]

Με εκτίμηση,  :whip: