Dhifallah Fethi
Admin
Messages : 74
Date d'inscription : 02/03/2011
 | Sujet: Divisibilité par 4  Jeu 3 Mar - 21:39 | |
| Divisibilité par 4
Un entier est divisible par 4, si le nombre composé des deux derniers chiffres est divisible par 4.
Analyse de la fonction Div_4 - Code:
-
Déf Fn Div_4 (n : entier long) : chaine
Résultat = Div_4
Div_4 ← msg
Si ((m mod 100) mod 4 = 0) alors
msg ← “ est divisible par 4 “
Sinon
msg ← “ n’est pas divisible par 4 “
FinSi
Algorithme de la fonction Div_4 - Code:
-
0) Déf Fn Div_4 (n : entier long) : chaine
1) Si ((m mod 100) mod 4 = 0) alors
msg ← “ est divisible par 4 “
Sinon
msg ← “ n’est pas divisible par 4 “
FinSi
2) Div_4 ← msg
3) Fin Div_4
Téléchargement de l'animation[Vous devez être inscrit et connecté pour voir ce lien]Taille:131.31 KB [Vous devez être inscrit et connecté pour voir ce lien]Code en Pascal: - Code:
-
program Divisible_4;
uses wincrt;
var n:longint;
procedure saisie (var n:longint);
begin
write('donner un entier: ');
readln(n);
end;
function Div_4 (m:longint) : string;
begin
if (m mod 100) mod 4 = 0 then Div_4:=' est divisible par 4'
else Div_4:=' n''est pas divisible par 4.';
end;
{programme principale}
begin
saisie(n);
write(n, Div_4(n));
end. | |
|
Calendrier
