Τώρα είναι Τρί 31 Μαρ 2020 10:45 pm

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: Μετατροπή ημερομηνίας
ΔημοσίευσηΔημοσιεύτηκε: Τετ 19 Μαρ 2003 12:38 am 
Χωρίς σύνδεση
Διαχειριστής

Εγγραφή: Παρ 28 Φεβ 2003 06:10 pm
Δημοσιεύσεις: 84
Syntax: [ Download ] [ Hide ]
! ================================================================
! Να γίνει πρόγραμμα που να ζητάει:
!   Α) Έναν ακέραιο αριθμό ΗΜΕΡΑ (από 1 ως 7).
!   Β) Έναν ακέραιο αριθμό ΗΜΕΡΟΜΗΝΙΑ (από 1 ως 31).
!   Γ) Έναν ακέραιο αριθμό ΜΗΝΑΣ (από 1 ως 12).
!   Δ) Έναν ακέραιο αριθμό ΕΤΟΣ.
! Στη συνέχεια να εμφανίζει την αντίστοιχη πλήρη ημερομηνία
! ολογράφως. Δηλαδή για είσοδο:
!      ΗΜΕΡΑ=6     ΗΜΕΡΟΜΗΝΙΑ=25     ΜΗΝΑΣ=12     ΕΤΟΣ=2004
! να δίνει σαν έξοδο:
!                  Σάββατο 25 Δεκεμβρίου 2004
! ================================================================


ΠΡΟΓΡΑΜΜΑ Μετατροπή_ημερομηνίας

ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ημέρα, ημερομηνία, μήνας, έτος
  ΧΑΡΑΚΤΗΡΕΣ: ημέρα_λέξη, μήνας_λέξη

ΑΡΧΗ

  ΓΡΑΨΕ 'Δώσε την ημέρα:'
  ΔΙΑΒΑΣΕ ημέρα
  ΓΡΑΨΕ 'Δώσε την ημερομηνία:'
  ΔΙΑΒΑΣΕ ημερομηνία
  ΓΡΑΨΕ 'Δώσε το μήνα:'
  ΔΙΑΒΑΣΕ μήνας
  ΓΡΑΨΕ 'Δώσε το έτος:'
  ΔΙΑΒΑΣΕ έτος

  ΕΠΙΛΕΞΕ ημέρα
    ΠΕΡΙΠΤΩΣΗ 1
      ημέρα_λέξη <-- 'Δευτέρα '
    ΠΕΡΙΠΤΩΣΗ 2
      ημέρα_λέξη <-- 'Τρίτη '
    ΠΕΡΙΠΤΩΣΗ 3
      ημέρα_λέξη <-- 'Τετάρτη '
    ΠΕΡΙΠΤΩΣΗ 4
      ημέρα_λέξη <-- 'Πέμπτη '
    ΠΕΡΙΠΤΩΣΗ 5
      ημέρα_λέξη <-- 'Παρασκευή '
    ΠΕΡΙΠΤΩΣΗ 6
      ημέρα_λέξη <-- 'Σάββατο '
    ΠΕΡΙΠΤΩΣΗ 7
      ημέρα_λέξη <-- 'Κυριακή '
    ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
      ημέρα_λέξη <-- '[Λάθος ημέρα] '
  ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ

  ΕΠΙΛΕΞΕ μήνας
    ΠΕΡΙΠΤΩΣΗ 1
      μήνας_λέξη <-- ' Ιανουαρίου '
    ΠΕΡΙΠΤΩΣΗ 2
      μήνας_λέξη <-- ' Φεβρουαρίου '
    ΠΕΡΙΠΤΩΣΗ 3
      μήνας_λέξη <-- ' Μαρτίου '
    ΠΕΡΙΠΤΩΣΗ 4
      μήνας_λέξη <-- ' Απριλίου '
    ΠΕΡΙΠΤΩΣΗ 5
      μήνας_λέξη <-- ' Μαΐου '
    ΠΕΡΙΠΤΩΣΗ 6
      μήνας_λέξη <-- ' Ιουνίου '
    ΠΕΡΙΠΤΩΣΗ 7
      μήνας_λέξη <-- ' Ιουλίου '
    ΠΕΡΙΠΤΩΣΗ 8
      μήνας_λέξη <-- ' Αυγούστου '
    ΠΕΡΙΠΤΩΣΗ 9
      μήνας_λέξη <-- ' Σεπτεμβρίου '
    ΠΕΡΙΠΤΩΣΗ 10
      μήνας_λέξη <-- ' Οκτωβρίου '
    ΠΕΡΙΠΤΩΣΗ 11
      μήνας_λέξη <-- ' Νοεμβρίου '
    ΠΕΡΙΠΤΩΣΗ 12
      μήνας_λέξη <-- ' Δεκεμβρίου '
    ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
      μήνας_λέξη <-- ' [Λάθος μήνας] '
  ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ

  ΓΡΑΨΕ 'Πλήρης μορφή: ', ημέρα_λέξη, ημερομηνία, μήνας_λέξη, έτος

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Μετατροπή_ημερομηνίας

 


Κορυφή
 Προφίλ  
 
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση : Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές σελίδων: website counters