5.4 Subalgoritmo subrutina 109
fin subrutina
Entonces el Subrutina Encabezado( ) se podría escribir utilizando TrazalineaIII, resultando:
subrutina encabezado ( )
inicio
TrazalineaIII ( 25, ‘*’ )
Escribir (‘ INFORMATICA I ’)
TrazalineaIII ( 25, ‘*’ )
fin subrutina
5.4.4 Un caso especial: los parámetros de entrada también son de salida
Existen casos donde los parámetros de entrada también sirven como parámetros de devolu-
ción de resultados.Veremos a continuación un ejemplo y su utilización.
Ejemplo 7: Desarrollar una subrutina que permita realizar el intercambio de los valores de 2
variables numéricas.
subrutina intercambio ( E/S: a, b: real )
variables
real aux
inicio
aux ← a
a ← b
b ← aux
fin subrutina
A continuación veremos un ejemplo de la utilización de esta subrutina.
Ejemplo 8: Desarrollar un algoritmo para ordenar tres números reales utilizando la subruti-
na intercambio.
Algoritmo ordenar
variables
real x, y, z
inicio
Escribir (‘Ingrese tres números reales ‘)
Leer (x, y, z)
Si x > y entonces intercambio (x, y)
finsi
Si y > z entonces intercambio (y, z)
finsi
Si x > y entonces intercambio (x, y)
finsi
Escribir (x, y, z)
Fin.