Το παρακάτω πρόγραμμα είναι ένα λελεδόμετρο στρατού. Τέτοιες εφαρμογές υπάρχουν και για κινητά.
Ο χρήστης δίνει:
1. Tο σώμα που υπηρετεί (στρατό ξηράς, ναυτικό, αεροπορία)
2. Tο σύνολο της θητείας του (σε μήνες)
3. Tο πόσες μέρες του απομένουν μέχρι να απολυθεί.
Το πρόγραμμα υπολογίζει ποιό βαθμό "έχει", ανάλογα με τα παραπάνω. Όσο πλησιάζει η μέρα να απολυθεί, τόσο ανεβαίνει σε "γαλόνια". Το πρόγραμμα χρησιμοποιεί 3 μονοδιάστατους πίνακες, έναν για κάθε σώμα στρατού (που περιέχουν τους αντίστοιχους βαθμούς των αξιωματικών) και κάνει έλεγχο δεδομένων στην είσοδο. Δέχεται ΜΟΝΟ ΑΚΕΡΑΙΕΣ και ΘΕΤΙΚΕΣ τιμές για τους μήνες θητείας και τις μέρες. Επίσης η θητεία δεν πρέπει να είναι μικρότερη από 2 μήνες (άμα έκανες λιγότερο από 2 μήνες, ΔΕΝ πήγες στρατό!!)
ΠΡΟΓΡΑΜΜΑ ΛΕΛΕΔΟΜΕΤΡΟ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ:ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[18], ΝΑΥΤΙΚΟ[18], ΑΕΡΟΠΟΡΙΑ[18]
ΑΚΕΡΑΙΕΣ: ΣΩΜΑ, ΑΠΟΛΥΣΗ, ΘΗΤΕΙΑ, ΒΑΘΜΟΣ, ΠΡΟΑΓΩΓΗ
ΑΡΧΗ
! ΣΤΡΑΤΟΣ ΞΗΡΑΣ
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[1] <-- 'ΣΤΡΑΤΗΓΟΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[2] <-- 'ΑΝΤΙΣΤΡΑΤΗΓΟΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[3] <-- 'ΥΠΟΣΤΡΑΤΗΓΟΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[4] <-- 'ΤΑΞΙΑΡΧΟΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[5] <-- 'ΣΥΝΤΑΓΜΑΤΑΡΧΗΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[6] <-- 'ΑΝΤΙΣΥΝΤΑΓΜΑΤΑΡΧΗΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[7] <-- 'ΤΑΓΜΑΤΑΡΧΗΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[8] <-- 'ΛΟΧΑΓΟΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[9] <-- 'ΥΠΟΛΟΧΑΓΟΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[10] <-- 'ΑΝΘΥΠΟΛΟΧΑΓΟΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[11] <-- 'ΔΟΚΙΜΟΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[12] <-- 'ΑΝΘΥΠΑΣΠΙΣΤΗΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[13] <-- 'ΑΡΧΙΛΟΧΙΑΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[14] <-- 'ΕΠΙΛΟΧΙΑΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[15] <-- 'ΛΟΧΙΑΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[16] <-- 'ΔΕΚΑΝΕΑΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[17] <-- 'ΥΠΟΔΕΚΑΝΕΑΣ'
ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[18] <-- 'ΣΤΡΑΤΙΩΤΗΣ'
! ΝΑΥΤΙΚΟ
ΝΑΥΤΙΚΟ[1] <-- 'ΝΑΥΑΡΧΟΣ'
ΝΑΥΤΙΚΟ[2] <-- 'ΑΝΤΙΝΑΥΑΡΧΟΣ'
ΝΑΥΤΙΚΟ[3] <-- 'ΥΠΟΝΑΥΑΡΧΟΣ'
ΝΑΥΤΙΚΟ[4] <-- 'ΑΡΧΙΠΛΟΙΑΡΧΟΣ'
ΝΑΥΤΙΚΟ[5] <-- 'ΠΛΟΙΑΡΧΟΣ'
ΝΑΥΤΙΚΟ[6] <-- 'ΑΝΤΙΠΛΟΙΑΡΧΟΣ'
ΝΑΥΤΙΚΟ[7] <-- 'ΠΛΩΤΑΡΧΗΣ'
ΝΑΥΤΙΚΟ[8] <-- 'ΥΠΟΠΛΟΙΑΡΧΟΣ'
ΝΑΥΤΙΚΟ[9] <-- 'ΑΝΘΥΠΟΠΛΟΙΑΡΧΟΣ'
ΝΑΥΤΙΚΟ[10] <-- 'ΣΗΜΑΙΟΦΟΡΟΣ'
ΝΑΥΤΙΚΟ[11] <-- 'ΕΠΙΚΟΥΡΟΣ'
ΝΑΥΤΙΚΟ[12] <-- 'ΑΝΘΥΠΑΣΠΙΣΤΗΣ'
ΝΑΥΤΙΚΟ[13] <-- 'ΑΡΧΙΚΕΛΕΥΣΤΗΣ'
ΝΑΥΤΙΚΟ[14] <-- 'ΕΠΙΚΕΛΕΥΣΤΗΣ'
ΝΑΥΤΙΚΟ[15] <-- 'ΚΕΛΕΥΣΤΗΣ'
ΝΑΥΤΙΚΟ[16] <-- 'ΔΙΟΠΟΣ'
ΝΑΥΤΙΚΟ[17] <-- 'ΥΠΟΔΙΟΠΟΣ'
ΝΑΥΤΙΚΟ[18] <-- 'ΝΑΥΤΗΣ'
! ΑΕΡΟΠΟΡΙΑ
ΑΕΡΟΠΟΡΙΑ[1] <-- 'ΠΤΕΡΑΡΧΟΣ'
ΑΕΡΟΠΟΡΙΑ[2] <-- 'ΑΝΤΙΠΤΕΡΑΡΧΟΣ'
ΑΕΡΟΠΟΡΙΑ[3] <-- 'ΥΠΟΠΤΕΡΑΡΧΟΣ'
ΑΕΡΟΠΟΡΙΑ[4] <-- 'ΤΑΞΙΑΡΧΟΣ'
ΑΕΡΟΠΟΡΙΑ[5] <-- 'ΣΜΗΝΑΡΧΟΣ'
ΑΕΡΟΠΟΡΙΑ[6] <-- 'ΑΝΙΣΜΗΝΑΡΧΟΣ'
ΑΕΡΟΠΟΡΙΑ[7] <-- 'ΕΠΙΣΜΗΝΑΓΟΣ'
ΑΕΡΟΠΟΡΙΑ[8] <-- 'ΣΜΗΝΑΓΟΣ'
ΑΕΡΟΠΟΡΙΑ[9] <-- 'ΥΠΟΣΜΗΝΑΓΟΣ'
ΑΕΡΟΠΟΡΙΑ[10] <-- 'ΑΝΘΥΠΟΣΜΗΝΑΓΟΣ'
ΑΕΡΟΠΟΡΙΑ[11] <-- 'ΔΟΚΙΜΟΣ'
ΑΕΡΟΠΟΡΙΑ[12] <-- 'ΑΝΘΥΠΑΣΠΙΣΤΗΣ'
ΑΕΡΟΠΟΡΙΑ[13] <-- 'ΑΡΧΙΣΜΗΝΙΑΣ'
ΑΕΡΟΠΟΡΙΑ[14] <-- 'ΕΠΙΣΜΗΝΙΑΣ'
ΑΕΡΟΠΟΡΙΑ[15] <-- 'ΣΜΗΝΙΑΣ'
ΑΕΡΟΠΟΡΙΑ[16] <-- 'ΥΠΟΣΜΗΝΙΑΣ'
ΑΕΡΟΠΟΡΙΑ[17] <-- 'ΑΝΘΥΠΟΣΜΗΝΙΑΣ'
ΑΕΡΟΠΟΡΙΑ[18] <-- 'ΣΜΗΝΙΤΗΣ'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΩΣΕ ΣΩΜΑ ΣΤΡΑΤΟΥ'
ΓΡΑΨΕ '1 ΓΙΑ ΣΤΡΑΤΟ ΞΗΡΑΣ'
ΓΡΑΨΕ '2 ΓΙΑ ΝΑΥΤΙΚΟ'
ΓΡΑΨΕ '3 ΓΙΑ ΑΕΡΟΠΟΡΙΑ'
ΔΙΑΒΑΣΕ ΣΩΜΑ
ΑΝ ΣΩΜΑ < 1 Η ΣΩΜΑ > 3 ΤΟΤΕ
ΓΡΑΨΕ 'ΛΑΘΟΣ ΔΕΔΟΜΕΝΑ ΠΡΟΣΠΑΘΗΣΤΕ ΞΑΝΑ'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ΣΩΜΑ > 0 ΚΑΙ ΣΩΜΑ < 4
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΩΣΕ ΣΥΝΟΛΟ ΘΗΤΕΙΑΣ ΣΕ ΜΗΝΕΣ'
ΔΙΑΒΑΣΕ ΘΗΤΕΙΑ
ΑΝ ΘΗΤΕΙΑ < 2 ΤΟΤΕ
ΓΡΑΨΕ 'ΛΑΘΟΣ ΔΕΔΟΜΕΝΑ ΠΡΟΣΠΑΘΗΣΤΕ ΞΑΝΑ'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ΘΗΤΕΙΑ > 1
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΩΣΕ ΗΜΕΡΕΣ ΓΙΑ ΑΠΟΛΥΣΗ'
ΔΙΑΒΑΣΕ ΑΠΟΛΥΣΗ
ΑΝ ΑΠΟΛΥΣΗ <= 0 ΤΟΤΕ
ΓΡΑΨΕ 'ΛΑΘΟΣ ΔΕΔΟΜΕΝΑ ΠΡΟΣΠΑΘΗΣΤΕ ΞΑΝΑ'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠΟΛΥΣΗ > 0
ΠΡΟΑΓΩΓΗ <-- (ΘΗΤΕΙΑ*30) DIV 18
ΒΑΘΜΟΣ <-- ΑΠΟΛΥΣΗ DIV ΠΡΟΑΓΩΓΗ + 1
ΑΝ ΒΑΘΜΟΣ > 18 ΤΟΤΕ
ΒΑΘΜΟΣ <-- 18
ΤΕΛΟΣ_ΑΝ
ΕΠΙΛΕΞΕ ΣΩΜΑ
ΠΕΡΙΠΤΩΣΗ 1
ΓΡΑΨΕ 'Ο ΒΑΘΜΟΣ ΣΟΥ ΕΙΝΑΙ:',ΣΤΡΑΤΟΣ_ΞΗΡΑΣ[ΒΑΘΜΟΣ]
ΠΕΡΙΠΤΩΣΗ 2
ΓΡΑΨΕ 'Ο ΒΑΘΜΟΣ ΣΟΥ ΕΙΝΑΙ:',ΝΑΥΤΙΚΟ[ΒΑΘΜΟΣ]
ΠΕΡΙΠΤΩΣΗ 3
ΓΡΑΨΕ 'Ο ΒΑΘΜΟΣ ΣΟΥ ΕΙΝΑΙ:',ΑΕΡΟΠΟΡΙΑ[ΒΑΘΜΟΣ]
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Σύνδεση 
Εγγραφή
Συχνές Ερωτήσεις
Αναζήτηση
