n_prog * programme(void)
{
n_l_dec *variables, *fonctions;
////affiche_balise_ouvrante__func__, TRACE_XML);
if (est_premier(_optDecVariables_, uniteCourante)
|| est_premier(_listeDecFonctions_, uniteCourante)
|| est_suivant(_programme_, uniteCourante)) {
variables=optDecVariables();
fonctions=listeDecFonctions();
goto end;
}
erreur("erreur");
end:
////affiche_balise_fermante(__func__, TRACE_XML);
return cree_n_prog(variables, fonctions);
}
int premier_vers_numero(int p)
{
int compt = 0; /* compteur */
int q = 1; /*var de boucle */
while (q < p)
{
q = q + 1;
if (est_premier(q))
{
compt = compt + 1; /*on compte un nouveau nb premier */
}
}
/* le compteur a enregistre tous les nombre premiers jusqu'a p compris */
return compt;
}
/* Definition des fonctions utilisateur */
int numero_vers_premier(int n)
{
int compt = 0; /* compteur */
int p = 1; /*var de boucle */
while (compt < n)
{
p = p + 1;
if (est_premier(p))
{
compt = compt + 1; /*on compte un nouveau nb premier */
}
}
/* le compteur a enregistre n nombre premiers, p est le dernier d'entre eux */
return p;
}
