hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Divisibilité
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 26 Fév - 15:04 (2010)    Sujet du message: Divisibilité Répondre en citant

PublicitéSupprimer les publicités ?
Soient x et y deux variables entières écrivez un algorithme qui vérifie si x est divisible par y ou non ; les deux variables son lues au clavier .

Code:

program divisibilite;
uses wincrt;
var x, y:integer;
 
 
BEGIN
writeln('Donner x: ');
readln(x);
writeln('Donner y: ');
readln(y);
if (y = 0)
then writeln('La division est impossible !')
else if (y mod x = 0)
then writeln('y est divisible par x !')
else writeln('y n''est pas divisible par x !');
END.


 
Revenir en haut
hammadi910


Hors ligne

Inscrit le: 28 Fév 2010
Messages: 2
Point(s): 2
Moyenne de points: 0

Posté le: Lun 1 Mar - 21:17 (2010)    Sujet du message: Divisibilité Répondre en citant

debut exercice
ecrire ("donnez deuxnombre")
lire(x)
lire(y)
reste <-- x mod y
si reste = 0 alors msg <-- "divisible"
si non ecrire ("non divisible")
fi si
ecrire (x, "est ",msg, " par ",y)
fi exercice



debut exercice2
1/ lire (x) lire(y)
2/repeter
   x <-- x - y
jusqu'a (x <=0)
3/ si x = 0 alors
   ecire (x," est divisible par ",y)
sinon ecrire ("n'est pas divisible")
finsi
fi exercice2





lire (x)
lire(y)
repeter
y <-- y + y
jusq'a y >= x
si x = y alors ecrire (x, "divisble par ",y)
sinon ecrire (x, " est non divisible par ",y)
fin si
fin


 
Revenir en haut
hammadi910


Hors ligne

Inscrit le: 28 Fév 2010
Messages: 2
Point(s): 2
Moyenne de points: 0

Posté le: Ven 5 Mar - 09:24 (2010)    Sujet du message: Divisibilité Répondre en citant

dsl
j'ai pas vu le lien correction, je pensais que tu la cherche


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 5 Mar - 14:21 (2010)    Sujet du message: Divisibilité Répondre en citant

Okay Okay Okay  

 
Revenir en haut
mazen


Hors ligne

Inscrit le: 16 Fév 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Lun 8 Mar - 13:53 (2010)    Sujet du message: Divisibilité Répondre en citant

bonjour SVP la methode de divisibilité pat 13 est son algo

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 21:35 (2016)    Sujet du message: Divisibilité

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation