Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Février 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728     
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Divisibilité par 4

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin


Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: 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.
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Divisibilité par 4
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Cours-
Sauter vers: