\documentclass[12pt,a4paper,french]{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
\usepackage{microtype}


\usepackage{siunitx,fp}
\usepackage[francais,bloc,outsidebox]{automultiplechoice}


\begin{document}
\FPseed=41825


\onecopy{10}{%
%%%%%Liste des puissances pour l'exercice
\FPeval{\PuissanceLampe}{clip(25*trunc(1+3*random,0))}%\FPeval{\ApproxCalcul}{clip(10*\PuissanceLampe)}
\FPeval{\PuissanceRadiateur}{clip(500*trunc(1+3*random,0))}
\FPeval{\PuissancePlaque}{clip(500*trunc(1.5+3*random,0))}
\FPeval{\PuissanceTotale}{clip(2000+2*\PuissanceLampe+\PuissanceRadiateur+\PuissancePlaque)}
\FPeval{\Intensite}{round(\PuissanceTotale/230,1)}
\FPeval{\IntensiteApprox}{round(1+\PuissanceLampe/23,0)}%x10 pour l'écart


On branche simultanément deux lampes à incandescence de puissance $P_L= \SI{\PuissanceLampe}{W}$ chacune, un four électrique de puissance $P_F=\SI{2000}{W}$, une plaque de cuisson de puissance $P_C=\SI{\PuissancePlaque}{W}$ et un radiateur de puissance $P_R=\SI{\PuissanceRadiateur}{W}$.\bigskip

%\begin{multicols}{2}

\noindent%
\begin{questionmultx}{PuissanceElectrique-Totale}
	Quelle est la puissance totale demandée par l'ensemble de ces appareils ?

\AMCnumericChoices{\PuissanceTotale}{digits=4,decimals=0,exact=0,scoreexact=1,approx=\PuissanceLampe,scoreapprox=.75,sign=false,vertical=false,borderwidth=.2mm,%
			bordercol=gray,hspace=.2ex,vspace=0em,reverse=false,Tpoint={\Large$\prime$\vspace*{-.1em}}}
\end{questionmultx}




\begin{questionmultx}{PuissanceElectrique-Intensite}
	La tension d'utilisation vaut $U=\SI{230}{V}$.
	Calculez l'intensité du courant $I$ qui traverse le disjoncteur lorsque tous les appareils sont branchés.

\AMCnumericChoices{\Intensite}{digits=3,decimals=1,exact=0,scoreexact=1,approx=\IntensiteApprox,scoreapprox=.75,sign=false,vertical=false,borderwidth=.2mm,%
	bordercol=gray,hspace=.2ex,vspace=0em,reverse=false,Tpoint={\Large$\prime$\vspace*{-.1em}}}
%	\AAC{\Intensite}{0}{1}{\IntensiteApprox}{.75}{false}{0}{false}%valeur | distance exact| point| distanceapprox |point| signe| ajout decimal si entier | affichage vertical si true
\end{questionmultx}

\begin{question}{PuissanceElectrique-Disjoncteur}\bareme{b=0.5}
	Le disjoncteur se déclenche à partir d'une intensité $I_{MAX} = \SI{20}{A}$. Le disjoncteur se déclenche-t-il ?
	
\FPifgt{\Intensite}{20}{\begin{reponseshoriz}\bonne{Oui}\mauvaise{Non}\end{reponseshoriz}}\else{\begin{reponseshoriz}\bonne{Non}\mauvaise{Oui}\end{reponseshoriz}}\fi
%	\explain{Le disjoncteur se déclenche si l'intensité est supérieure à  \SI{20}{A}}
\end{question}
}

\end{document}
