Nombre premier avec recursivité

Fermé

AMOULA_info Messages postés 3 Date d'inscription lundi 19 novembre 2007 Statut Membre Dernière intervention 20 novembre 2007 - 20 nov. 2007 à 20:31
timo - 16 févr. 2009 à 21:23

Bonjour,
j'ai d'autres problemes avec la recursivité!!!
je veux savoir comment tester si un nombre n est premier ou non avec la methode recursive et la decomposition en facteur premier et les nombres parfaits...
merci pour votre aide( si je trouve une solution moi même je vais la poster )

Posez votre question

A voir également:

Fonction premier recursive
Fonction si et - Guide
Premier pro - Télécharger - Montage & Édition
Décomposition facteur premier casio graph 35+e - Forum calculatrices
Fonction somme excel - Guide
Fonction moyenne excel - Guide

12 réponses

Réponse 1 / 12

Meilleure réponse

La meilleure réponse est la réponse qui a été validée par nos équipes.

gafi Messages postés 7 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 1 février 2008 4
11 janv. 2008 à 08:35

as tu la solution du nombre parfait
et merci

Réponse 2 / 12

sonya
11 janv. 2008 à 21:06

bonsoir,pour la solution de la decomposition en facteur premier la voila:

procedure fact_prem(n,i:integer);
begin
if(n=1) then writeln(1);
if (n mod i=0) then
begin
writeln(i,'*');
if (i<n) then
fact_prem(n div i,i);
end
else if (i<n) then fact_prem(n,i+1)
end;

NB:l'appel dans le progrmme principal se fait avec fact_prem(n,2)

Réponse 3 / 12

gafi Messages postés 7 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 1 février 2008 4
16 déc. 2007 à 18:22

j'ai les meme pbmes j'ai une solution mais pas trops juste tu peux la voir avec moi
program parfAIT;
uses wincrt;
var n,x:integer;

function sommediv(n,x:integer):integer;
begin

if x=0 then sommediv:=0
else
if n mod x=0 then
sommediv:=sommediv(n,x-1)+x
else
sommediv:=sommediv(n,x-1)+0;
end;

function verif(n:integer):boolean;

begin
if n=sommediv(n,x) then
verif:=true
else
verif:=false;
end;
begin
writeln('n');
readln(n);
X:=n div 2;
if verif(n) =true then write('parfait')
else
write('non PARFAIT');
end.

Réponse 4 / 12

sonya
8 janv. 2008 à 13:26

bonjour,
au fait moi je crois que j'ai une autre solution mais il y a un petit problème de syntaxe vous pouvez la voir?:
function nb_prem(n,x:integer):boolean;
begin
if (x<n) then begin if (n mod x=0)then nb_prem:=false
else nb_prem:=nb_prem(n,x+1);
end;
else nb_prem:=true;
end;
si vous trouvez l'erreur merci de me la signaler
@+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 12

gafi Messages postés 7 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 1 février 2008 4
11 janv. 2008 à 08:26

