doc/figures/Syracuse.mp

   1 input mp-scratch;
   2
   3 beginfig(1);
   4   draw Drapeau;
   5   draw SupprimerList("\opSimple{tout}","Suite");
   6   draw Demander("\opSimple{Quel est le nombre choisi ?}");
   7   draw AjouterList("\opCap{réponse}","Suite");
   8   draw MettreVar("pas",1);
   9   draw RepeterI1;
  10   draw Si2("\opOp{\opList{élément \opVar{pas} de \opSousList{Suite}} modulo \opSimple{2}}\,$\bm{=}$\,\opSimple{0}");
  11   draw MettreVar("résultat","\opOp{\opList{élément \opVar{pas} de \opSousList{Suite}}\,$\bm{/}$\,\opSimple{2}}");
  12   draw Sinon2;
  13   draw MettreVar("résultat","\opOp{\opSimple{3}\,$\bm{\times}$\,\opList{élément \opVar{pas} de \opSousList{Suite}}\,$\bm{+}$\,\opSimple{1}}");
  14   draw FinBlocSi2;
  15   draw Si3("\opList{\opSousList{Suite} contient \opVar{résultat} ?}");
  16   draw Stop("tout");
  17   draw Sinon3;
  18   draw AjouterList("\opVar{résultat}","Suite");
  19   draw AjouterVar("pas",1);
  20   draw FinBlocSi3;
  21   draw FinBlocRepeter1(10);
  22 endfig;
  23
  24 end