Mosaic matrix: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 449: | Line 449: | ||
{{works with|Delphi|6.0}} |
{{works with|Delphi|6.0}} |
||
{{libheader|SysUtils,StdCtrls}} |
{{libheader|SysUtils,StdCtrls}} |
||
Another example of modular code and saving time by reusing subroutines and structures. Most of the code from this previously worked example: |
Another example of modular code and saving time by reusing subroutines and structures. Most of the code from is take from this previously worked example: |
||
[[https://rosettacode.org/wiki/Matrix_with_two_diagonals#Delphi|Matrix with two Diagonals]] |
[[https://rosettacode.org/wiki/Matrix_with_two_diagonals#Delphi| Matrix with two Diagonals]] |
||
<syntaxhighlight lang="Delphi"> |
<syntaxhighlight lang="Delphi"> |
||
Line 591: | Line 591: | ||
[0 1 0 1 0 1 0 1 0 1] |
[0 1 0 1 0 1 0 1 0 1] |
||
</pre> |
</pre> |
||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |