Уравнение

[vova_]

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

Т.е. у уравнения 3*x + 4*y = 5 , бесконечно много наборов целых x и y?
Приведите один пример.

x=-1 y=2
x=-5 y=5
x=-9 y=8

[Xardas]

Чего тут велосипед изобретать, если все давно известно.
Уравнение имеет решение, если с делится нацело на НОД(a, b), если нет, то не имеет решения. Проверяем данное условие, если оно верно, то ищем частное решение, из которого можно выразить множество всех решений уравнения (все в целых числах)

[Katrina*]

а на паскале????::::

[Skorpion]

напишите полностью код программы.а то я не понял...

[vova_]

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

Чего тут велосипед изобретать, если все давно известно.
Уравнение имеет решение, если с делится нацело на НОД(a, b), если нет, то не имеет решения. Проверяем данное условие, если оно верно, то ищем частное решение, из которого можно выразить множество всех решений уравнения (все в целых числах)

а если С - простое число
например
a=2 b=3 c=11
x=1 y=3

я по другому подошол к проблеме чуть пожже выложу (много текста)

[Xardas]

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

я по другому подошол к проблеме

А смысл??? Это частный случай диофантова уравнения. Какой смысл изобретать велосипед, если способ его решения описан уже давным-давно и сводится к нахождению наименьшего общего делителя коэффициентов a и b, проверке делимости коэффициента c на НОД, нахождению частного решения (Xo, Yo), основываясь на которое, составляется множество решений: x = Xo - b/(НОД(a,b))*n, y = Yo + a/(НОД(a,b))*n.

[Mad_Cat]

Katrina* / Skorpion У вас раздвоение личности?

[Skorpion]

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

Katrina* / Skorpion У вас раздвоение личности?

Вряд ли. я не знаю кто такая Katrina.Мне просто дали эти задачи и сказали сделать их. Возможно учитель взял с инета вопросы

[markmark]

Администрация,
извините за флуд, но как с вами можно поговорить?
Это срочно.

[AET]

program Zadacha;
var a,b,c:LongInt;
f1,f2 :text;

Function Gcd(g1,g2:LongInt):LongInt;
var m,gc:LongInt;
begin
 If g2>g1 then
  begin
   m:=g1;
   g1:=g2;
   g2:=m;
  end;
 gc:=g2+1;
 Repeat
  Dec(gc);
 Until ((g1 mod gc)=0) and ((g2 mod gc)=0);
 Gcd:=gc;
end;
begin
Assign (f1,'E.in');
Assign (f2,'E.out');
Reset (f1);
Read(f1,a);
Read (f1,b);
Read(f1,c);
Rewrite(f2);
Close(f1);
if (c mod Gcd(a,b))=0 then
writeln(f2,'-1')
else writeln(f2,'Решений нет!');
Close(f2);
end.

вот задача решена