function MiniMax (prof:byte; var meilleur:coup) :integer; {MiniMax en notation 'Négamax'} var Resultat,Maximum: integer; Ci,Reponse:coup; begin Maximum:=-32000; {plus petit que tout résultat d'évaluation} [*** tant qu'il y a un coup jouable Ci ***] jouer(Ci); if (prof=1) then Resultat:=-evalue else Resultat:=-MiniMax(prof-1,Reponse); dejoue(Ci); if (Resultat>Maximum) then begin Maximum:=Resultat; Meilleur:=Ci; end; {if} [*** fin du tant que ***] MiniMax:=Maximum; end;