🚀 go-pugleaf

Saludos colisteros!,
Me encuentro realizando un ejercicio donde utilizo archivos de registros
siendo el enunciado el siguiente:

Dado el archivo de cuentas corrientes se desea conocer las 20 cuentas de
mayor saldo deudor.

Algoritmo saldo es:
-------------------

Tipos:
------

registro_cta_cte
.nro_cuenta:cadena
.cliente:cadena
.saldo:real
fin registro

tabla:arreglo[1..cmax] de registro_cta_cte

archivo_cta_cte:archivo de registro_cta_cte

Variables globales:
-------------------

x:tabla
a:archivo_cta_cte
b:registro_cta_cte
tope:entero

constantes
----------

cmax=30

abrir (a);leer (a,b)
mientras no fin (a) hacer

si (b.saldo>0)
   entonces
   si (tope<cmax)
      entonces
      tope<---tope+1
      x[tope]<---b
      burbuja (x,tope)

   sino
       compara_maximo(x,tope,b)
       leer(a,b)
fin mientras

 cerrar (a)
 
fin algoritmo
 
como pueden observar el arreglo x recibira los veinte primeros saldos
negativos burbujeando cada vez que un valor sea insertado el orden sera
ascendente o sea del saldo menor al saldo mayor.
El procedimiento compara_maximo realiza la siguiente tarea:

procedimiento compara_maximo(ref:x:tabla;valor:tope:entero;valor:
b:registro_cta_cte)
variables locales
-----------------
i:entero,
i<---1
                si (b.saldo>x[i].saldo)
	          entonces
		  x[i]<---b
		sino
		   mostrar ('el dato no sera incluido')
		fsi   
obviamente seguida esta accion vendria un burbujeo que me reacomodara
los datos nuevamente.
La cuestion es la siguiente:la intencion del procedimiento es comparar
el dato de b.saldo contra el menor del arreglo x que por su parte esta
completo si el dato que trae b.saldo es mayor se lo asignara al arreglo
x,pues bien que les parece el procedimiento?,hay otra posibilidad de
mejorarlo?,he probado un insertar con orden pero los ejemplos que he
visto quedaban lugares en el arreglo y no es este el caso,por lo que me
he visto obligado a realizar un burbujeo,sin poder evitarlo.
sin mas los saluda.
-- 
eldebianita
Powered by Debian/GNU Linux 3.0