Cod sursa(job #678031)

Utilizator Buzu_Tudor_RoCont vechi Buzu_Tudor_Ro Data 10 februarie 2012 22:05:58
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.83 kb
Program euclid_extins;
var fi,fo : text;
    a,b,c,d,i,n,x,y:longint;

Procedure cmmdc3(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
                 cmmdc3(b,a mod b,d,x0,y0);
                 x:=y0;
                 y:=x0-( a div b)*y0;
                 end;
end;

begin
    assign(fi,'euclid3.in'); reset(fi); read(fi,n);
    assign(fo,'euclid3.out'); rewrite(fo);
    for i:=1 to n do begin
                     readln(fi,a,b,c);
                     cmmdc3(a,b,d,x,y);
                     if c mod d = 0 then writeln(fo,x*(c div d),' ',y*(c div d))
                                    else writeln(fo,'0 0');
                     end;
    close(fi); close(fo);
end.