procedure Exchange(var A,B: Integer); //permute les deux valeurs A et B.
var C : Integer;
begin
C := A;
A := B;
B := C;
end;
procedure Exchange(var A, B: Integer); //permute les deux valeurs A et B. begin A := A + B; B := A - B; A := A - B; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
20 nov. 2020 à 15:47
31 mai 2022 à 19:28