Retorno de dois valores na Fun��o...

Question

Fiz um pequeno programa de matem�tica. tudo tava indo bem at� que resolvi fazer uma fun��o para retornar as raizes de uma equa��o de segundo grau. Bem X1 := -b+Sqrt(Sqr(b)-4*a*c); e X2 := -b-Sqrt(Sqr(...

Beppe · Answer

Use par�metros [b:eb773d4080]out[/b:eb773d4080].

procedure Raizes(A, B, C: Integer; out X1, X2: Integer);
begin
...
  X1 := ...;
  X2 := ...
end;

Chama assim:

var
  X1, X2: Integer;
begin
  Raizes(2, 1, 4, X1, X2);
  // quando chegar neste ponto, X1 cont�m X1 e X2 cont�m X2
  // embora voc� n�o precise usar o mesmo nome para as vari�veis
end;

Para um par�metro [b:eb773d4080]out[/b:eb773d4080], como o [b:eb773d4080]var[/b:eb773d4080], voc� n�o pode passar uma constante, precisa ser uma vari�vel. A diferen�a entre [b:eb773d4080]out[/b:eb773d4080] e [b:eb773d4080]var[/b:eb773d4080] � que [b:eb773d4080]out[/b:eb773d4080] desconsidera o valor inicial da vari�vel.

F�rum Retorno de dois valores na Fun��o... #209794