Algoritmos y Programación en Pascal

6.4. Diseño y desarrollo de bucles 107
Como ejemplo vamos a comprobar la corrección del fragmento de código que
altera los valores de las variables a, b y c según se indica:
{PreC.: a = X, b = Y, c = Z}
a:= a + b + c;
b:= a - b;
c:= a - c;
a:= 2 * a - b - c
{PostC.: a = Y + Z, b = X + Z, c = X + Y}
Para la verificación de la secuencia de instrucciones hemos de ir incluyendo
aserciones que indiquen el efecto de cada instrucción, tal como se presentó en el
apartado 5.4:
{PreC.: a = X, b = Y, c = Z}
a:= a + b + c;
{a = X+Y Z, b = Y, c = Z}
b:= a - b;
{a = X+Y+Z, b = (X+Y+Z) - Y = X+Z, c = Z}
c:= a - c;
{a = X+Y+Z, b = X+Z, c = (X+Y+Z) - Z = X+Y}
a:= 2 * a - b - c
{a = 2*(X+Y+Z) - (X+Z) - (X+Y) = Y+Z, b = X+Z, c = X+Y}
{PostC.: a = Y+Z, b = X+Z, c = X+Y}
En el desarrollo anterior se aprecia cómo, partiendo de la precondición, va cambiando
el estado de las variables a, b y c hasta llegar a la postcondición.
Uso correcto de una estructura de selección
Las estructuras de selección incluyen dos tipos de instrucciones, if y case; en
ambos casos el proceso de verificación es el mismo: se ha de verificar cada una
de las posibles opciones individualmente, haciendo uso de la precondición y de
la expresión que provoca la elección de tal opción.
Puesto que la verificación se realiza de modo similar tanto para if como para
case consideraremos sólo el siguiente ejemplo, con el que se pretende calcular el
máximo de las variables a y b:
{PreC.: a = X, b = Y}
if a >= b then
m:= a
else
m:= b
{PostC.: a = X, b = Y, m = max(X,Y)}