Написать функцию нахождения наибольший общий делителя двух натуральных чисел.

[DrDre9991]

Написать функцию нахождения наибольший общий делителя двух натуральных чисел.

[_-Re@l-_]

А чем алгоритм Евклида не устраивает?

[Don Karleone]

function NOD(m,n: Integer): Integer;
var
  r: Integer;
begin
  if m<n then
           begin
             r:=m;
             m:=n;
             n:=r;
           end;
  while n>0 do
    begin
      r:=m mod n;
      m:=n;
      n:=r;
    end;
  NOD:=m;
end;

[_-Re@l-_]

ой-ой-ой...
Вот так:

Function NOD(M,N:Integer):Integer;
Begin
        While M<>N Do
        Begin
                If M>N Then M:=M-N
                Else M:=N-M;
        End;
        Nod:=M;
End;

И всё, больше ничего не надо,это вся функция!

[Mad_Cat]

function NOD(x,y:longint):longint;
 begin
  if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
 end;

[Don Karleone]

Сообщение от _-Re@l-_

ой-ой-ой...
Вот так:

Function NOD(M,N:Integer):Integer;
Begin
        While M<>N Do
        Begin
                If M>N Then M:=M-N
                Else M:=N-M;
        End;
        Nod:=M;
End;

И всё, больше ничего не надо,это вся функция!

ты ее специально написал, чтобы я запустил ее и прога зависла????

[_-Re@l-_]

Оооо...Я никогда не был силен в рекурсии...

ты ее специально написал, чтобы я запустил ее и прога зависла????

Почему???У меня ничего не зависает и нормально работает...

[Don Karleone]

Сообщение от _-Re@l-_

Оооо...Я никогда не был силен в рекурсии...

Почему???У меня ничего не зависает и нормально работает...

тогда делаем так NOD(64,48).

[_-Re@l-_]

И что? нод 64 и 48 16, что вам не нравится?

[Don Karleone]

Сообщение от _-Re@l-_

И что? нод 64 и 48 16, что вам не нравится?

хз... скопировал код, запустил, зацикливается.