108 Subalgoritmos
subrutina TrazalineaI ( )
variables
entero i
inicio
Repetir para i ← 1 hasta 25 hacer
Escribir (‘*’)
finpara
fin subrutina
Entonces la subrutina Encabezado( ) se podría escribir utilizando TrazalineaI, resultando:
subrutina Encabezado ( )
inicio
TrazalineaI ( )
Escribir (‘ INFORMATICA I ’)
TrazalineaI ( )
fin subrutina
Ejemplo 5: Escribir un subalgoritmo subrutina que muestre una línea de asteriscos de lon-
gitud a requerimiento del usuario.
textbfsubrutina TrazalineaII ( E: long: entero )
variables
entero i
inicio
Repetir para i←1 hasta long hacer
Escribir (‘*’)
finpara
fin subrutina
Entonces la Subrutina Encabezado( ) se podría escribir utilizando TrazalineaII, resultando:
subrutina Encabezado ( )
inicio
TrazalineaII ( 25 )
Escribir (‘ INFORMATICA I ’)
TrazalineaII ( 25 )
fin subrutina
Ejemplo 6: Escribir un subalgoritmo subrutina que muestre una línea de longitud y carácter a
requerimiento del usuario.
subrutina TrazalineaIII (E: long: entero, simb: char)
variables
entero i
inicio
Repetir para i ←1 hasta long hacer
Escribir ( simb )
finpara