1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
\documentclass{article}
\usepackage{luaotfload}
\usepackage{luatextra}
\usepackage{amsmath,amssymb,marvosym,stmaryrd,calrsfs}%
\usepackage{lualatex-math}%patch pour lualatex
\usepackage[math-style=french]{unicode-math}
\usepackage[frenchb]{babel}
\begin{document}
\begin{luacode}
Euclide = function(a,b)
if a < b then a,b = b,a end
r = math.mod(a,b)
tex.sprint("\\begin{tabular}{|c|c|c|}\\hline")
tex.sprint("a&b&r\\tabularnewline\\hline")
tex.sprint(a .. "&" .. b .. "&" .. r .. "\\tabularnewline\\hline")
while r > 0 do
a,b = b,r
r = math.mod(a,b)
tex.sprint(a .. "&" .. b .. "&" .. r .. "\\tabularnewline\\hline")
end
tex.sprint("\\end{tabular}")
end
\end{luacode}
\newcommand*{\Euclide}[2]{\directlua{Euclide(#1,#2)}}%
Calcul du PGCD : \Euclide{39}{15}%
\bigskip
Calcul du PGCD : \Euclide{1897}{879}
\end{document} |
Partager