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
Janvier 2019
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
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 | 
 

 Calcul de PGCD

Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
avatar

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

MessageSujet: Calcul de PGCD   Jeu 3 Mar - 17:50

Calcul de PGCD

L'animation concerne:
Principe

[Vous devez être inscrit et connecté pour voir ce lien]

Analyse (itérative et récursive)

[Vous devez être inscrit et connecté pour voir ce lien]

Algorithme (itérative et récursive)


[Vous devez être inscrit et connecté pour voir ce lien]

Téléchargement de l'animation:

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

Code Pascal (En récursivété):
Code:
program pgcd_diff;                       
uses wincrt;
var
  a,b:integer;

procedure saisie (var z:integer);
begin
repeat
      write('donner un entier positif et non nul: ');
      readln(z);
until (z>0);
end;

function pgcd(n,m:integer):integer;
begin
    if(n=m) then pgcd:=m
    else if(n>m) then pgcd:=pgcd(n-m,m)
    else pgcd:=pgcd(n,m-n);
end;

{programme principal}
begin
    saisie(a);
    saisie(b);
    write('pgcd(',a,',',b,')=',pgcd(a,b));
end.
Revenir en haut Aller en bas
http://ntic.yoo7.com
 
Calcul de PGCD
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: