Версия для печати темы

Автор: serega204 16.10.2009 17:14

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

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 мин.
на иконку внимания не общайте

Автор: maksimla 16.10.2009 18:41

А ты ведь не задал что будишь с Х и У делать и они просто напросто равны нулю. Ты только считаешь 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.

Автор: Lapp 16.10.2009 19:07

maksimla меня опередил, я хотел сказать то же самое (хотя уточню: x и y не равны нулю; они вообще ничему не равны - их просто нет..). И еще, я сомневаюсь вот в этом:

Если действительно хочешь помощи - не настраивай против себя враньем.. Функция NOD, вроде, правильно работает (я проверил на паре примеров). И если ты сам ее написал - то мог бы хотя бы заметить то, о чем сказал maksimla..

Автор: sheka 16.10.2009 20:50

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

Автор: serega204 16.10.2009 22:23

огромнейшее спасибо за помощь

Добавлено через 2 мин.
там надо дописать где-то вывод Х и У....там ведь формула А*Х+В*У=С, и нужно чтобы выводились целые числа Х и У

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

Автор: volvo 17.10.2009 1:45

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

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

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

Автор: serega204 17.10.2009 1:58

вроде бы так, но если не так подправьте пожалуйста

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;
  c := Nod(a,b)
   c := A*X+B*Y
             else
   Begin
   b := b mod a;
   nod := nod(a, b);
      end;
   c := Nod(a,b)
   c := A*X+B*Y;		 
end;

Begin Clrscr;
     Writeln ('Vvedite dva celih shisla');
 Readln (a); Readln (b);
 Writeln ('C =  ', nod(a, b));
 writeln (X, Y);
end.

М

ставь тэги, пожалуйста

Автор: volvo 17.10.2009 3:04

Ты компилировать этот код пробовал вообще? Сначала говоришь, что у тебя что-то там вылетает с переполнением стека, когда тебя просят привести код, который вылетает, ты пишешь НЕЧТО, что вообще не компилируется. Внимание, вопрос: если оно не компилируется, КАК ты это запускал??? Опять ни одного слова правды.

Автор: serega204 17.10.2009 3:26

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

Автор: maksimla 17.10.2009 13:05

Что ты наугад написал? Если программу то некто наугад программы не пишет а копирует и выкладывает тут на форуме. Попытайся и ты также само сделать и выложить.

Автор: maksimla 17.10.2009 13:26

c := Nod(a,b);

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

 c := Nod; 

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

c := A*X+B*Y; 

Автор: serega204 17.10.2009 21:16

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