Dhifallah Fethi
Admin
Messages : 74
Date d'inscription : 02/03/2011
 | Sujet: Divisibilité par 5  Jeu 3 Mar - 23:12 | |
| Divisibilité par 5
Un entier est divisible par 5, si son chiffre des unités est égal à 0 ou à 5.
Analyse de la fonction Div_5 - Code:
-
Déf Fn Div_5 (n : entier long) : chaine
Résultat = Div_5
Div_5 ← msg
Si ((2*m) mod 10 = 0) alors
msg ← “ est divisible par 5 “
Sinon
msg ← “ n’est pas divisible par 5 “
FinSi Algorithme de la fonction Div_5 - Code:
-
0) Déf Fn Div_5 (n : entier long) : chaine
1) Si((2*m) mod 10 = 0) alors
msg ← “ est divisible par 5 “
Sinon
msg ← “ n’est pas divisible par 5 “
FinSi
6) Div_5 ← msg
7) Fin Div_5
Téléchargement de l'animation[Vous devez être inscrit et connecté pour voir ce lien]Taille:131.58 KB [Vous devez être inscrit et connecté pour voir ce lien]Code Pascal: - Code:
-
program Divisible_5;
uses wincrt;
var n:longint;
procedure saisie (var n:longint);
begin
write('donner un entier: ');
readln(n);
end;
function Div_5 (m:longint) : string;
begin
if (m*2) mod 10 = 0 then Div_5:=' est divisible par 5'
else Div_5:=' n''est pas divisible par 5.';
end;
{programme principale}
begin
saisie(n);
write(n, Div_5(n));
end. | |
|
Calendrier
