Multiplication tables: Difference between revisions
Content added Content deleted
(→{{header|Fortran}}: Traditionalists stick with whole lines at a go.) |
PatGarrett (talk | contribs) (→{{header|Scilab}}: Section added) |
||
Line 2,593: | Line 2,593: | ||
144 |
144 |
||
</pre> |
</pre> |
||
=={{header|Scilab}}== |
|||
{{works with|Scilab|5.5.1}} |
|||
<lang> |
|||
nmax=12, xx=3 |
|||
s= blanks(xx)+" |" |
|||
for j=1:nmax |
|||
s=s+part(blanks(xx)+string(j),$-xx:$) |
|||
end |
|||
printf("%s\n",s) |
|||
s=strncpy("-----",xx)+" +" |
|||
for j=1:nmax |
|||
s=s+" "+strncpy("-----",xx) |
|||
end |
|||
printf("%s\n",s) |
|||
for i=1:nmax |
|||
s=part(blanks(xx)+string(i),$-xx+1:$)+" |" |
|||
for j = 1:nmax |
|||
if j >= i then |
|||
s=s+part(blanks(xx)+string(i*j),$-xx:$) |
|||
else |
|||
s=s+blanks(xx+1) |
|||
end |
|||
end |
|||
printf("%s\n",s) |
|||
end |
|||
</lang> |
|||
{{out}} |
|||
<pre style="height:20ex"> |
|||
| 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|Seed7}}== |
=={{header|Seed7}}== |