Introducción a la metodología de diseño descendente

© FUOC • P05/75062/00112 52 Introducción a la metodología de diseño descendenteAunque en el enunciado se ha dejado claro que la secuencia de entrada está bien formada,podéis observar que en la solución dada, en el caso peor en que después de “propietario” nohubiese el nombre del propietario y se llegase al final de la secuencia, el propietario sería“FinTextoHTML”.funcion ultimaPagina(P: tPagina): booleanoretorna p.finalffuncion { ultimaPagina }b) Consideremos ahora la facturación de empresas. Aquí el objetivo es que el objeto Facturascontenga el nombre de las empresas clientes presentes en la secuencia S, y para cada empresacliente, el importe acumulado de las facturaciones de todas las páginas de S que pertenecena la empresa cliente en cuestión.Definición del tipoHay que mantener una tabla donde conste el nombre de cada empresa cliente y el valor delimporte de la factura. El enunciado nos asegura que no habrá más de 50 empresas distintas.Debemos tener en cuenta que puede haber páginas sin identificación de propietario queserán para la empresa fantasma “NoIdentificados”. Así pues, tenemos 51 empresas diferentes.Dado el propietario de una página, tendremos que buscar en la tabla si ya está o si se le debeañadir. La búsqueda que utilizaremos para saber si una empresa cliente ya está necesitará unaposición más de la tabla, como veremos más adelante. De este modo, la declaración de tiposerá la siguiente:constmaxEmpresas: entero = 51;fconsttipotFactura = tuplanombreCliente; tPalabra;importe: real;ftuplatFacturas =tuplanEmpresas: entero;f: tabla[ maxEmpresas + 1] de tFactura;ftuplaftipoPlanteamiento y solucionesIdentificación del esquema: búsqueda.Notad que...... hemos utilizado un esquemade búsqueda por centinela. Poreste motivo, hemos necesitadouna posición de más. El centinelaes siempre la empresaque buscamos en la tabla.accion facturaPagina(sal p: tPagina, entsal f: tFacturas)var i: entero;fvar{ Buscamos la empresa por centinela }f.f[F.nEmpresas + 1].nombreCliente := p.propietario;i := 1;mientras no palabrasIguales(f.f[i].nombreCliente, p.propietario) haceri := i + 1fmientrassi i = f.nEmpresas + 1 entonces{ Damos de alta a la empresa e inicializamos el importe }f.nEmpresas := f.nEmpresas + 1;f.f[i].importe := p.importesino { Añadimos el nuevo importe }f.f[i].importe := f.f[i].importe + p.importe;fsifaccion { facturaPagina }