Ejercicios resueltos

Simulador (Cuando presiona el botón "ejecutar el programa" se graban todos los cuadros de texto y se ejecuta el primero de la lista mostrando en una página el resultado.)

Crear una matriz de 2x2. Luego crear otra matriz en forma dinámica de 2x3 y finalmente redimensionarla en una matriz de 2x2 preservando su contenido.

pagina1.asp

<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim matriz1(2,2)
matriz1(0,0)=1
matriz1(0,1)=1
matriz1(0,2)=1
matriz1(1,0)=2
matriz1(1,1)=2
matriz1(1,2)=2
matriz1(2,0)=3
matriz1(2,1)=3
matriz1(2,2)=3
response.write("Creación de una matriz de dos filas ")
response.write("y dos columnas ")
dim f,c
for f=0 to 2
 for c=0 to 2
 response.write(matriz1(f,c) & "-")
 next
 response.write(" ")
next
response.write("Utilización de ubound en una matriz ")
for f=0 to ubound(matriz1,1)
 for c=0 to ubound(matriz1,2)
 response.write(matriz1(f,c) & "-")
 next
 response.write(" ")
next
dim matriz2
redim matriz2(2,3)
matriz2(0,0)=1
matriz2(0,1)=1
matriz2(0,2)=1
matriz2(0,3)=1
matriz2(1,0)=2
matriz2(1,1)=2
matriz2(1,2)=2
matriz2(1,3)=2
matriz2(2,0)=3
matriz2(2,1)=3
matriz2(2,2)=3
matriz2(2,3)=3
response.write("Matriz creada dinámicamente ")
for f=0 to ubound(matriz2,1)
 for c=0 to ubound(matriz2,2)
 response.write(matriz2(f,c) & "-")
 next
 response.write(" ")
next
redim preserve matriz2(2,2)
response.write("Matriz después de redimensionarla ")
for f=0 to ubound(matriz2,1)
 for c=0 to ubound(matriz2,2)
 response.write(matriz2(f,c) & "-")
 next
 response.write(" ")
next
%>
</body>
</html>

46 - Estructura de datos tipo matriz.

Retornar