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

[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

[volvo]

где-то читал, что начиная с 7й версии все переменные перед использованием обнуляются.

Во-первых, на это нельзя рассчитывать, лучше инициализировать самому. Во-вторых, у автора вопроса может быть и не 7-ая версия, а 6-ая, например. А в-третьих, после запуска программы в ЛОКАЛЬНЫХ (внутри функции) переменных X, Y будет-таки мусор, а ГЛОБАЛЬНЫХ не будет вообще, ибо оптимизатор вышвырнет неиспользуемые переменные.

Но это так, отступление, просто не мог пройти мимо

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

Можно посмотреть, КАК ты пытаешься вывести X и Y? Полный текст программы, разумеется...