помогите пожалуйста, проблемы с рекурсией Опции

[serega204]

посмотрите пожалуйста....у меня не выводятся Х и У, программу сам писал....
Вот задание:...Для заданных натуральных чисел А и В найти такие целые числа Х и У, что А*Х+В*У=С, где С равно наибольшему общему делителю чисел А и В.

Program LR_2;   Uses Crt;
var A, B, X, Y, C, r : Longint;

Function NOD (Var a, b : longint) : longint;
Var X, Y, C : integer;
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;
     Writeln ('Vvedite dva celih shisla');
 Readln (a); Readln (b);
 Writeln ('C =  ', nod(a, b));
 r := nod(a,b);
 readln;
end.

Добавлено через 4 мин.
на иконку внимания не общайте

Сообщение отредактировано: Lapp - 16.10.2009 14:17

[maksimla]

А ты ведь не задал что будишь с Х и У делать и они просто напросто равны нулю. Ты только считаешь NOD наибольший общий делитель А и В. Вот и все а другие нечего не использовал.
вот смотри

Program LR_2;
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
     Writeln ('Vvedite dva celih shisla');
 Readln (a); Readln (b);
 Writeln ('C =  ', nod(a, b));
 readln;
end.