наибольший общий делитель

[Ge0rGE]

Вот задача:

Написать программу,которая выводит на экран наибольший общий делитель двух натуральных чисел используя рекурсию

[koma_grusha]

предположим, что это х и у, берешь максимальное из них, пусть это х, и начиная с х до х*у, делаешь:
а) проверяешь, что х - это НОД
б) если НОД - выводишь х, если не НОД, то х = х+х и т.д.

[Sazary]

http://ru.wikipedia.org/wiki/Алгоритм_Евклида#Pascal

[Ge0rGE]

Сообщение от Sazary

http://ru.wikipedia.org/wiki/Алгоритм_Евклида#Pascal

Ты имеешь ввиду это?

function nod(var a, b:longint):longint; 
 begin
  if (a=0) or (b=0) then if a=0 then nod:=b
                                else nod:=a
                    else if a >= b then nod:=nod(a mod b,b) 
                                   else nod:=nod(a,b mod a);   
 end;

Получается,здесь только write-end повставлять? сам метод уже реализован на паскале?

[Sazary]

Получается,здесь только write-end повставлять? сам метод уже реализован на паскале?

А вы как думаете? Там все написано. Приведена только функция.

[Ge0rGE]

у меня даже с функцией не выходит( запишите пожалуйста как должна выглядеть программа

[Sazary]

uses crt;
var a,b : longint;
function nod(var a, b: longint): longint;
  begin
   if (a = 0) or (b = 0) then
     if a = 0 then
       nod:= b
     else 
       nod:= a
   else 
     if a >= b then 
       begin
       a := a mod b;
       nod:= nod(a, b);
       end
     else 
      begin
      b := b mod a;
      nod:= nod(a, b);
      end;
  end;

begin
clrscr;
a := 12;
b := 9;
writeln(nod(a,b));

readln;
end.

[Ge0rGE]

Большое спасибо)!
А как построить блок-схему к этой программе?

[Sazary]

А как построить блок-схему к этой программе?

А вот это уже сами.
Есть еще программа fceditor (ищите в инете), которая их строит.

[Sasha_Smirnov]

А «блок-схему к этой программе» — это от безвыходности положения?!

В смысле, я думал, что (начинающие) программисты, трудясь и потея над будущим кодом, продумывают его логику, используя язык блок-схем (который для того и изобретен).

Но когда код уже есть, и логика его ясна, то зачем этот «шаг назад»?