Algo

[PASCAL] pgcd

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PASCAL] pgcd

greeeg

Je n'arrive pas a coder une fonction (en pascal) qui me calcule le pgcd (plus grand commun diviseur) entre 2 nombres.

Quelqu'un peut m'aider ?'

MErci

Message édité par greeeg le 27-01-2003 à 22:06:11

Publicité

schnapsmann

Zaford Beeblefect

greeeg a écrit :

Je n'arrive pas a coder une fonction (en pascal) qui me calcule le pgcd (plus grand commun diviseur) entre 2 nombres.

Quelqu'un peut m'aider ?'

MErci

mathématiquement t'es au point? La flamme de bezout brule-t-elle en toi? [:tinostar]

---------------
From now on, you will speak only when spoken to, and the first and last words out of your filthy sewers will be "Sir!"

greeeg

SchnapsMann a écrit :

mathématiquement t'es au point? La flamme de bezout brule-t-elle en toi? [:tinostar]

ouais je pige comment on le fait en récursivité fonctionnelle (sous Scheme p.ex.).

Mais en Pascal je vois pas.... qqun l'a déja fait ???

greeeg

pour ceux que ca interesse :

Code :

program pgcd (input,output);
var x,y,max,min,i:integer;
function calcul(min,max,i:integer):integer;
begin
while i>0 do
begin
if(((max mod i)=0) and ((min mod i)=0)) then
begin
write('Le pgcd est : ',i);
calcul:=i;
break;
end
else
i:=i-1;
end;
end;
begin
write('Entrez x ');
readln(x);
write('Entrez y ');
readln(y);
if(x>y) then
begin
max:=x;
min:=y;
end
else
begin
max:=y;
min:=x;
end;
i:=min;
writeln(calcul(min,max,i));
end.

FORUM HardWare.fr

Programmation

Algo

[PASCAL] pgcd

Sujets relatifs
Erreur en pascal, je pige pas???	[Delphi, Pascal] Manipulation de bits
[PASCAL] cherche livre "aide memoire du turbo pascal"	[Algho et pascal] j'ai un prog a faire pour demain !!!
[C/C++] code du PGCD et du PPCM ?	[Pascal] [Débutant] Séquence croissante...où est l'erreur?!
[pascal] classer des nombres	[T. PASCAL]Debutant, la boulce FOR/DO
Quel logiciel utiliser pour faire du Turbo pascal sous XP ?	[Delphi] Probleme de pascal
Plus de sujets relatifs à : [PASCAL] pgcd

Page générée en 0.048 secondes