Pascal/Procedures

Origem: Wikilivros, livros abertos por um mundo aberto.

 uses crt;

{ O Procedimento fará a troca dos valores de duas variaveis }

 Procedure Troca (Var Valor_1, Valor_2 : Integer);
 Var Aux : Integer;

 Begin
   Aux := Valor_1;
   Valor_1 := Valor_2;
   Valor_2 := Aux;
 End;

 Var X, Y : Integer;
 Begin
   clrscr;
   writeln ( 'entre com o valor de x ' );
   readln ( x );
   writeln (' entre com o valor de y' );
   readln ( y );
   Troca (X, Y);
   Writeln ('Valor de X = ', X);
   Writeln ('Valor de Y = ', Y);
   readkey;
 End.

Notas:

• A palavra reservada **Var**, será devidamente melhor apresentada na seção passagem de parâmetros.

pronto para compilar no pascal