A voir également:
- Programme pascal, besoin de solution
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- Solution prs ✓ - Forum Réseaux sociaux
2 réponses
emmanuelP
Messages postés
137
Date d'inscription
vendredi 8 février 2002
Statut
Contributeur
Dernière intervention
7 mai 2006
161
21 mai 2005 à 00:30
21 mai 2005 à 00:30
Salut,
En "pseudo langage" ca donne:
i:=j:=1;
pour i de 1 a (racine(P))
si (P mod i =0) alors
T[j]=i; //direct -> table car meme sens de progression
aux[j]=P/j; //memo dans auxiliaire pour l instant
finsi
finpour
//a ce stade, on a tous les diviseurs dans T[1..j] et aux[1..j]
//on "recolle" aux [j..1] a T[1..j]
pour i de 1 à j
T[j+i]:=aux[j+1-i];
finpour
//on a tous les diviseurs (P inclus) dans T[1..2j]
// on attaque les multiples
i:=2;
j:=2*j-1;
tant que i*P<N faire
T[j+i]:=i*P;
i:=i+1;
fintantque
Voila y a pls qu a coder, normalement ca doit marcher
Good luck
En "pseudo langage" ca donne:
i:=j:=1;
pour i de 1 a (racine(P))
si (P mod i =0) alors
T[j]=i; //direct -> table car meme sens de progression
aux[j]=P/j; //memo dans auxiliaire pour l instant
finsi
finpour
//a ce stade, on a tous les diviseurs dans T[1..j] et aux[1..j]
//on "recolle" aux [j..1] a T[1..j]
pour i de 1 à j
T[j+i]:=aux[j+1-i];
finpour
//on a tous les diviseurs (P inclus) dans T[1..2j]
// on attaque les multiples
i:=2;
j:=2*j-1;
tant que i*P<N faire
T[j+i]:=i*P;
i:=i+1;
fintantque
Voila y a pls qu a coder, normalement ca doit marcher
Good luck