Multiplication tables: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: corrected misspellings. -- ~~~~ |
|||
Line 1,030: | Line 1,030: | ||
11 121 132 |
11 121 132 |
||
12 144 |
12 144 |
||
=={{header|F#}}== |
|||
Translation of C# |
|||
<lang FSharp> |
|||
open System |
|||
let multTable () = |
|||
Console.Write (" X".PadRight (4)) |
|||
for i = 1 to 12 do Console.Write ((i.ToString "####").PadLeft 4) |
|||
Console.Write "\n ___" |
|||
for i = 1 to 12 do Console.Write " ___" |
|||
Console.WriteLine () |
|||
for row = 1 to 12 do |
|||
Console.Write (row.ToString("###").PadLeft(3).PadRight(4)) |
|||
for col = 1 to 12 do |
|||
if row <= col then Console.Write ((row * col).ToString("###").PadLeft(4)) |
|||
else |
|||
Console.Write ("".PadLeft 4) |
|||
Console.WriteLine () |
|||
Console.WriteLine () |
|||
Console.ReadKey () |> ignore |
|||
multTable () |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
X 1 2 3 4 5 6 7 8 9 10 11 12 |
|||
___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ |
|||
1 1 2 3 4 5 6 7 8 9 10 11 12 |
|||
2 4 6 8 10 12 14 16 18 20 22 24 |
|||
3 9 12 15 18 21 24 27 30 33 36 |
|||
4 16 20 24 28 32 36 40 44 48 |
|||
5 25 30 35 40 45 50 55 60 |
|||
6 36 42 48 54 60 66 72 |
|||
7 49 56 63 70 77 84 |
|||
8 64 72 80 88 96 |
|||
9 81 90 99 108 |
|||
10 100 110 120 |
|||
11 121 132 |
|||
12 144 |
|||
</pre> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |