Algorithmique

Fermé
iyia Messages postés 3 Date d'inscription mardi 29 octobre 2013 Statut Membre Dernière intervention 30 octobre 2013 - 29 oct. 2013 à 06:42
ajp55 Messages postés 426 Date d'inscription dimanche 31 juillet 2011 Statut Membre Dernière intervention 17 février 2015 - 30 oct. 2013 à 14:05
salam
comment fair lalgorithme afficher les N premiers entiers impairs dans lordre decroissant
est merci davance
A voir également:

3 réponses

ajp55 Messages postés 426 Date d'inscription dimanche 31 juillet 2011 Statut Membre Dernière intervention 17 février 2015 23
29 oct. 2013 à 12:52
svp, on résout pas les exercices de classe ici. il faut au moins proposé votre approche et on vous aidera à l'améliorer. Merci
1
iyia Messages postés 3 Date d'inscription mardi 29 octobre 2013 Statut Membre Dernière intervention 30 octobre 2013
30 oct. 2013 à 07:23
salam voici ma solution

algorithme N premier entier

var i,N:entier

debut

ecrire("donner N");
lire(N);

pour i de (N*2)-1 a 0 pas (-2) faire
ecrire(i);
finpour

merci
0
ajp55 Messages postés 426 Date d'inscription dimanche 31 juillet 2011 Statut Membre Dernière intervention 17 février 2015 23
30 oct. 2013 à 14:05
dans cette exemple, tu prédéfini N a un entier pair et donc tu fais -1 pour obtenir le premier entier impair. CE qui n'ais pas toujours vrai. Voici comment tu devrais procédér,
premièrement, un nombre est premier s'il n'est divisible que par lui et par 1.
deuxièmenent, si le nombre modulo 2 est different de 0, alors il est impair.
voici un exemple

algorithm N premier entier impair
var i,j, N : entier
trouver:booleen
debut
ecrire("donner N")
lire(N)
pour i allant de 0 to N pas 1 faire
/* verifier que i est impair *, si i modulo 2 est different de 0 */
si(i modulo 2 <> 0) alors
/* verifier que i est premier en testant s'il existe un autre diviseur different de i et 1 */
trouver = faux;
j = 2
tant que trouver = faux et j < i)
si i modulo j = 0 alors
trouver = vrai
finsi
j = j + 1;
fintantque
si (trouver = faux) alors
ecrire(i," est premier entier impair")
finsi
finsi
fin
0
iyia Messages postés 3 Date d'inscription mardi 29 octobre 2013 Statut Membre Dernière intervention 30 octobre 2013
30 oct. 2013 à 10:23
salam
svp vous me corrige lexercice

algorithme les diviseurs d un entier N
Var
i,N:entier;
Debut
ecrire("donner un nombre");
lire(N);
i:=1;
tantque i >= N/2 faire
Si N mod i =0 alors
ecrire("i");
i:=i+1;
sinon
i:=i+1;
finsi;
fintantque;
finalgorithme;



ALGORITHME afficher le N entier pairs decroissant
Var
N,i:entier;

Debut

ecrire("Donner N");
lire("N");
Si N>0 alors
ecrire("les"N"premiers entiers positives impairs dans l'ordre decroissantsont");
Pour i de ((N*2)-1) a 1 pas (-2) faire
ecrire(i);
finpour;

ecrire("les"N"premiers entiers negatifs impairs dans l'ordre decroissantsont");

Pour i de -1 a -((N*2)-1) pas (-2) faire
ecrire(i);
finpour;

sinon
ecrire("donner un nombre positive");
finsi;
finalgorithme;

merci a l avance
0