Pascal
Fermé
houcine
-
7 déc. 2009 à 16:21
kemphra Messages postés 19 Date d'inscription lundi 7 décembre 2009 Statut Membre Dernière intervention 18 avril 2010 - 7 déc. 2009 à 16:46
kemphra Messages postés 19 Date d'inscription lundi 7 décembre 2009 Statut Membre Dernière intervention 18 avril 2010 - 7 déc. 2009 à 16:46
A voir également:
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ?
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Visionneuse photo windows 7 - Télécharger - Visionnage & Diaporama
- Ouvrir avec - Guide
- Logiciel gratuit pour modifier pdf - Guide
2 réponses
UgglyBoy
Messages postés
422
Date d'inscription
mercredi 24 septembre 2008
Statut
Membre
Dernière intervention
30 mai 2015
64
7 déc. 2009 à 16:28
7 déc. 2009 à 16:28
kemphra
Messages postés
19
Date d'inscription
lundi 7 décembre 2009
Statut
Membre
Dernière intervention
18 avril 2010
7 déc. 2009 à 16:46
7 déc. 2009 à 16:46
bonjour j'ai oublier pascal mais voila l'algorithme tu n'a qu'a le traduire
Algorithme PGCD
var a,b,c,d,e:entier
debut
ecrire('donner a et b')
lire(a)
lire(b)
c<--max(a,b)
d<--min(a,b)
si c mod d <>0 alor
répéter
e<--c
c<--d
d<--e mod d
r<--c mod d
jusqu'à r=0
finsi
ecrire ('pgcd(a,b)=',d)
fin
Algorithme PGCD
var a,b,c,d,e:entier
debut
ecrire('donner a et b')
lire(a)
lire(b)
c<--max(a,b)
d<--min(a,b)
si c mod d <>0 alor
répéter
e<--c
c<--d
d<--e mod d
r<--c mod d
jusqu'à r=0
finsi
ecrire ('pgcd(a,b)=',d)
fin