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

\documentclass[a4paper]{article}

\usepackage[utf8x]{inputenc}    
\usepackage[T1]{fontenc}
\usepackage{ProfCollege}
\usepackage{tkz-euclide}
\usepackage{xlop}

\usepackage{fp}
\usepackage{ifthen}
\usepackage[francais,bloc]{automultiplechoice}   
% [,ordre] pour laisser les réponses dans l'ordre d'écriture
% [nowatermark] pour enlever le texte "PROJET" et le pied de page
\usepackage{multicol}
\usepackage{fancyhdr,amssymb,amsmath}
\usepackage[np]{numprint}
\geometry{a4paper,hmargin=1cm,top=2.5cm,bottom=1.5cm}
\AMCidsPosition{pos=side}
%\FPseed=125
\AMCinterIrep=1ex


\newcommand{\calculppcm}[2]{
\opgcd{#1}{#2}{pgcd}
\opdiv*{\number\numexpr#1*\number\numexpr#2}{pgcd}{q}{r}
\xdef\ppcm{\csname Op@q\endcsname}
}
\newcommand{\nbalea}[3]{\makeatletter
	\FPeval{n@a}{random*2-1}
	\FPeval{#1}{clip(n@a/abs(n@a)*trunc(random*(#3-#2)+#2,0))}
\makeatother}
\usepackage{selectNrandom}

%===================
\begin{document}
%===================
\baremeDefautM{b=.25,m=-.25,p=0}
\baremeDefautS{e=0,v=0,b=.5,m=0}

\element{categorie1}{

\nbalea\dizaine27
\FPeval\unite{trunc(random*6,0)}
\FPeval\angB{trunc(random*360,0)}
\FPeval\ang{clip(92+10*dizaine+unite)}
\FPeval\angC{ang+angB}

\FPeval\errA{clip(180-ang)}
\FPeval\errB{clip(88+10*dizaine-unite)}
\FPeval\errC{clip(180-errB)}

\selectNrandom{3}{A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z}{}
\newcommand{\letA}{\htguse{1}}
\newcommand{\letB}{\htguse{2}}
\newcommand{\letC}{\htguse{3}}
\begin{minipage}{.23\linewidth}

\begin{tikzpicture}[scale=.7]
\tkzDefPoints{0/0/A}
\tkzDefShiftPoint[A](\angB:3){B}
\tkzDefShiftPoint[A](\angC:3){C}
\tkzDrawLines[add=0 and .3](A,B A,C)
\tkzLabelPoint[anchor=\angB+90](A){$\letA$}
\tkzLabelPoint[anchor=\angB+90](B){$\letB$}
\tkzLabelPoint[anchor=\angC-90](C){$\letC$}
\tkzMarkAngle(B,A,C)
\tkzMarkSegments[pos = 1,shape=|,size=2pt](A,B A,C)
\end{tikzpicture}
\end{minipage}\hfill
\begin{minipage}{.22\linewidth}
\begin{question}{11}

Comment se nomme l'angle représenté ci-contre?
\begin{reponses}
\bonne{$\widehat{\letB\letA\letC}$}
\mauvaise{$\widehat{\letB\letC\letA}$}
\mauvaise{$\widehat{\letC\letB\letA}$}
\mauvaise{$\widehat{\letA\letC\letB}$}
\end{reponses}
\end{question}
\end{minipage}\hfill
\begin{minipage}{.22\linewidth}
\begin{question}{12}

Quelle est sa mesure?
\begin{reponses}
\bonne{$\ang^{\circ}$}
\mauvaise{$\errA^{\circ}$}
\mauvaise{$\errB^{\circ}$}
\mauvaise{$\errC^{\circ}$}
\end{reponses}
\end{question}
\end{minipage}\hfill
\begin{minipage}{.22\linewidth}
\begin{question}{13}

Quelle est sa nature?
\begin{reponses}
\FPifneg\dizaine \bonne{aigu} \mauvaise {obtus} \else \bonne{obtus} \mauvaise {aigu} \fi
\mauvaise{droit}
\mauvaise{plat}
\end{reponses}
\end{question}
\end{minipage}
}

\element{categorie2}{
\selectNrandom{6}{A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z}{}
\newcommand{\letA}{\htguse{1}}
\newcommand{\letB}{\htguse{2}}
\newcommand{\letC}{\htguse{3}}
\newcommand{\letD}{\htguse{4}}
\newcommand{\letE}{\htguse{5}}
\newcommand{\letF}{\htguse{6}}

\begin{minipage}{.3\linewidth}

\begin{tikzpicture}
\tkzDefPoints{0/0/A,5/0/B,1/2/C}
\tkzDrawPolygon(A,B,C)
\tkzDefMidPoint(A,C)\tkzGetPoint{F}
\tkzDefMidPoint(B,C)\tkzGetPoint{D}
\tkzDefLine[perpendicular=through D](A,B)\tkzGetPoint{E'}
\tkzInterLL(D,E')(A,B) \tkzGetPoint{E}
\tkzDrawSegments(F,D D,E)
\tkzLabelPoint[below](A){$\letA$}
\tkzLabelPoint[below](B){$\letB$}
\tkzLabelPoint[above](C){$\letC$}
\tkzLabelPoint[above](D){$\letD$}
\tkzLabelPoint[below](E){$\letE$}
\tkzLabelPoint[left](F){$\letF$}
%\tkzLabelPoint[below](A){$A$}
%\tkzLabelPoint[below](B){$B$}
%\tkzLabelPoint[above](C){$C$}
%\tkzLabelPoint[above](D){$D$}
%\tkzLabelPoint[below](E){$E$}
%\tkzLabelPoint[left](F){$F$}
\tkzMarkRightAngle(A,C,B)

\end{tikzpicture}
\end{minipage}
\begin{minipage}{.68\linewidth}
Le triangle $\letA\letB\letC$ est rectangle en $\letC$. $\letF$ et $\letD$ sont les milieux de $[\letA\letC]$ et $[\letB\letC]$. $\letE\in[\letA\letB]$.

\begin{minipage}{.24\linewidth}
\begin{question}{21}

Quel angle est aigu?

\begin{reponses}
\bonne{$\widehat{\letC\letA\letB}$}
\mauvaise{$\widehat{\letA\letC\letB}$}
\mauvaise{$\widehat{\letC\letD\letB}$}
\mauvaise{$\widehat{\letC\letD\letE}$}
\end{reponses}
\end{question}
\end{minipage}\hfill
\begin{minipage}{.24\linewidth}
\begin{question}{22}

Quel angle est obtus?

\begin{reponses}
\mauvaise{$\widehat{\letC\letA\letB}$}
\mauvaise{$\widehat{\letA\letC\letB}$}
\mauvaise{$\widehat{\letC\letD\letB}$}
\bonne{$\widehat{\letC\letD\letE}$}
\end{reponses}
\end{question}
\end{minipage}\hfill
\begin{minipage}{.24\linewidth}
\begin{question}{23}

Quel angle est droit?

\begin{reponses}
\mauvaise{$\widehat{\letC\letA\letB}$}
\bonne{$\widehat{\letA\letC\letB}$}
\mauvaise{$\widehat{\letC\letD\letB}$}
\mauvaise{$\widehat{\letC\letD\letE}$}
\end{reponses}
\end{question}
\end{minipage}\hfill
\begin{minipage}{.24\linewidth}
\begin{question}{24}

Quel angle est plat?

\begin{reponses}
\mauvaise{$\widehat{\letC\letA\letB}$}
\mauvaise{$\widehat{\letA\letC\letB}$}
\bonne{$\widehat{\letC\letD\letB}$}
\mauvaise{$\widehat{\letC\letD\letE}$}
\end{reponses}
\end{question}
\end{minipage}

\end{minipage}
}
\element{categorie3}{
\begin{minipage}{.5\linewidth}
\begin{question}{31}
\selectNrandom{6}{A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z}{}
\newcommand{\letA}{\htguse{1}}
\newcommand{\letB}{\htguse{2}}
\newcommand{\letC}{\htguse{3}}
\newcommand{\letD}{\htguse{4}}
\newcommand{\letE}{\htguse{5}}
\newcommand{\letF}{\htguse{6}}

\FPeval\valA{clip(trunc(random*7+1,0)*10+trunc(random*7+2,0))}
\FPeval\valB{clip(trunc(random*7+10,0)*10+trunc(random*7+2,0))}

Tracer un angle $\widehat{\letA\letB\letC}=\valA^{\circ}$ et un angle $\widehat{\letD\letE\letF}=\valB^{\circ}$

\AMCOpen{lines=2,lineheight=3.2cm}{\wrongchoice[0]{0}\scoring{0}\wrongchoice[0.5]{0.5}\scoring{0.5}\wrongchoice[1]{1}\scoring{1}\wrongchoice[1.5]{1.5}\scoring{1.5}\correctchoice[2]{2}\scoring{2}}

\end{question}
\end{minipage}
\begin{minipage}{.5\linewidth}


\begin{question}{41}
\selectNrandom{3}{A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z}{}
\newcommand{\letA}{\htguse{1}}
\newcommand{\letB}{\htguse{2}}
\newcommand{\letC}{\htguse{3}}

\FPeval\valA{clip(trunc(random*5+1,0)*10+trunc(random*7+2,0))}
\FPeval\valB{clip(trunc(random*5+1,0)*10+trunc(random*7+2,0))}
\FPeval\valC{clip(trunc(random*4+3,1))}
Tracer un triangle $\letA\letB\letC$ avec$\widehat{\letA\letB\letC}=\valA^{\circ}$, $\widehat{\letB\letA\letC}=\valB^{\circ}$ et $\letA\letB=\valC cm$

\AMCOpen{lines=5,dots=false}{\wrongchoice[0]{0}\scoring{0}\wrongchoice[0.5]{0.5}\scoring{0.5}\wrongchoice[1]{1}\scoring{1}\correctchoice[1.5]{1.5}\scoring{1.5}}

\end{question}
\end{minipage}


}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% fabrication des copies%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\exemplaire{10}{    
%%% debut de l'entête des copies :    
	%%% première ligne
	\begin{minipage}{1\linewidth}
	  \centering\large\bf 6.10-Angles-Test  
	\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.

\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[0]{categorie1}{tout}
\melangegroupe{categorie2}\copygroup[0]{categorie2}{tout}
\melangegroupe{categorie3}\copygroup[0]{categorie3}{tout}
%\melangegroupe{categorie4}\copygroup[0]{categorie4}{tout}
%\melangegroupe{categorie5}\copygroup[1]{categorie5}{tout}
%\melangegroupe{categorie6}\copygroup[1]{categorie6}{tout}
%\melangegroupe{categorie7}\copygroup[1]{categorie7}{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}