Matrix transposition: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
(Matrix transposition en Yabasic) |
||
Line 4,671: | Line 4,671: | ||
| 3 6 9 12| |
| 3 6 9 12| |
||
</pre> |
</pre> |
||
=={{header|Yabasic}}== |
|||
{{trans|FreeBASIC}} |
|||
<lang yabasic>dim matriz(4,5) |
|||
dim mtranspuesta(5,4) |
|||
for fila = 1 to arraysize(matriz(), 1) |
|||
for columna = 1 to arraysize(matriz(), 2) |
|||
read matriz(fila, columna) |
|||
print matriz(fila, columna); |
|||
mtranspuesta(columna, fila) = matriz(fila, columna) |
|||
next columna |
|||
print |
|||
next fila |
|||
print |
|||
for fila = 1 to arraysize(mtranspuesta(), 1) |
|||
for columna = 1 to arraysize(mtranspuesta(), 2) |
|||
print mtranspuesta(fila, columna); |
|||
next columna |
|||
print |
|||
next fila |
|||
end |
|||
data 78,19,30,12,36 |
|||
data 49,10,65,42,50 |
|||
data 30,93,24,78,10 |
|||
data 39,68,27,64,29</lang> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |