Baccalauréat 2008 Sujet 7 Corrigé

Program S7; Var n : integer; //*************************** Procedure saisie(Var n:integer); Begin Repeat writeln('donner le nombre de billes'); readln(n); Until (n In [20..50]); End; //*************************** Procedure retirer(n:integer); Var s,no,nb : integer; Begin s := 0; Repeat randomize; no := random(6)+1; If (n In [1..6]) Then no := n-1 Else If n=1 Then no := 1; writeln('nombre de billes retirees par l ordinateur :',no); writeln('nombre total de billes :',n-no); n := n-no ; s := s+1; If n<>0 Then Begin Repeat writeln('retirer de 1 a 6 billes'); readln(nb); Until (nb In [1..6]); writeln('nombre de billes retirees par le joueur :',nb); writeln('nombre total de billes :',n-nb); n := n-nb; s := s+1; End; Until (n=0); If (s Mod 2=0) Then writeln('désolé vous avez perdu') Else writeln('bravo vous avez gagné'); End; //*************************** Begin saisie(n); retirer(n); End.