var canevas, x, n, prod, i, j, a, b, k, c, entreeFact, resultat, entreeFibo, bouton, couleurPolice, couleurFond, taille, fonction;

/**
 * Fonction exécutée une fois, au départ
 */
function actions_initiales() {
  disposerPageExecution(true,2000);
  document.body.style.backgroundColor = '#cccccc';
  createElement("h1",'Exemples d\'utilisation de grands entiers dans <i>p5Visuel</i>');
  createSpan("<br>");
  entreeFact=creerEntreeNommee('Factorielle de : ','1000');
  formater(entreeFact, 24, '#330033', '#33ff33');
  siRetourPrudent("entreeFact",entreeFact,"calculFac",calculFac);
  createSpan("").style("display","inline-block").style("width","40px");
  entreeFibo=creerEntreeNommee('Fibonacci numéro : ','1000');
  formater(entreeFibo, 24, '#330033', '#99ffff');
  siRetourPrudent("entreeFibo",entreeFibo,"calculFibo",calculFibo);
  createSpan("").style("display","inline-block").style("width","40px");
  bouton=createButton('Pgcd de factorielle et Fibonacci');
  formater(bouton, 24, '#330033', '#ffccff');
  siClicPrudent("bouton",bouton,"calculPGCD",calculPGCD);
  createSpan("<br>");
  createSpan("<br>");
  resultat=creerZoneTexte([],20,100);
  formater(resultat, 24, '#ffffff', '#3333ff');
  calculFac();
}

/**
 * Fonction exécutée périodiquement, de façon répétée
 */
function actions_en_boucle() {
}

/**
 * Décrire cette fonction…
 */
function calculFac() {
  fixeContenuPrudent("resultat",resultat,(String('Factorielle : ') + String(factorielle(valeurPrudent("entreeFact",entreeFact)))));
}

/**
 * Décrire cette fonction…
 */
function calculFibo() {
  fixeContenuPrudent("resultat",resultat,(String('Fibonacci : ') + String(fibonnacci(valeurPrudent("entreeFibo",entreeFibo)))));
}

/**
 * Décrire cette fonction…
 */
function calculPGCD() {
  fixeContenuPrudent("resultat",resultat,(String('pgcd : ') + String(pgcd(factorielle(valeurPrudent("entreeFact",entreeFact)), fibonnacci(valeurPrudent("entreeFibo",entreeFibo))))));
}

/**
 * Décrire cette fonction…
 */
function formater(x, taille, couleurPolice, couleurFond) {
  stylerObjetPrudent("x",x,'font-size',(String(taille) + String('pt')));
  stylerObjetPrudent("x",x,'color',couleurPolice);
  stylerObjetPrudent("x",x,'background-color',couleurFond);
  stylerObjetPrudent("x",x,'padding','10px');
}

/**
 * Décrire cette fonction…
 */
function fibonnacci(n) {
  a = (BigInt(1));
  b = (BigInt(1));
  for (k = 3; k <= n; k += abs(1)) {
    c = a + b;
    a = b;
    b = c;
  }
  return b;
}

/**
 * Décrire cette fonction…
 */
function factorielle(n) {
  prod = (BigInt(1));
  for (i = 1; i <= n; i += abs(1)) {
    prod = prod * (BigInt(i));
  }
  return prod;
}

/**
 * Décrire cette fonction…
 */
function pgcd(a, b) {
  while (b > 0) {
    c = a % b;
    a = b;
    b = c;
  }
  return a;
}