Saltar para o conteúdo

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 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.