乱数を使って解答付問題を１年ぶりに作ってみました。
適当に改変してご利用ください。
　　個人的には配列の練習です。

\documentclass[a4j,twocolumn,12pt]{jsarticle}
\usepackage{color,graphicx}
\usepackage{emathB}
\usepackage{emathPh}
\usepackage{emathPp}
\usepackage[perl]{emathRn}
\usepackage[maskAnstrue]{emathAe}
\def\labelenumi{\textbf{\theenumi.}}
\def\labelenumii{(\arabic{enumii})}
\usepackage[margin=15truemm]{geometry}
\columnseprule.4truept
\pagestyle{empty}
%
\let\KaitouTTL\relax
\makeatletter
\def\Ceva#1#2#3#4{%
\def\bp@{#1}
\def\pc@{#2}
\def\cq@{#3}
\def\qa@{#4}
\ifnum\bp@=0 \errmessage{! error}\fi
\ifnum\pc@=0 \errmessage{! error}\fi
\ifnum\cq@=0 \errmessage{! error}\fi
\ifnum\qa@=0 \errmessage{! error}\fi
\BYakubun\bp@\pc@\bp@\pc@
\BYakubun\cq@\qa@\cq@\qa@
\def\ar@{1}
\FMul{\pc@/\bp@}{\qa@/\cq@}\tmp
\FDiv\tmp\ar@\kotae
\FtoB\kotae\bunshi\bunbo
\calcval{\bp@/\pc@*\cq@/\qa@*\ar@}\rb@
\begin{zahyou*}[haiti=t,ul=6mm,Yohaku=5mm](0,5)(0,4)
\tenretu{A(2,4)n;B(0,0)sw;C(5,0)se}
\Bunten\B\C\bp@\pc@\P
\Bunten\C\A\cq@\qa@\Q
\Bunten\A\B\ar@\rb@\R
{\thicklines
\Takakkei{\A\R\B\P\C\Q}}
\Drawline{\A\P}
\Drawline{\B\Q}
\Drawline{\C\R}
\Put\P[s]{P}
\Put\Q[ne]{Q}
\Put\R[nw]{R}
\LandL\A\P\B\Q\O
%\Put\O[ne]{O}
\Kuromaru\O
\HenKo[*]\B\P{\bp@}
\HenKo[*]\P\C{\pc@}
\HenKo[*]\C\Q{\cq@}
\HenKo[*]\Q\A{\qa@}
\HenKo[*]\A\R{$x$}
\HenKo[*]\R\B{$y$}
\end{zahyou*}
\vfill
\begin{Kaitou}
$\bunsuu{\mathrm{AR}}{\mathrm{RB}}\times\bunsuu{\bp@}{\pc@}
\times\bunsuu{\cq@}{\qa@}=1$
\end{Kaitou}

\hfill{\bfseries\large 答\underline{\makebox[40mm]{\kaitou{$\mathrm{AR}:\mathrm{RB}=\bunshi:\bunbo$}}}}
}
\makeatother
%
\begin{document}
\twocolumn[\bfseries\Large チェバの定理(1)]

\ransuuretu{50}\kekka
\hairetusyokika{ceva}
\hairetutuika{ceva}{1111}
\Ifor\ban{0}{10}\Do{%
\Ransuu[d]{Int(X*5+2)}\tmpi
\Ransuu[d]{Int(X*5+2)}\tmpii
\Ransuu[d]{Int(X*5+2)}\tmpiii
\Ransuu[d]{Int(X*5+2)}\tmpiv
\BYakubun\tmpi\tmpii\tmpi\tmpii
\BYakubun\tmpiii\tmpiv\tmpiii\tmpiv
\calcval[d]{\tmpi*1000+\tmpii*100+\tmpiii*10+\tmpiv}\tmp
\hairetukakunin{ceva}\tmp\temp
}
\begin{enumerate}
\item 次の三角形で$\mathrm{AR}:\mathrm{RB}$の比を求めよ。
\begin{enumerate}
\item
\expandafter\Ceva\cevaii
\item
\expandafter\Ceva\cevaiii
\item
\expandafter\Ceva\cevaiv
\newpage
\item
\expandafter\Ceva\cevav
\item
\expandafter\Ceva\cevavi
\item
\expandafter\Ceva\cevavii
\end{enumerate}
\end{enumerate}
\twocolumn[\bfseries\Large チェバの定理(1)の解答]
\begin{enumerate}
\item 次の三角形で$\mathrm{AR}:\mathrm{RB}$の比を求めよ。
\maskAnsfalse%
\begin{enumerate}
\item
\expandafter\Ceva\cevaii
\item
\expandafter\Ceva\cevaiii
\item
\expandafter\Ceva\cevaiv
\newpage
\item
\expandafter\Ceva\cevav
\item
\expandafter\Ceva\cevavi
\item
\expandafter\Ceva\cevavii
\end{enumerate}
\end{enumerate}
\end{document}

▼関連発言
│
└◆497:乱数を使ってチェバの定理の問題 [石原　守] 11/25 12:47
　└◆499:Re:乱数を使ってチェバの定理の問題 [田中徹] 11/25 23:12
　　├◆500:Re[2]:乱数を使ってチェバの定理の問題 [石原　守] 11/26 07:47
　　│└◆501:Re[3]:乱数を使ってチェバの定理の問題 [田中徹] 11/26 10:39
　　│　├◆502:Re[4]:メネラウスの定理の問題 [石原　守] 11/26 12:30
　　│　└◆531:--- [---] 01/10 18:40<-last
　　└◆503:Re[2]:乱数を使ってチェバの定理の問題 [田中徹] 11/27 22:52