Arrays: Ejemplos.

Ejemplos de uso de ARRAY

 

Coloca en cada casilla el valor de su subindice: y muetra el contenido del arreglo

Dim k As Integer

Dim arreglo As New Integer[21]

For k = 0 To 20

arreglo[k] = k * 2

Next

For k = 0 To 20

Print "Indice: ", K, "valor: ", arreglo[k]

Next

End

 Suma de valores:

Dim contador As Integer

Dim arr As New Integer[4]

Dim k As Integer

arr[3] = 8

Print "Introduzca un valor:"

Input arr[2]

arr[0] = arr[2] + arr[3]

k = 1

arr[k] = arr[0] + 20

Print "Valores del array:"

For contador = 0 To 3

Print "("; contador; ")="; arr[contador]

Next

Ordenacion de array de numeros enteros, por el método Burbuja:

' Método de ordenamiento de burbuja

Dim pasada As Integer

Dim tamarr As Integer = 9

Dim lista As New Integer[10]

Dim i, k, j As Integer

Dim tmp As Integer

lista[0] = 22

lista[1] = 7

lista[2] = 4

lista[3] = 9

lista[4] = 2

lista[5] = 80

lista[6] = 40

lista[7] = 67

lista[8] = 51

lista[9] = 39

Print "------- Ordenar-------------"

'‘arreglo original

Print "dato sin ordenar: "

For i = 0 To tamarr

Print lista[i], ' muestra el numero y un tabulador

Next

'metodo de ordenamiento de burbuja

' para controlar la cantidad pasadas

For pasada = 0 To tamarr - 1

'para conotrolar el numero de comparaciones por pasada

For k = 0 To tamarr - 1

If (lista[k] > lista[k + 1]) Then

tmp = lista[k]

lista[k] = lista[k + 1]

lista[k + 1] = tmp

Endif

Next

Next

' muestro el arreglo ordenado

Print

Print "los datos ordenados son:"

For j = 0 To tamArr

Print lista[j],

Next

Print ""

Print "-------Fin Ordenar-------------"

Arrays multidimensionales:
Programa que pide una matriz  bidimensional, y la muesta, ademas muestra el valor maximo que contenga y la situacion dentro de la matriz (fila y columna)

Dim A As New Integer[20, 20]

Dim n, m As Integer 'dimension de la matriz

Dim ren, col As Integer ' variable auxiliares para las busquedas

Dim mayor As Integer '‘ variable que guarda el valor mayor

Dim renm, coim As Integer '‘ variables que guardan la fila y la columna en las que se encontro el mayor valor

'‘bucle para introducir datos

'‘primero tenemos que pedirle la dimension filas y columnas.. (cuidado nuestro máximo es 20)

Print "Cuantos renglones tiene la matriz:"

Input n

Print "Cuantos columnas tiene la matriz:"

Input m

'pedimos los datos

For ren = 0 To n - 1

For col = 0 To m - 1

Print "Teclea el valor del elemento ("; ren; ","; col; "): ";

Input a[ren, col]

Next

Next

'muestra la matriz...

For ren = 0 To N - 1

For col = 0 To M - 1

Print A[ren, col]; " ";

Next

Print "\n"

Next

'‘busca el valor mayor de la matriz

mayor = A[0, 0] '‘tomamos el primer valor como si fuera el maximo, para partir de un valor...

renM = 0

coiM = 0

'‘empiezo a hacer comparaciones

For ren = 0 To N

For col = 0 To M

If A[ren, col] > mayor Then

mayor = A[ren, col]

renM = ren

coiM = col

Endif

Next

Next

'‘imprimo el valor mayor...

Print "El valor Mayor es: "; A[renM, coiM]

Print "Y se encuentra dentro de la tabla en:"

Print "Fila: "; renM + 1

Print "Columna: "; coim + 1

Funciones usando arrays:

Dada una lista de precios, usa un funcion para incrementar estos precios, una cantidad fija.

Muestro el programa principal:

 

Dim valor As Float

Dim precios As New Float[5]

Dim preciosIncrementados As New Float[5]

precios[0] = 2

precios[1] = 10

precios[2] = 0

precios[3] = 15

precios[4] = 7

Print " - - - - - - - Incremento de precios a una lista - - - - - - - - - - "

Print "Introduce cantidad fija para aumentar los precios:"

Input valor

Print "Lista precios:"

muestraPrecios(precios)

preciosIncrementados = incrementa(valor, precios)

Print "\nLista precios incrementado:"

muestraPrecios(preciosIncrementados)

End

Funciones:

Public Function incrementa(constante As Float, lista As Float[]) As Float[]

Dim a As Integer

For a = 0 To lista.Max

lista[a] = lista[a] + constante

Next

Return lista

End

Public Sub muestraPrecios(lista As Float[])

Dim a As Integer

For a = 0 To lista.Max

Print lista[a],

Next

Print

End

Descarga de los ejemplo: Enlace