Cod sursa(job #543259)

Utilizator ion_calimanUAIC Ion Caliman ion_caliman Data 27 februarie 2011 20:02:42
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.66 kb
var     t,i,a,b,c,d,x,y:longint;
        f1,f2:text;

procedure euclid(a,b:longint; var d,x,y:longint);
var     x0,y0:longint;
begin
  if b=0 then
    begin
      d:=a;
      x:=1;
      y:=0;
    end
  else
    begin
      euclid(b,a mod b,d,x0,y0);
      x:=y0;
      y:=x0-(a div b)*y0;
    end;
end;

begin
  assign(f1,'euclid3.in');
  assign(f2,'euclid3.out');
  reset(f1);
  rewrite(f2);
  readln(f1,t);

  for i:=1 to t do
    begin
      readln(f1,a,b,c);
      d:=c;
      euclid(a,b,c,x,y);
      if d mod c=0 then writeln(f2,x*(d div c),' ',y*(d div c))
      else writeln(f2,'0 0');
    end;

  close(f1);
  close(f2);
end.