Apúntate...


Consultas, desarrollo de programas y petición de presupuestos:

lunes, 27 de agosto de 2012

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

No hay comentarios:

Publicar un comentario

A falta de donativos... un poco de publicidad