AutoIt Français

Code : Tout sélectionner

#include <array.au3>

Global $aBase[9]=["0","2","3","5","7","9","15","20","23"]
Do
    $ToSearch=InputBox("","a trouver?: ")
Until $ToSearch<>""

_Dichotomie($ToSearch,$aBase)




Func _Dichotomie($ToSearch,$aBase)
    if $aBase[floor(((UBound($aBase))+0)/(2))]<>$ToSearch Then ; prend la valeur de la moitié du tableau et regarde si elle vaut notre nombre
        _ArrayDisplay($aBase)
        If $aBase[floor(((UBound($aBase))+0)/(2))]<$ToSearch Then ;si la valeur de la moitié du tableau<nombre a chercher
            MsgBox(0,"",$aBase[floor(((UBound($aBase))+0)/(2))]&"<"&$ToSearch)
            for $i=0 To floor(((UBound($aBase))+0)/(2));je supprime toutes les lignes présentes avant dans le tableau
                _ArrayDelete($aBase,0)
            Next
            _Dichotomie($ToSearch,$aBase)
        Else;sinon je supprime toutes les lignes présentes après dans le tableau
            MsgBox(0,"",$aBase[floor(((UBound($aBase))+0)/(2))]&">"&$ToSearch)
            For $i=floor(((UBound($aBase))+0)/(2)) to UBound($aBase)-1
                _ArrayDelete($aBase,floor(((UBound($aBase))+0)/(2)))
            Next
            _Dichotomie($ToSearch,$aBase)
        EndIf

    Else
        Return $ToSearch
    EndIf
EndFunc