Γράψε
"--------------------------------------------------"
Γράψε
"Χαρακτηρισμός δίσεκτου έτους με απλή δομή επιλογής"
Γράψε
"--------------------------------------------------"
δίσεκτο <- ψευδης
έτος <- 2000
Αν
έτος mod 4 = 0
Τότε
δίσεκτο <- αληθης
Τέλος_Αν
Αν
έτος mod 100 = 0
Τότε
δίσεκτο <- ψευδης
Τέλος_Αν
Αν
έτος mod 400 = 0
Τότε
δίσεκτο <- αληθης
Τέλος_Αν
Αν
δίσεκτο = αληθης
Τότε
Γράψε
"Το έτος είναι δίσεκτο"
Αλλιώς
Γράψε
"Το έτος δεν είναι δίσεκτο"
Τέλος_Αν
Γράψε
"--------------------------------------------------"
Γράψε
"Χαρακτηρισμός δίσεκτου έτους με δομή πολλαπλής επιλογής,"
Γράψε
"χρησιμοποιώντας εντολές αλλιώς_αν"
Γράψε
"--------------------------------------------------"
έτος <- 2000
Αν
έτος mod 400 = 0
Τότε
δίσεκτο <- αληθης
Αλλιώς_Αν
έτος mod 100 = 0
Τότε
δίσεκτο <- ψευδης
Αλλιώς_Αν
έτος mod 4 = 0
Τότε
δίσεκτο <- αληθης
Αλλιώς
δίσεκτο <- ψευδης
Τέλος_Αν
Αν
δίσεκτο = αληθης
Τότε
Γράψε
"Το έτος είναι δίσεκτο"
Αλλιώς
Γράψε
"Το έτος δεν είναι δίσεκτο"
Τέλος_Αν
Γράψε
"--------------------------------------------------"
Γράψε
"Χαρακτηρισμός δίσεκτου έτους με απλή δομή επιλογής"
Γράψε
"και σύνθετη συνθήκη ελέγχου"
Γράψε
"--------------------------------------------------"
έτος <- 2000
δίσεκτο <- ψευδης
Αν
(...... και ......) ή (......)
Τότε
δίσεκτο <- αληθης
Τέλος_Αν
Αν
δίσεκτο = αληθης
Τότε
Γράψε
"Το έτος είναι δίσεκτο"
Αλλιώς
Γράψε
"Το έτος δεν είναι δίσεκτο"
Τέλος_Αν