Algoritmos y Programación en Pascal

5.4. Desarrollo de programas correctos 77
Si llamamos a y b a los caracteres leídos del input, se pueden insertar los
siguientes predicados:
{c1 = a, c2 = b}
c1:= c2;
{c1 = b, c2 = b}
c2:= c1;
{c1 = b, c2 = b}
con lo que no se obtiene el resultado deseado.
En cambio, el siguiente programa sí consigue llevar a cabo el intercambio de
dos caracteres cualesquiera. La prueba de ello se da en el propio programa:
Program Intercambio (input, output);
var
c1, c2, {los dos caracteres}
aux : char; {variable auxiliar}
begin
Write (’Caracteres: ’);
ReadLn(c1, c2);
{c1 = a, c2 = b}
aux:= c1;
{c1 = a, c2 = b, aux = a}
c1:= c2;
{c1 = b, c2 = b, aux = a}
c2:= aux;
{c1 = b, c2 = a, aux = a}
WriteLn (’Invertidos: ’, c1, c2)
end. {Intercambio}
• En el razonamiento anterior, se ha partido de un programa y, para verificar
su funcionamiento, se han incluido aserciones sobre el estado de los cálculos,
averiguando así el efecto que tienen una o varias instrucciones sobre los
mismos.
Recíprocamente, se puede partir del efecto que un (fragmento de) programa
debe producir para buscar instrucciones que lo logren. Por ejemplo, se
puede plantear la búsqueda de un fragmento de programa I que modifique
el valor de las variables x, y, z: integer del siguiente modo:
{x = x0, y = y0, z = z0}
I
{x = y0, y = z0, z = x0}