Τώρα είναι Σάβ 29 Φεβ 2020 12:35 am

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




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 20 Μάιος 2004 12:08 am 
Χωρίς σύνδεση

Εγγραφή: Πέμ 22 Απρ 2004 11:16 am
Δημοσιεύσεις: 60
Τοποθεσία: Θεσσαλονίκη
Syntax: [ Download ] [ Hide ]
!=======================================================================================================================
! Να υλοποιήσετε πρόγραμμα το οποίο θα δέχεται σαν είσοδο από το χρήστη την τρέχουσα ημέρα της εβδομάδας (ακέραιος 1-7)
! (1 για Κυριακή 2 για ΔΕΥΤΕΡΑ 3 για Τριτη...... 7 για Σαββατο) και έναν ακέραιο αριθμό N. Στη συνέχεια
! θα υπολογίζει και θα εμφανίζει τι μέρα είναι μετά από N ημέρες, όπως και πόσες εβδομάδες πέρασαν μετά από Ν ημέρες.
!=======================================================================================================================

ΠΡΟΓΡΑΜΜΑ Ημέρες
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:i,ΗΜΡ,Ν,νέα
  ΧΑΡΑΚΤΗΡΕΣ:ΗΜΕΡΑ[7]
ΑΡΧΗ

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε τρέχουσα ημέρα (1:ΚΥΡΙΑΚΗ, 2: ΔΕΥΤΕΡΑ, .......7:ΣΑΒΒΑΤΟ)'
    ΔΙΑΒΑΣΕ ΗΜΡ
  ΜΕΧΡΙΣ_ΟΤΟΥ (ΗΜΡ>=1) ΚΑΙ (ΗΜΡ<=7)

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε πλήθος ημερών Ν'
    ΔΙΑΒΑΣΕ Ν
  ΜΕΧΡΙΣ_ΟΤΟΥ Ν>=1

  ΗΜΕΡΑ[1] <-- 'ΚΥΡΙΑΚΗ'
  ΗΜΕΡΑ[2] <-- 'ΔΕΥΤΕΡΑ'
  ΗΜΕΡΑ[3] <-- 'ΤΡΙΤΗ'
  ΗΜΕΡΑ[4] <-- 'ΤΕΤΑΡΤΗ'
  ΗΜΕΡΑ[5] <-- 'ΠΕΜΠΤΗ'
  ΗΜΕΡΑ[6] <-- 'ΠΑΡΑΣΚΕΥΗ'
  ΗΜΕΡΑ[7] <-- 'ΣΑΒΒΑΤΟ'

  ΓΡΑΨΕ 'Σήμερα είναι ',ΗΜΕΡΑ[ΗΜΡ]
  ΓΡΑΨΕ 'Μετά από ',Ν, ' ημέρες'
  ΓΡΑΨΕ 'Θα έχουν περάσει 'DIV 7, ' εβδομάδες και 'MOD 7 , ' ημέρες.'
  ΓΡΑΨΕ_ 'Η μέρα θα είναι: '

  νέα <-- (ΗΜΡ + Ν) MOD 7
  ΓΡΑΨΕ ΗΜΕΡΑ[νέα]

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
 


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

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


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

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


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

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