1,7 → 1,8 |
MODULE HW_con; |
MODULE HW_con; |
|
IMPORT Out, In, Console, DateTime, ConsoleLib; |
IMPORT Out, In, Console, DateTime; |
|
|
PROCEDURE OutInt2(n: INTEGER); |
BEGIN |
ASSERT((0 <= n) & (n <= 99)); |
11,9 → 12,13 |
Out.Int(n, 0) |
END OutInt2; |
|
|
PROCEDURE OutMonth(n: INTEGER); |
VAR str: ARRAY 4 OF CHAR; |
VAR |
str: ARRAY 4 OF CHAR; |
|
BEGIN |
|
CASE n OF |
| 1: str := "jan" |
| 2: str := "feb" |
28,26 → 33,31 |
|11: str := "nov" |
|12: str := "dec" |
END; |
|
Out.String(str) |
END OutMonth; |
|
|
PROCEDURE main; |
VAR Year, Month, Day, Hour, Min, Sec: INTEGER; |
VAR |
Year, Month, Day, Hour, Min, Sec, Msec: 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); |
Console.SetColor(Console.White, Console.Red); |
DateTime.Now(Year, Month, Day, Hour, Min, Sec, Msec); |
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) |
OutInt2(Sec) |
END main; |
|
|
BEGIN |
main |
Console.open; |
main; |
In.Ln; |
Console.exit(TRUE) |
END HW_con. |