%%%--------------------------------
%%% --------- QCM AMC -------------
%%% -------------------------------
%%% Exemple : QCM de démonstration
%%% -------------------------------
%%% José OUIN - www.joseouin.fr 
%%% -------------------------------
%%% -------------------------------

\documentclass[a4paper]{article}

\usepackage{IncipitQCM}
\usepackage[francais,bloc]{automultiplechoice}
\usepackage{listofitems}
% [,ordre] pour laisser les réponses dans l'ordre d'écriture
% [nowatermark] pour enlever le texte "PROJET" et le pied de page
\def\titresujet{5-03-Test : Probabilités}
\def\AMCbeginQuestion#1#2{\par\noindent{\bf Question #1 :} #2\hspace*{1em}}\geometry{a4paper,hmargin=1cm,top=2.5cm,bottom=1.5cm}

\binoppenalty 10000
\relpenalty 10000

\sloppy

%===================
\begin{document}
%===================
%\baremeDefautM{b=.5,m=-.5,p=0}
\baremeDefautM{formula=NBC-NMC,p=0}
\baremeDefautS{e=0,v=0,b=1,m=0}
\AMCsetScoreZone{width=1.5em,height=1.5ex,depth=.5ex,position=question}

\element{categorie1}{
\begin{questionmult}{11}
\bareme{formula=,e=0,v=0,b=.5,m=0,p=-100,d=0}
Parmi les expériences suivantes, lesquelles sont des expériences aléatoires ?

\begin{reponses}
\bonne{On lance un dé à six faces, et on regarde le nombre apparaissant sur la face supérieure.}
\mauvaise{On appuie le chiffre 7 sur la calculatrice et on regarde ce qui s'affiche à l'écran.}
\mauvaise{On fait tomber un \oe{}uf et on regarde si la coquille
se casse.}
\bonne{On achète un ticket à gratter et on regarde s'il est gagnant.}
\bonne{On interroge la première personne que l'on croise dans la rue et on lui demande son âge.}
\mauvaise{On interroge Michel Drucker et on lui demande son âge.}
\mauvaise{On jette une feuille de papier dans le feu et on regarde si elle brûle.}
\end{reponses}

\end{questionmult}
}

\element{categorie2t}{
Les évènements suivant sont :\medskip

}

\element{categorie2}{
\begin{minipage}{.22\linewidth}
\begin{question}{21}
Je gagne au moins une fois à Pierre-Feuille-Ciseaux sur 10 parties.
\begin{reponses}[o]
\mauvaise{certain}
\bonne{très probable}
\mauvaise{assez probable}
\mauvaise{peu probable}
\mauvaise{impossible}
\end{reponses}
\end{question}
\end{minipage}\hfill
}
\element{categorie2}{
\begin{minipage}{.22\linewidth}
\begin{question}{22}
La télévision reste allumée lorsque je la débranche.
\begin{reponses}[o]
\mauvaise{certain}
\mauvaise{très probable}
\mauvaise{assez probable}
\mauvaise{peu probable}
\bonne{impossible}
\end{reponses}
\end{question}
\end{minipage}\hfill
}
\element{categorie2}{
\begin{minipage}{.22\linewidth}
\begin{question}{23}
Je réponds à toutes les questions de ce contrôle au hasard et j'ai tout juste.
\begin{reponses}[o]
\mauvaise{certain}
\mauvaise{très probable}
\mauvaise{assez probable}
\bonne{peu probable}
\mauvaise{impossible}
\end{reponses}
\end{question}
\end{minipage}\hfill
}
\element{categorie2}{
\begin{minipage}{.22\linewidth}
\begin{question}{24}
Louis~XIV devient président de la République en 2027.
\begin{reponses}[o]
\mauvaise{certain}
\mauvaise{très probable}
\mauvaise{assez probable}
\mauvaise{peu probable}
\bonne{impossible}
\end{reponses}
\end{question}
\end{minipage}\hfill
}

\element{categorie3}{\setlength{\AMChorizAnswerSep}{1em plus 1em}

Lors d'un jeu, on lance la roue suivante, et on regarde la case pointée par la flèche lorsqu'elle s'arrête. \medskip
\FPeval{\nbcases}{clip(round(random*12+10,0))}
\FPeval{\anglerandom}{random*360}
\pgfmathdeclarerandomlist{MyColors}{{black}{black!50}{white}}
\FPeval\noires{clip(0)}
\FPeval\grises{clip(0)}
\FPeval\blanches{clip(0)}
\gdef\nbnoires{0}
\gdef\nbblanches{0}
\gdef\nbgrises{0}

\begin{minipage}{.3\linewidth}

\begin{tikzpicture}[scale=1,remember picture]
\tkzDefPoints{0/0/A,3/0/B}
\tkzCercle{A}{B}
\multido{\i=0+1}{\nbcases}{
		\tkzDefShiftPoint[A](\fpeval{360*(\i)/\nbcases+\anglerandom}:3){A\i}
		\ifthenelse{\equal{\i}{0}}{\def\valcoul{white}}{
			\ifthenelse{\equal{\i}{3}}{\def\valcoul{black}}{
			\ifthenelse{\equal{\i}{5}}{\def\valcoul{black!50}}{
			\pgfmathrandomitem{\valcoul}{MyColors}			
			}}}
		\tkzFillSector[rotate,color=\valcoul](A,A\i)(360/\nbcases)
		\tkzDefShiftPoint[A](\fpeval{360*\i/\nbcases +180/\nbcases+\anglerandom}:2.3){B\i}
		\ifthenelse{\equal{\valcoul}{black}}{
			\FPeval\noires{clip(noires+1)}
			\expandafter\gdef\expandafter\nbnoires\expandafter{\noires}
			\draw(B\i) node[color=white]{$\fpeval{\i+1}$};}
			{\draw(B\i) node[color=black]{$\fpeval{\i+1}$};
			\ifthenelse{\equal{\valcoul}{white}}{
				\FPeval\blanches{clip(blanches+1)}
				\expandafter\gdef\expandafter\nbblanches\expandafter{\blanches}}
				{\FPeval\grises{clip(grises+1)}
				\expandafter\gdef\expandafter\nbgrises\expandafter{\grises}}
			\tkzDrawSegment[color=black!80](A,A\i)}
	}
\tkzDefShiftPoint[A](90:2.8){B}
\tkzDefShiftPoint[B](75:.5){C}
\tkzDefShiftPoint[B](105:.5){D}
\tkzDrawPolygon[fill=black](B,C,D)
\tkzDrawPolygon[color=white,very thick](B,C,D)
\tkzDrawPolygon[color=black,very thin](B,C,D)

\end{tikzpicture}

\end{minipage}\hfill
\begin{minipage}{.65\linewidth}
\begin{minipage}{.47\linewidth}
\begin{question}{31}

Quelle est la probabilité de tomber sur le 8 ?

\begin{reponseshoriz}
\bonne{$\dfrac{1}{\nbcases}$}
\mauvaise{$\dfrac{8}{\nbcases}$}
\mauvaise{$8$}
\mauvaise{$\dfrac{1}{8}$}
\end{reponseshoriz}

\end{question}
\end{minipage}\hfill
\begin{minipage}{.47\linewidth}
\begin{question}{32}

Quelle est la probabilité de tomber sur une case noire ?

\begin{reponseshoriz}
\bonne{$\dfrac{\nbnoires}{\nbcases}$}
\mauvaise{$\dfrac{\nbnoires}{\fpeval{\nbcases-\nbnoires}}$}
\mauvaise{$\nbnoires$}
\mauvaise{$\dfrac{\nbcases}{\nbnoires}$}
\end{reponseshoriz}

\end{question}
\end{minipage}

\begin{minipage}{.47\linewidth}
\begin{question}{33}

Quelle est la probabilité de tomber sur un multiple de 5 ?

\begin{reponseshoriz}
\bonne{$\dfrac{\fpeval{trunc(\nbcases/5,0)}}{\nbcases}$}
\mauvaise{$\dfrac{5}{\nbcases}$}
\mauvaise{$\dfrac{\fpeval{trunc(\nbcases/5,0)}}{5}$}
\mauvaise{$\dfrac{1}{8}$}
\end{reponseshoriz}

\end{question}
\end{minipage}\hfill
\begin{minipage}{.47\linewidth}
\begin{question}{34}\QuestionIndicative.

Quelle est la probabilité de tomber sur un nombre impair ?

\begin{reponseshoriz}
\bonne{$\dfrac{1}{\nbcases}$}
\mauvaise{$\dfrac{8}{\nbcases}$}
\mauvaise{$8$}
\mauvaise{$\dfrac{1}{8}$}
\end{reponseshoriz}

\end{question}
\end{minipage}
\end{minipage}\medskip

\begin{questionmult}{35}
\bareme{formula=,e=0,v=0,b=.5,m=0,p=-100,d=0}
Parmi ces évènements, lequel est le plus probable ? (si plusieurs sont à égalité les cocher tous)
\FPeval\nbsup{\nbcases-15}
%\def\prob\fpeval{max(\nbnoires , \nbblanches , \nbgrises , \nbsup , 5)}
\expandafter\def\expandafter\prob\expandafter{\fpeval{max(\nbnoires , \nbblanches , \nbgrises , \nbsup , 5)}}


\begin{reponseshoriz}
\ifthenelse{\equal{\prob}{\nbnoires}}{\bonne{Tomber sur une case noire.}}{\mauvaise{Tomber sur une case noire.}}
\ifthenelse{\equal{\prob}{\nbblanches}}{\bonne{Tomber sur une case blanche.}}{\mauvaise{Tomber sur une case blanche.}}
\ifthenelse{\equal{\prob}{\nbgrises}}{\bonne{Tomber sur une case grise.}}{\mauvaise{Tomber sur une case grise.}}
\ifthenelse{\equal{\prob}{\nbcases-15}}{\bonne{Tomber sur un numéro strictement supérieur à 15.}}{\mauvaise{Tomber sur un numéro strictement supérieur à 15.}}
\ifthenelse{\equal{\prob}{5}}{\bonne{Tomber sur un numéro inférieur ou égal à 5.}}{\mauvaise{Tomber sur un numéro inférieur ou égal à 5.}}


\end{reponseshoriz}

\end{questionmult}

}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% fabrication des copies%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\exemplaire{15}{    
%%% debut de l'entête des copies :    
	%%% première ligne
	\begin{minipage}{1\linewidth}
	  \centering\large\bf \titresujet  
	\end{minipage}

	%%% codage des numéros d'étudiants sur 3 chiffres par les candidats et encadré d'écriture manuelle des noms.
	\begin{minipage}{.6\linewidth}
	\vspace*{3mm}
	{\setlength{\parindent}{0pt}\AMCcodeGridInt[h]{etu}{4}}	\end{minipage}\hfill\begin{minipage}{.35\linewidth}

     \vspace{3ex}
	 \champnom{\fbox{
	 \begin{minipage}{1\linewidth}
			\medskip NOM : \\
			\medskip Prénom : \\
			\medskip Classe : \\
			n° :

	 \end{minipage}
	    }
	   }
	\hfill\vspace{1ex}
	\end{minipage}
% texte de présentation 
\begin{center}\em

  Les questions faisant apparaître le symbole \multiSymbole{} peuvent présenter une ou plusieurs bonnes réponses. Les autres ont une unique bonne réponse. Les réponses fausses ou incohérentes retirent des points.
  
  Les cases rondes sont réservées pour la correction et ne doivent en aucun cas être cochées par les élèves.

\end{center}
	

%%% Fin de l'entête
%%%%%%%%%%%%%%%%%%%%%%%

%% Composition des QCM
%%% On mélange des questions par groupe
% On efface le {tout} précédent
\cleargroup{tout}
% On mélange par "catégorie", et on prélève aléatoirement [n] questionsD
% du lot {categorie-k} vers la copie complète {tout}
% puis on restitue la copie.
% Si on met [0], toutes les questions sont prises.
\melangegroupe{categorie1}\copygroup{categorie1}{tout}
\melangegroupe{categorie2t}\copygroup{categorie2t}{tout}
\melangegroupe{categorie2}\copygroup{categorie2}{tout}
\melangegroupe{categorie3}\copygroup{categorie3}{tout}
%\melangegroupe{categorie6}\copygroup[1]{categorie6}{tout}
%\melangegroupe{categorie7}\copygroup[1]{categorie7}{tout}
%\melangegroupe{categorie8}\copygroup[1]{categorie8}{tout}

\restituegroupe{tout}

% Saut d'une page si le sujet comporte un nombre impair de pages.
% Ainsi il est possible d'imprimer les sujets en recto-verso.

%\AMCcleardoublepage    

%%% Fin de la création des questionnaire

} % Fin de exemplaires{k}{ 

\end{document}


