Algoritmos y Programación en Pascal

68 Capítulo 5. Primeros programas completos
5.1 Algunos programas sencillos
5.1.1 Dibujo de la letra ‘‘C’’
El siguiente ejemplo es de lo más simple, aunque su efecto no produce tres
líneas de asteriscos, como parecen indicar los identificadores definidos, sino una
sola. Por la misma razón, los identificadores son inapropiados, ya que inducen a
pensar que el programa escribe tres líneas distintas.
Program LetraC (output);
{Dibujo de la letra ’C’}
const {Definición de constantes, que puede mejorarse}
linea1 = ’***’;
linea2 = ’*’;
linea3 = ’***’;
begin {Cuerpo del programa}
Write(linea1);
Write(linea2);
Write(linea3)
end. {LetraC}
Es fácil modificarlo para que produzca efectivamente tres líneas (en vez de
una sola) con 3, 1 y 3 asteriscos respectivamente, sustituyendo las instrucciones
Write por WriteLn. Una mejora trivial consiste en dejarlo con sólo dos constantes,
evitando repetirlas. Más aún, un programa tan sencillo no requiere definir
esas constantes, pudiendo usarse directamente los literales.
❡❡
Disposición clara de los programas. El programa anterior podría ha-
berse escrito igualmente como sigue:
Program LetraC (output); {Dibujo de la letra ’C’}
const
{Definición de constantes, que puede mejorarse}
Linea1 = ’***’; Linea2 = ’*’; Linea3 = ’***’; begin
{Cuerpo del programa} Write(Linea1); Write(Linea2);
Write(Linea3) end.
Sin embargo, la presentación inicial tiene ventajas indiscutibles: el programa
inicial está dispuesto con claridad, con lo que leer, revisar y analizar
el programa resulta más fácil. Asimismo, permite distinguir las componentes
del programa y su estructura.
Como se ve, Pascal es muy flexible en cuanto a la disposición del texto de los
programas, por lo que decimos que es un lenguaje de formato libre.