Computer Science Canada The Age Program |
| Author: | scholarlytutor [ Mon Jul 15, 2019 7:10 pm ] |
| Post subject: | The Age Program |
I just made this for kicks. If you can't bother to think about how old someone is based on their birthday, just enter it into this program. If anyone detects a problem with the calculation, please let me know. I've tried multiple people and things seem to work correctly. % The Age program. % Find out a person's age by entering their birth date and today's date. % Programmed by scholarlytutor % Variables var bday, bmonth, byear : int %birth date var cday, cmonth, cyear : int %current date var age : int %calculated age % Program put "Enter the day, month and year when the person was born." put "For example, for July 20, 1980, type in 20 7 1980." get bday, bmonth, byear put "Now, enter the day, month and year of today's date." put "Use the same number format above." get cday, cmonth, cyear %Checks if their birthday already happened this year if cmonth < bmonth then age := (cyear - byear) - 1 elsif cmonth = bmonth then if cday < bday then age := (cyear - byear) - 1 else age := cyear - byear end if else age := cyear - byear end if %Outputs the person's age put "The person is ", age, " years old." |
|