%Age displaying
%Variables
var name : string
var day, cday, month, cmonth, year, cyear, age : int
%Set current day
cday := 19
cmonth := 03
cyear := 2007
%Statements
age := 0
%Input
put "Please Enter your name"
get name : *
put "Please Enter your date of birth(DD MM YYYY)with spaces"
get day
get month
get year
%if/else
if day > 0 and day < 32 then
else
put "Invalid day"
end if
if month > 0 and month < 13 then
else
put "Invalid month"
end if
if month > cmonth then
age := age - 1
elsif day > cday and age not= -1 then
age := age - 1
else
put "Error please try agian later"
end if
%Calculate
age := (cyear + age) - year
%if/else
if age < 0 then
put name," You are ", age, " and you are not yet born"
elsif age > 15 and age < 16 then
put name," You are ", age, " and you can get your G1"
elsif age > 16 and age < 18 then
put name," You are ", age, " and you can get your G1 then G2"
elsif age > 18 then
put name," You are ", age, " and you can get your G1, and G2 and vote"
else
put name," You are ", age, " and you are not old enough yet to drive or vote"
end if
|