Exercices sur les structures conditionnelles

Bonsoir

Je profite de mon premier post sur ce forum :
Ali, 19 ans, étudiant en 3e mathématiques, Tunisie.

Voici l'énoncé de mes exercices :

Citation:

---

1/ Soit l'entier n.Tester la parité de chacun des 2 chiffres de n.
Exp: n=16-> 1 est impair et 6 est pair.
2/ Décider si un entier est divisible par ses 2 chiffres.
Exp: 24 est divisible par 2 et par 4.

---

Je choisis de travailler avec la condition if then et d'utiliser le mod et le div de chaque entier mais je ne trouve pas la solution.
J'aimerais donc, si possible, avoir une solution à ces exercices et merci. :)

Je pense que tu as le droit de reflechir :)

1) pourquoi ne pas diviser ton entier en 2 autre : 16 -> 1 , 6

comment avoir le 6 ? 16 % 10 = 6

comment avoir le 1 ? une simple division suffit : sur des entiers 16 / 10 = 1

comment determiner si les chiffres sont paires ou pas : un simple % 2 suffit, si le chiffre est paire le reste de la division par 2 renverra forcement 0 et 1 dans le cas d un chiffre impaire

une ebauche d algo:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

entier i; entier j;   entier nb = 16;   i = nb / 10; j = nb % 10;   si i % 2 = 0 affichier (i + "est pair") else afficher(i + "est impaire")   si j % 2 = 0 affichier (j + "est pair") else afficher(j + "est impaire")

---

:zoubi:

pour ton 2eme exo ca ressemblerai a un truc du genre

Code:

---

1 2 3 4 5 6

for i = 0 to nb do begin if (nb % i = 0) then writeln(i); end;

---

Pour le deuxième j'ai une autre méthode, je ne sais pas si c'est exact ou non :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

uses wincrt; var n,u,d:integer; begin write('donner la valeur de n: '); read (n);   u:= n mod 10; d:= n div 10;   if (u=0) then write( n,' n''est pas divisible par 0');   if ( n mod u=0)   then write( n,' est divisible par ',u)   else write(n,' n''est pas divisible par ',u);   if ( n mod d=0) then write( ' et divisible par ', d) else write(' ne divisible pas par ',d); end.

---

le probleme avec ta 2eme methode c est que tu ne vas pas trouver tous les diviseurs

dans ton cas, 53 sera divisble par 5 alors que ce n est pas le cas (car tu isole de 5 et le 3)

et tu ne trouveras pas certains diviseur comme 12 qui est divisible par 3 alors que 1 n est pas divisible par 3 ni 2 (quand je dis divisible je parle bien avec un reste de 0 hein :) )

d ou la boucle

1/ Soit l'entier n.Tester la parité de chacun des 2 chiffres de n.
Exp: n=16-> 1 est impair et 6 est pair.




2/ Décider si un entier est divisible par ses 2 chiffres.
Exp: 24 est divisible par 2 et par 4.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure test(N: integer; var U, D: integer; var isEvenN, isEvenU, isEvenD, isDivByU, isDivByD: boolean); begin U := N mod 10; D := N div 10;   isEvenN := (N and 1) = 0; isEvenU := (U and 1) = 0; // ou = isEvenN ! isEvenD := (D and 1) = 0;   isDivByU := (U <> 0); isDivByD := (D <> 0);   if isDivByU then isDivByU := (N mod U) = 0;   if isDivByD then isDivByD := (N mod D) = 0; end;

---