Pascal/Turbo Pascal - Ecuación diofantica

   
Vista:

Ecuación diofantica

Publicado por Emanuel (2 intervenciones) el 23/11/2010 21:47:05
Hola estimados!!!
Tengo que realizar un programa que resuelva ecuaciones diofánticas (eso lo logre), pero no me sale como hacer que me imprima el cartel de que no hay soluciones... Si lo coloco dentro del lazo for me dice en cada valor de i que no hay solución. Yo quiero que me lo diga una sola vez en el caso de que no exista ninguna solución. Muchas Gracias.

program diofantica;


var a,b,c,x,i,y:integer;

begin
writeln; readln(a);
writeln; readln(b);
writeln; readln(c);

x:= c div a;
for i:=1 to x do
begin
y:=(c-a*i) div b;
if (a*i+b*y=c) then writeln('(',i:2,',',y:2,')')
else
end;
writeln; writeln('**Fin**')
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ecuación diofantica

Publicado por Emanuel (2 intervenciones) el 01/12/2010 10:08:14
Coge una variable integer, inicializala en 0 antes del for...cuando imprimas que hay solucion cambia ese 0 por un 1..

cuando salgas del lazo for haz un condicional..si la variable sigue siendo 0 que imprima que no hay soluciones..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar