Pascal/Procedures
< Pascal
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 atual de x = ', x);
writeln('Valor atual de y = ', y);
readkey;
end.
Notas:
- A palavra reservada
var
, será devidamente apresentada na seção de passagem de parâmetros.