29 lines
707 B
Plaintext
29 lines
707 B
Plaintext
n = 12
|
|
For j = 1 To n - 1
|
|
TextWindow.CursorLeft = (j - 1) * 4 + (3 - Text.GetLength(j))
|
|
TextWindow.Write(j)
|
|
TextWindow.Write(" ")
|
|
EndFor
|
|
TextWindow.CursorLeft = (n - 1) * 4 + (3 - Text.GetLength(n))
|
|
TextWindow.Write(n)
|
|
TextWindow.WriteLine("")
|
|
For j = 0 To n - 1
|
|
TextWindow.Write("----")
|
|
EndFor
|
|
TextWindow.WriteLine("+")
|
|
For i = 1 To n
|
|
For j = 1 To n
|
|
If j < i Then
|
|
TextWindow.Write(" ")
|
|
Else
|
|
TextWindow.CursorLeft = (j - 1) * 4 + (3 - Text.GetLength(i * j))
|
|
TextWindow.Write(i * j)
|
|
TextWindow.Write(" ")
|
|
EndIf
|
|
EndFor
|
|
TextWindow.Write("| ")
|
|
TextWindow.CursorLeft = n * 4 + (4 - Text.GetLength(i))
|
|
TextWindow.Write(i)
|
|
TextWindow.WriteLine("")
|
|
EndFor
|