الگوریتم بازگشتی بزرگترین مقسوم علیه دو عدد

[HOSSEINGHOLI]

کی میتونه بزرگتزین مقسوم علیه دو عدد رو به صورت بازگشتی محاسبه کنه؟

[Developer Programmer]

من به زبان پاسکال واسه N عدد نوشتم ... باشد که رستگار شوید!
متغیرها رو تعریف نکردم خودت چک کن


FUNCTION bmm(a,b:integer):integer;
var
r,n,m:integer
begin
a:=abs(a);
b:=abs(b);
m:=a;
n:=b;
if n>m then
begin
m:=b;
n:=a;
end;
r:=m mod n;
if r=0 then bmm:=n
else
bmm:=bmm(n,r);
end;
---
var
!!
begin
m1:=a[1];
for i:=2 to n do
m1:=bmm(m1,a[i]);
writeln(m1);

end;

[gm.sara]

فکر کنم دوست عزیزمان خیلی الگوریتم را پیچیده کردن من با زبان c می نویسم . کار اصلی که انجام می دهد روش نردبانی است که از این طریق ب.م.م بدست می آید :

#include<stdio.h>
int BMM(int a,int b){
if (a%b==0)
return b;
else
return BMM(b,a%b);
}
void main(void){
int a,b,c;
scanf("%d%d",a,b);
c=BMM(a,b);
printf("%d",c);
}
اگر این کد به دردت خورد اطلاع بده اگر نخورد باز هم بگو چرا به دردت نخورد ؟

[Developer Programmer]

فکر کنم دوست عزیزمان خیلی الگوریتم را پیچیده کردن

تنها تفاوت کدتان با کد بنده در کمتر بودن تعداد متغیرها است !
علت بهینه نبودن کدم واسه اینه که به صورت Online نوشتمش !!

[HOSSEINGHOLI]

از دوستان به خاطر راهنماییتان تشکر می کنم

[majid_b]

فکر کنم دوست عزیزمان خیلی الگوریتم را پیچیده کردن من با زبان c می نویسم . کار اصلی که انجام می دهد روش نردبانی است که از این طریق ب.م.م بدست می آید :

#include<stdio.h>
int BMM(int a,int b){
if (a%b==0)
return b;
else
return BMM(b,a%b);
}
void main(void){
int a,b,c;
scanf("%d%d",a,b);
c=BMM(a,b);
printf("%d",c);
}اگر این کد به دردت خورد اطلاع بده اگر نخورد باز هم بگو چرا به دردت نخورد ؟


سلام

لطفا در مورد این کد یه کمی توضیح بدید