Exercice: Extrait BAC : Traitement particulier sur des nombres

par **Napoléon** Dim 22 Fév - 23:41

On se propose de répéter le traitement ci-dessous pour un entier n.
1-Si le nombre est impair alors on le multiplie par 3 et on lui ajoute 1
2-Si le nombre est pair alors on le divise par 2.
Il est éventuel que le nombre 1 apparaisse lors des n premier répétitions.

Ecrire un programme Pascal qui permet d'appliquer ce traitement à tous
les entiers compris entre A et B (2<=A<=50) et d'afficher chaque
entier qui arrive à 1 dans un nombre de répétitions srictement
inférieur à sa valeur.

Exemple:

l'entier 10 sera afficher car il arrive à 1 après 6 répétition(6<10).

par **Napoléon** Dim 22 Fév - 23:44

Il y a une solution postée sur internet, dans un forum tunisien. Je vous laisse le soin de la réviser.

Code:: Program REPETITION; uses wincrt; var A,B:integer; procedure saisie(var a,b:integer); begin repeat writeln('Introduire A'); readln(A); writeln('Introduire B'); readln(B); until (2<=A) and (A<=50); end; function frequence(n:integer):integer; var freq,i:integer; begin freq:=0; repeat freq:=freq 1; if n mod 2 = 0 then n:=n div 2 else n:= 3*n 1; until n=1; frequence := fraq; end; procedure affiche(A,B:integer); var i:integer; begin for i :=A to B do if frequence(i)[i]end; begin saisie(A,B); affiche(A,B); end.

Exercice: Extrait BAC : Traitement particulier sur des nombres

Exercice: Extrait BAC : Traitement particulier sur des nombres

Re: Exercice: Extrait BAC : Traitement particulier sur des nombres