[PASCAL] pgcd

Marsh Posté le 27-01-2003 à 22:03:08

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

Marsh Posté le 27-01-2003 à 22:03:08

Marsh Posté le 27-01-2003 à 22:12:44

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!"

Marsh Posté le 27-01-2003 à 23:15:18

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 ???

Marsh Posté le 27-01-2003 à 23:55:47

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.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *