ANSi Art File | 1988-03-25 | 846 b | 640x320 | 1-bit (2 colors)
ocr: Our solution to Uutside Assignment 3; separate (NEXTDATED function TUMURRUWCIUDAY : in DATE) return DATE is LENGIH : arraytHUHTH_IYPE) of DAY SUBTYPE := (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); ANSWER : DATE; begin if TODAY.YEAR mod 4 = 0 and (TODAY. YEAR mod 100 /= 0 or TODAY.YEAR mod 400 = 0) then LENGIHCFEB) := 29; end if; if TODAY.DAY /= LENGIHCTUDAY.MUNTH) then Not end of month. ANSWER := (TUDAY.DAY + 1, TODAY.MONTH, TUDAY. YEARD; elsif TODAY.MONTH /= DEC then End of month, but not end of year. ANSWER := (1, MONTH_TYPES SUCCCTUDAY.NONTHD, TODAY.YEAR): else End of year. ANSWER := ...
(.png)
