Algoritmos y Programación en Pascal

6.2. Instrucciones de selección 89
caso la instrucción compuesta se pondrá entre las palabras begin y end como
se señaló en el apartado anterior.
Como muestra considérese el refinamiento del código anterior:
if x > y then begin
max:= x;
WriteLn(’El máximo es ’, x)
end
else begin
max:= y;
WriteLn(’El máximo es ’, y)
end
Es aconsejable evitar la introducción de código redundante dentro de las
posibles alternativas, ya que se facilita en gran manera el mantenimiento del
programa. El segmento anterior es un flagrante ejemplo de redundancia que
puede ser evitada fácilmente colocando el WriteLn una vez realizada la selección:
if x > y then
max:= x
else
max:= y; {Fin del if}
WriteLn(’El máximo es ’, max)
❡❡
A efectos de la colocación de los puntos y comas debe tenerse en cuenta
que toda la construcción if-then-else corresponde a una sola instrucción,
y no es una composición de las instrucciones if, then y else; en particular,
la aparición de un punto y coma justo antes de un then o de un else dará
como resultado un error sintáctico (bastante frecuente, por cierto).
Una particularidad de esta instrucción es que la rama else es opcional; en
caso de no ser incluida se ha de interpretar que cuando la expresión booleana
resulta ser falsa entonces no se realiza ninguna acción. Por esta razón, la forma
if-then es útil como sentencia para controlar excepciones que pudieran afectar
el procesamiento posterior. Por ejemplo, en el siguiente fragmento de programa
se muestra el uso de la forma if-then como sentencia de control.
ReadLn(year);
feb:= 28;
{No siempre, ya que puede ser a~no bisiesto}
if year mod 4 = 0 then
feb:= 29;
WriteLn(’Este a~no Febrero tiene ’,feb,’ días’)