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
Avril 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
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 3

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

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

MessageSujet: Divisibilité par 3   Jeu 3 Mar - 21:01

Divisibilité par 3

Un entier est divisible par 3, si la somme des chiffres est divisible par 3.

Analyse de la fonction Div_3:
Code:
0)   Déf Fn Div_3 (n : entier) : chaine
Résultat = Div_3                                             
Div_3 ← msg
 Si (S mod 3 = 0) alors
      msg ← “ est divisible par 3 “
  Sinon
      msg ← “ n’est pas divisible par 3 “
FinSi
[S ← 0]
Pour i de 1 à long (ch) faire
      Valeur (ch[i], nb, e)
      S ← S + nb
FinPour
Convch (n, ch)

T.D.O.L :
Objets Type / Nature
S, nb, e, iEntiers

Algorithme de la fonction Div_3:
Code:
0)   Déf Fn Div_3 (n : entier) : chaine
1)   Convch (n, ch)
2)   S ← 0
Pour i de 1 à long (ch) faire
      Valeur (ch[i], nb, e)
      S ← S + nb
FinPour
3)   Si (S mod 3 = 0) alors
          msg ← “ est divisible par 3 “
        Sinon
          msg ← “ n’est pas divisible par 3 “
                      FinSi
4)   Div_3 ← msg
5)   Fin Div_3

Téléchargement de l'animation
[Vous devez être inscrit et connecté pour voir ce lien]

Taille: 131.75 KB
[Vous devez être inscrit et connecté pour voir ce lien]

Code en Pascal:
Code:
program Divisible_3;
uses wincrt;
var s:string;

procedure saisie (var ch:string);
var
  num:longint;
  e:integer;
begin
repeat
      write('donner un entier: ');
      readln(ch);
      val(ch, num, e);
until (e=0);
end;

function Div_3 (ch:string) : string;
var
  e, nb, somme, i : integer;
begin
    somme:=0;
    for i:=1 to length(ch) do
    begin
          val(ch[i], nb, e);
          somme:=somme + nb;
    end;
    if somme mod 3 = 0 then Div_3:=' est divisible par 3'
    else Div_3:=' n''est pas divisible par 3.';
end;

{programme principale}
begin
    saisie(s);
    write(s, Div_3(s));
end.
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Divisibilité par 3
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: