function Minimise (prof:byte; var meilleur:coup) :integer; {minimise un coup de l'adversaire de l'ordinateur} var Resultat,Minimum: integer; Ci,Reponse:coup; begin if (prof=0) then Minimise=evalue else begin Minimum:=32000; {plus grand que tout résultat d'évaluation} [*** tant qu'il y a un coup jouable Ci ***] jouer(Ci); Resultat:=Maximise(prof-1,Reponse); dejoue(Ci); if (ResultatMaximum) then begin Maximum:=Resultat; Meilleur:=Ci; end; {if} [*** fin du tant que ***] Maximise:=Maximum; end; end;