Sum of elements below main diagonal of matrix: Difference between revisions
Sum of elements below main diagonal of matrix (view source)
Revision as of 13:51, 30 November 2021
, 2 years agoSum of elements below main diagonal of matrix en FreeBASIC
(Sum of elements below main diagonal of matrix en BASIC) |
(Sum of elements below main diagonal of matrix en FreeBASIC) |
||
Line 208:
=={{header|BASIC}}==
==={{header|BASIC256}}===
{{trans|FreeBASIC}}
<lang BASIC256>arraybase 1
print "Sum of elements below main diagonal of matrix:"▼
dim diag = {{ 1, 3, 7, 8,10}, { 2, 4,16,14, 4}, { 3, 1, 9,18,11}, {12,14,17,18,20}, { 7, 1, 3, 9, 5}}
ind = diag[?,]
Line 221:
next x
end</lang>
Line 230:
<lang qbasic>DEFINT A-Z
PRINT "Sum of elements below main diagonal of matrix:"▼
DIM diag(1 TO 5, 1 TO 5)
lenDiag = UBOUND(diag)
Line 249 ⟶ 248:
NEXT x
END
Line 262 ⟶ 261:
</pre>
==={{header|FreeBASIC}}===
<lang freebasic>Dim As Integer diag(1 To 5, 1 To 5) = { _
{ 1, 3, 7, 8,10}, _
{ 2, 4,16,14, 4}, _
{ 3, 1, 9,18,11}, _
{12,14,17,18,20}, _
{ 7, 1, 3, 9, 5}}
Dim As Integer lenDiag = Ubound(diag), ind = lenDiag
Dim As Integer sumDiag = 0, x, y
For x = 1 To lenDiag
For y = 1 To lenDiag-ind
sumDiag += diag(x, y)
Next y
ind -= 1
Next x
Print "Sum of elements below main diagonal of matrix is"; sumDiag
Sleep</lang>
{{out}}
<pre>Sum of elements below main diagonal of matrix is 69</pre>
| |||