Free Web Site - Free Web Space and Site Hosting - Web Hosting - Internet Store and Ecommerce Solution Provider - High Speed Internet
Search the Web

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