FreePascal. Заданы числа A, B, C, D. Найти наибольшие общие делители пар A и B, A и C, A и D.

[igormel]

Нужно решить задачу с использованием процедур и процедур-функций, определяемых программистом. Программа FreePascal.
Заданы числа A, B, C, D. Найти наибольшие общие делители пар A и B, A и C, A и D.
Я так понимаю, её нужно решать через function.
Заранее огроменное спасибо, т.к. я в этом не особо шарю)

[newerow1989]

function ab(a,b:integer):integer;
var i,c:integer;
begin
   c:=a;
   If b<a then
      c:=b;
   Result:=c;
   For i:=c downto 1 do
      If (a mod i=0) and (b mod i=0) then
      begin
         Result:=i;
         Exit;
      end;
end;

var a,b,c,d:integer;
begin
   Write('A = '); Readln(a);
   Write('B = '); Readln(b);
   Write('C = '); Readln(c);
   Write('D = '); Readln(d);
   Writeln(ab(a,b));
   Writeln(ab(a,c));
   Writeln(ab(a,d));
   Readln;
end.

[digitalis]

Если не в лоб, а использовать, к примеру, алгоритм Эвклида, получается изящней и быстрее.
Например, для пары 7000 и 7002 будет 0 иттераций вместо 6999 .
Ну возможно, я и неправ: трудно спорить с человеком, у которого репутация круче моей в 500 раз

function ab(a,b:integer) : integer ;
var t : integer;
  begin
     while (a<>b) do
       begin
         if a>b then begin t := a ; a := b ; b:= t end ;
         b := b - a 
       end ;
     Result := a ;
  end ;

[Dekay]

Например, для пары 7000 и 7002 будет 0 иттераций вместо 6999 .

Нет.

b := b - a

Используйте мод. Будет быстрее. Намного

[Serge_Bliznykov]

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

Используйте мод. Будет быстрее. Намного

так?

http://www.programmersforum.ru/showp...56&postcount=5

http://www.programmersforum.ru/showp...57&postcount=2

[Dekay]

Можно и так.
Только я за рекурсивный вариант с одним модом.

[Serge_Bliznykov]

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

Только я за рекурсивный вариант с одним модом.

не, не согласен.
рекурсия там, где без неё можно обойтись - зло.
Хотя, конечно, вариант с рекурсией выглядит проще!

p.s. он тоже на форуме представлен.

[Dekay]

тыц
Разве это некрасиво?
Да и глубина рекурсии не больше логарифма. Не так критично

[digitalis]

Да, ошибся малость ... Для выбранной пары разница 3500 против 6999 . Может быть, для другой пары аргументов соотношение будет и обратным. Нужно организовать НИР на предмет диссертации

[Plague]

Надо еще алгоритм на битовых операциях расмотреть с рекурсией и без. Он побыстрее будет. Как раз для НИР)