| 0,0 → 1,53 |
|---|
| MODULE HW_con; |
| |
| IMPORT Out, In, Console, DateTime, ConsoleLib; |
| |
| PROCEDURE OutInt2(n: INTEGER); |
| BEGIN |
| ASSERT((0 <= n) & (n <= 99)); |
| IF n < 10 THEN |
| Out.Char("0") |
| END; |
| Out.Int(n, 0) |
| END OutInt2; |
| |
| PROCEDURE OutMonth(n: INTEGER); |
| VAR str: ARRAY 4 OF CHAR; |
| BEGIN |
| CASE n OF |
| | 1: str := "jan" |
| | 2: str := "feb" |
| | 3: str := "mar" |
| | 4: str := "apr" |
| | 5: str := "may" |
| | 6: str := "jun" |
| | 7: str := "jul" |
| | 8: str := "aug" |
| | 9: str := "sep" |
| |10: str := "oct" |
| |11: str := "nov" |
| |12: str := "dec" |
| END; |
| Out.String(str) |
| END OutMonth; |
| |
| PROCEDURE main; |
| VAR Year, Month, Day, Hour, Min, Sec: INTEGER; |
| BEGIN |
| ConsoleLib.open(-1, -1, -1, -1, "Hello!"); |
| Out.String("Hello, world!"); Out.Ln; |
| Console.SetColor(Console.Yellow, Console.Blue); |
| DateTime.Now(Year, Month, Day, Hour, Min, Sec); |
| Out.Int(Year, 0); Out.Char("-"); |
| OutMonth(Month); Out.Char("-"); |
| OutInt2(Day); Out.Char(" "); |
| OutInt2(Hour); Out.Char(":"); |
| OutInt2(Min); Out.Char(":"); |
| OutInt2(Sec); |
| In.Ln; |
| ConsoleLib.exit(TRUE) |
| END main; |
| |
| BEGIN |
| main |
| END HW_con. |