Inscription / Connexion Nouveau Sujet
analyse d'un entier divisible par 8
Exemple:
71432 est divisible par 8 car 4 est pair et 32 est divisible par 8
65128 est divisible par 8 car 1 est impair et 28-4=24 est divisible par 8
Ecrire une analyse d'un programme permettant de verifier et d afficher si un entier N saisi au clavier avec ( N>= 1000 ) est divisible par 8 ou non selon le principe montionné ci dessus
Pour t'aider un peu, l'exercice demandé est de retranscrire une loi mathematiques en programme informatique.
Tu dois dans un premier temps écrire la loi (dans l'énoncé on te donne un exemple, à toi de le formaliser).
Une fois la loi écrite il te restera juste à écrire l'acquisition du paramètre saisi au clavier puis de le traiter avec la loi que tu as écrite et ensuite donner / afficher le résultat de cette loi.
Bonjour je suis desolée je ne comprend pas de quel loi vous parlez et puis dans l'exercice je n ai pas d autres donnees
Pour te permettre d'avancer voici la loi :
Si on a un nombre supérieur à 1000 alors on regarde la parité du chiffre des centaines .
Si il est pair et que le nombre formé par les chiffres des dizaines et des unités est divisible par 8 alors le nombre est divisible par 8.
Si il est impaire et que le nombre formé par les chiffres des dizaines et des unités moins 4 est divisible par 8 alors le nombre est divisible par 8.
Te reste plus qu'à faire l'algorithme de ça.
salut
je verais la chose plus simplement à coup de congruence
N entier peut s'ecrire N = ao.10^0 + a1.10 + a2.10² + .....+an.10n.
10[sup]0 = 1[8] --> ao = ao[8]
10[sup]1 = 2[8] --> a1.10 = 2.a1[8]
10[sup]2 = 4[8] --> a2.10² = 4.a2[8]
10[sup]3 = 0[8] --> a3.10² =0[8]
donc N = ao + 2a1 + 4a2= 0[8] pour qu'un entier soit divisible par 8 il faut que
ao + 2a1 + 4a2 soit divisible par 8 .
sauf erreur
voici un bout de code que j'ai concocté sur excel vba , si ça peut te servir
Option Base 1
Sub divisibilité_par_8()
Dim i, N As Integer
Dim tablo() As Variant
Dim valeur As String
valeur = InputBox("entrez un entier : ")
ReDim tablo(1 To Len(valeur))
For i = 1 To Len(valeur)
tablo(i) = Mid(valeur, i, 1)
Next
MsgBox tablo(Len(valeur)) + 2 * tablo(Len(valeur) - 1) + 4 * tablo(Len(valeur) - 2)
If (1 * tablo(Len(valeur)) + 2 * tablo(Len(valeur) - 1) + 4 * tablo(Len(valeur) - 2)) Mod 8 <> 0 Then
MsgBox valeur & " " & "n'est pas divisible par 8"
Else
MsgBox valeur & " " & "est divisible par 8"
End If
End Sub
Annuler
connectez vous