4.2.1 Ejemplo

En este ejemplo  los parámetros formales a y b recibe, cuando son llamados, los valores contenidos en los parámetros actuales de x e y.

Program Calculo;

Uses wincrt;

Var

   x,y : real;

Procedure mayor (a,b : real);

Var

   max : real;

Begin

     if a > b then

        max := a

     else

        max := b;

     writeln ('El mayor de los dos números es ',max:4:2);

End;

Begin

     repeat

       write ('Introduzca dos números ');

       readln (x,y);

       mayor (x,y)

     until x = 0

End.

4.2.2 Ejemplo

El siguiente ejemplo muestra un intercambio de valores de dos variables con un procedimiento.

Program Intercambio;

Uses wincrt;

Var

   x,y : real;

   resp : char;

Procedure cambio (var a,b : real);

Var

   aux : real;

Begin

     aux := a;

     a := b;

     b := aux;

     writeln ('Ahora el valor de a es ',a:5:2,' y el valor de b es ',b:5:2);

End;

Begin

     repeat

       clrscr;

       write ('Introduzca el valor para x ');

       readln (x);

       write ('Introduzca el valor para y ');

       readln (y);

       cambio(x,y);

       writeln;

       write ('Desea continuar (S/N)?');

       readln (resp);

     until (resp = 'N') or (resp = 'n')

End.