Le plus petit entier non nulRésolu

Question

Bonjour,
voici la fonction qui me permet de trouver le plus petit entier non nul parmi 3 possibilit&#233;s.
Y a-t-il plus simple ? ou plus rapide ?
Si je desire passer &#224; n entiers, vaudrait-il mieux trier un tableau et tester les plus petites valeurs ? une autre id&#233;e ?

function MiniNonNul(A,B,C: Integer): Integer;
begin
  if Min(A,Min(B,C)) = 0 then
    begin
      if A = 0 then
        begin
          if Min(B,C) = 0 then
            begin
               if B = 0 then
                  begin
                    if C = 0 then Result := 0 else Result := C;
                  end
               else Result := B;
            end
          else Result := Min(B,C);
        end
      else if B = 0 then
              begin
                 if C = 0 then Result := A else Result := Min(A,C);
              end
           else Result := Min(A,B);
    end
  else Result := Min(A,Min(B,C));
end;

Merci.

cs_neko · Accepted Answer

result := MAXINT; if a>0 then result := a; if (b0) then result := b; if (c0) then result := c; qui renvoi maxint si ils sont tous <= 0(Certes, c'ets plutôt laid, mais qu'est-ce que c'est simple :) ) pour N entiers, ça va dependre de pas mal de chose, il faudrait plus de precisions

jmp77 · Answer

Hello,



Pourquoi ne pas utiliser directement la fonction MinIntValue de delphi :

Renvoie la moindre valeur sign&#233;e d'un tableau d'entiers.



Unit&#233;



Math



Cat&#233;gorie



routines statistiques



function MinIntValue(const Data: array of Integer): Integer;



Description



Appelez MinIntValue pour obtenir le plus petit entier du tableau Data.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

seast · Answer

Merci &#224; tous les deux !
> neko : ta solution marche parfaitement et a le m&#233;rite d'&#234;tre simple. Tu avais compris que seuls les entiers positifs m'interessaient dans ce pb.

>jmp77 : ta proposition renvoie le plus petit entier y compris 0 s'il est pr&#233;sent, et moi je veux le plus petit mais sup&#233;rieur &#224; 0.

encore merci et &#224; bient&#244;t.

WhiteHippo · Answer

Euh, je comprends pas tout là ! Seast, si tu veux une fonction qui te renvoie le plus petit entier non nul, alors la fonction de neko ne marche pas !! Si tu essayes avec les valeurs a -2, b -3, et c = -4, tu obtiens : Result MAXINT 2147483647 Pour moi, le plus petit entier non nul est c=-4 !! La fonction correcte serait plutot : function MinNonNul( const a,b,c : integer ) : integer; begin result := MAXINT ; if (a0) then result := a; if (b0) then result := b; if (c0) then result := c; end ; Cordialement.

seast · Answer

Bonjour,
tu as raison WhiteHippo, ta fonction renvoie le plus petit entier non nul pour n'importe quels entiers contrairement &#224; celle de neko. J'ai accept&#233; sa r&#233;ponse car elle correspondait &#224; ce que j'attendais, &#224; savoir le plus petit entier non nul dans l'intervalle des entiers positifs, ce que je n'avais pas pr&#233;cis&#233; dans ma question il est vrai.
Merci.

Le plus petit entier non nul

5 réponses

Votre réponse

Discussions similaires