Faça uma função 'Troque’, que recebe duas variáveis reais
e
e troca o valor delas (i.e., A recebe o valor de B e B recebe o valor de A).
Passo 1
O enunciado pede uma função chamada Troque que receba duas variáveis reais A e B e inverta os valores entre elas — é um problema de atribuição e manipulação de variáveis.
Passo 2
Para realizar a troca sem perder dados, usamos uma variável auxiliar (temp) que armazena temporariamente o valor de A enquanto atribuímos B para A, e depois atribuímos temp para B.
Passo 3
Implementamos a função definindo A e B como parâmetros por referência (para que a alteração se reflita fora da função), declaramos temp como real e fazemos as três atribuições: temp := A; A := B; B := temp.
Resposta
procedure Troque(var A, B: real);
var
temp: real;
begin
temp := A;
A := B;
B := temp;
end;
var
temp: real;
begin
temp := A;
A := B;
B := temp;
end;