Ayudantia 4 Computación III
Ejercicio propuesto para resolver en ayudantía
a) Almacenar en un archivo N numeros enteros en el rango [1..10] con N > 10
Abrir Archivo
numRegs = LOF(numArchivo) \ Len(num)
Leer N
cont -> 0
HACER
num = Inputbox("Ingrese numero entre 1 y 10")
SI (num > 0 y num <= 10) ENTONCES
posicion = numRegs * tam + 1
Put #numArchivo, posicion, num
cont -> cont + 1
numRegs = numRegs + 1
FIN SI
MIENTRAS cont < N
Cerrar Archivo
b) Traspasar la información del archivo a un arreglo unidimensional
ej :
archivo : 2 4 7 1 3 1 4 2 9 8 4 5 1
arreglo : 2 4 7 1 3 1 4 2 9 8 4 5 1
c) Ordenar de menor a mayor el arreglo de datos, con algoritmo de la burbuja
ej :
arreglo ordenado : 1 1 1 2 2 3 4 4 4 5 7 8 9
d) A partir del arreglo ordenado, construir una tabla de frecuencias dada por un arreglo unidemsional de tamaño 10 de tipo Frecuencia
Private Type Frecuencia
num as Integer
frec as Integer
End type
TABLA :
num 1 2 3 4 5 6 7 8 9 10
frec 0 1 1 2 0 1 5 1 4 0
e) Mostrar en un TextBox multilínea la tabla de frecuencias
