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

[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 18:17

[maksimla]

c := Nod(a,b);

у тебя из за этого переполнение стека ты просто обращаешься к функции Nod заново а если хочещь значение Nod дать с то надо делать так

 c := Nod; 

а тут ведь ты не задал значение x и y и они нечему неравны тогда и c становится нечему неравной

c := A*X+B*Y; 

Сообщение отредактировано: maksimla - 17.10.2009 13:28