bonjour
voila la correction syntaxique( en faite toujour avant le else il n'ya pas de pt virgule}
et merci
pour ta solution
function nb_prem(n,x:integer):boolean;
begin
if (x<n) then
begin
if (n mod x=0)then
nb_prem:=false
else
nb_prem:=nb_prem(n,x+1);
end
else nb_prem:=true;
end;
au niveau du pgme principale tu dois commencer x à 2
begin
writeln('n');
readln(n);
x:=2;
if nb_prem(n,x) =true then write('PREMIER')
else
write('non PREMIER');
end.

Réponse 6 / 12

sonya
11 janv. 2008 à 19:52

merci pour la correction gafi

Réponse 7 / 12

sonya
11 janv. 2008 à 20:39

pour te repondre je dois savoir ce que c'est qu'un nombre parfait??

Réponse 8 / 12

gafi Messages postés 7 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 1 février 2008 4
12 janv. 2008 à 20:17

un nombre parfait est un nombre qui est egale à la somme de ses diviseurs sauf lui meme
exemple 6 est parfait car 6=1+2+3
et merci

Réponse 9 / 12

sonya89
18 janv. 2008 à 18:23

salu,voici ce que j'ai impovisé mais je te previens çane tourne pas correctement:

program nbr_parf;
uses wincrt;
var
s,i,n:integer;
b:boolean;

procedure somme(var s,i:integer);
begin
s:=s+i;
end;

procedure parfait( n,i:integer );
begin
if (i>0) then
begin
if (n mod i=0) then somme(s,i);
parfait(n,i-1);
end;
end;

procedure verif(var b:boolean);
begin
somme(s,i);
parfait(n,i);
if (s=n)then b:=true
else b:=false
end;

BEGIN
writeln('donner un entier');readln(n);
verif(b);
if (b=true) then writeln('premier')
else writeln('n"est pas premier');
END.

Réponse 10 / 12

sonya89
18 janv. 2008 à 18:26

tu m'exusera les fautes de frappe c'est parceque je suis vraiment exténuée,merci

Réponse 11 / 12

sonya89 Messages postés 11 Date d'inscription samedi 12 janvier 2008 Statut Membre Dernière intervention 9 mai 2008
18 janv. 2008 à 18:53

mon cher,je viens juste de m'aperçevoir de ta solution publiée le 16 décembre:

program parfAIT;
uses wincrt;
var n,x:integer;

function sommediv(n,x:integer):integer;
begin

if x=0 then sommediv:=0
else
if n mod x=0 then
sommediv:=sommediv(n,x-1)+x
else
sommediv:=sommediv(n,x-1)+0;
end;

function verif(n:integer):boolean;

begin
if n=sommediv(n,x) then
verif:=true
else
verif:=false;
end;
begin
writeln('n');
readln(n);
X:=n div 2;
if verif(n) =true then write('parfait')
else
write('non PARFAIT');
end.

eh ben,ça tourne!!

Réponse 12 / 12

gafi Messages postés 7 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 1 février 2008 4
1 févr. 2008 à 08:11

en faite la fonction parfait doit retourner vrai ou faux
voila la solution
program parfAITs;
uses wincrt;
var a,n,x,s:integer;

function parfait(n,x,s:integer):boolean;

begin
if x<=n div 2 then
if n mod x=0 then
begin
s:=s+x;
if s=n then
parfait:=true;
parfait:=parfait(n,x+1,s);
end
else
parfait:=parfait(n,x+1,s)
else
if (x>n div 2) and(s<>n) then
parfait:=false;
end;
begin

for a :=1 to 1000 do
begin
X:=1;s:=0;
if parfait(a,x,s) =true then writeln(a)
end;
end.

timo
16 févr. 2009 à 21:23

pour savoir si un nombre est parfait ou non voila le programme
#include <stdio.h>
#include<conio.h>
main ()
{
int n,i,s;

printf("entrer un nombre ");
scanf("%d",&n);
i=1; s=0
while(i<=n/2)
{
if(n%i==0)
{
s=s+i;
}
i++;
}
if(s==n)
printf("le nombre est parfait");
else
printf("il ne l'est pas ");
getch();
}

Posez votre question

Discussions similaires

Formulaires PDF et enregistrement

Enjel - 24 sept. 2007 à 16:48
Taniamkv - 17 sept. 2022 à 10:58

27 réponses

Algorithme d'une factorielle - boucle while

ade67 - 3 mars 2008 à 19:05
DZjoker - 6 janv. 2018 à 21:59

12 réponses

Transformer texte en nombre sous Excel

finoute - 8 mars 2007 à 11:49
Olivier - 23 nov. 2021 à 10:52

35 réponses

[algorithme calcul pgcd]

make1989 - 23 févr. 2007 à 14:19
ZAINPRODUCT - 18 oct. 2014 à 16:17

23 réponses

Excel : notion de compris entre...

JC DARAGON - 20 mars 2008 à 15:07
RHM - 30 avril 2018 à 14:36

10 réponses

Je ne peux plus envoyer de message sur Facebook

djjo75 - 11 avril 2008 à 13:54
menade - 5 oct. 2010 à 14:44

62 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire

Discussions similaires

Newsletters