Τετάρτη 17 Νοεμβρίου 2010

Α.Ε.Π.Π. - Λύση της άσκησης στη δομή ακολουθίας

Αλγόριθμος Υπολογισμός_Ηλικίας
  Διάβασε έτος_γε, μήνας_γε, ημέρα_γε   ! έτος_γεννήσεως
  Διάβασε έτος_τε, μήνας_τε, ημέρα_τε   ! τρέχον_έτος
  ημέρες_τρέχοντος_έτους  365 * έτος_τε + 30 * (μήνας_τε - 1) + ημέρα_τε
  ημέρες_έτους_γεννήσεως  365 * έτος_γε + 30 * (μήνας_γε - 1) + ημέρα_γε
  διαφορά  ημέρες_τρέχοντος_έτους - ημέρες_έτους_γεννήσεως
  έτη_ηλικίας  διαφορά div 365
  βοηθητική  διαφορά mod 365
  μήνες_ηλικίας  βοηθητική div 30
  μέρες_ηλικίας  βοηθητική mod 30
  Εκτύπωσε "Η ηλικία σας είναι ", έτη_ηλικίας, " έτη ", μήνες_ηλικίας, " μήνες και ",
& μέρες_ηλικίας, " ημέρες"  
Τέλος Υπολογισμός_Ηλικίας

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου