вапавп

Where the people find these tests?

Edited by author 27.07.2007 01:01

Edited by author 27.07.2007 01:01

khmm. I don't know, what kind of cheat did you use, but it was very useful help. After some manipulations with precision, finally AC! Thank you


Edited by author 17.08.2008 01:05

Why test2 has answer 36? it seems that correct answer is 25.

I have WA#9 too. The program seems to be right. Who can help me?

i got the tests, send me a mail to ste_fanus@k.ro if you want them

Input #1
10 15
15 10
13 14
Output #1
25
Input #2
0 5
5 0
1 1
Output #2
36
Input #3
10 15
13 14
15 10
Output #3,#4,#5
100

How?
What's that algorithm

How i can get my old solutions?) It's impossible? I had problem with HD and lose all solutions)

sorry, for my english :)

> #include<stdio.h>
> #include<math.h>
>
> double
>
x0,q0,x1,q1,x2,q2,a,b,c,a0,b0,c0,a1,b1,c1,cx,cq,r,minx,maxx,minq,maxq;
>
> double roundup(double num)
> {
>   if((long)(num)==num)return num;
>   else if(num>0)return(long)(num+1);else return(long)(num);
> }
>
> double rounddown(double num)
> {
>   if((long)(num)==num)return num;
>   else if(num>0)return(long)(num);else return(long)(num-1);
> }
>
> int main()
> {
>   scanf("%lf%lf%lf%lf%lf%lf",&x0,&q0,&x1,&q1,&x2,&q2);
>   minx=x0;if(minx>x1)minx=x1;
>   maxx=x0;if(maxx<x1)maxx=x1;
>   minq=q0;if(minq>q1)minq=q1;
>   maxq=q0;if(maxq<q1)maxq=q1;
>   cx=(x0+x1)/2;cq=(q0+q1)/2;
>   a=q1-q0;b=x0-x1;c=x1*q0-x0*q1;
>   if(a!=0){a0=b/a;b0=-1;c0=cq-a0*cx;}
>     else{a0=1;b0=0;c0=-cx;}
>   cx=(x0+x2)/2;cq=(q0+q2)/2;
>   a=q2-q0;b=x0-x2;c=x2*q0-x0*q2;
>   if(a!=0){a1=b/a;b1=-1;c1=cq-a1*cx;}
>     else{a1=1;b1=0;c1=-cx;}
>   cx=(b0*c1-b1*c0)/(a0*b1-a1*b0);cq=(a1*c0-a0*c1)/(a0*b1-a1*b0);
>   r=sqrt((x0-cx)*(x0-cx)+(q0-cq)*(q0-cq));
>   a=q1-q0;b=x0-x1;c=x1*q0-x0*q1;
>   if((a*x2+b*q2+c)*(a*(cx-r)+b*cq+c)>=0)minx=cx-r;
>   if((a*x2+b*q2+c)*(a*(cx+r)+b*cq+c)>=0)maxx=cx+r;
>   if((a*x2+b*q2+c)*(a*cx+b*(cq-r)+c)>=0)minq=cq-r;
>   if((a*x2+b*q2+c)*(a*cx+b*(cq+r)+c)>=0)maxq=cq+r;
>   minx=roundup(minx);
>   maxx=rounddown(maxx);
>   minq=roundup(minq);
>   maxq=rounddown(maxq);
>   if(minx<-1000)minx=-1000;if(minq<-1000)minq=-1000;
>   if(maxx>1000)maxx=1000;if(maxq>1000)maxq=1000;
>   printf("%0.0lf",fabs((maxx-minx)*(maxq-minq)));
>   return 0;
> }

why don't you use floor() function?

Oh, never mind I just didn't know what an arc was :-)

{$N+}
{$E-}
VAR

  X0, X1, X2 : Extended;
  Y0, Y1, Y2 : Extended;
  A, B, C : Extended;
  A0, B0, C0 : Extended;
  A1, B1, C1 : Extended;
  CX, CY, R : Extended;
  MinX, MaxX, MinY, MaxY : Extended;

  FUNCTION MyRoundUp(A : Extended) : Extended;
  BEGIN
    IF Trunc(A) = A THEN
      MyRoundUp := Trunc(A)
    ELSE
      IF A > 0 THEN
        MyRoundUp := Trunc(A+1)
    ELSE
      MyRoundUp := Trunc(A)
  END;

  FUNCTION MyRoundDown(A : Extended) : Extended;
  BEGIN
    IF Trunc(A) = A THEN
      MyRoundDown := Trunc(A)
    ELSE
      IF A < 0 THEN
        MyRoundDown := Trunc(A-1)
    ELSE
      MyRoundDown := Trunc(A);
  END;

BEGIN

  ReadLn(X0, Y0);
  ReadLn(X1, Y1);
  ReadLn(X2, Y2);

  MinX := X0;
  IF MinX > X1 THEN MinX := X1;
  MaxX := X0;
  IF MaxX < X1 THEN MaxX := X1;
  MinY := Y0;
  IF MinY > Y1 THEN MinY := Y1;
  MaxY := Y0;
  IF MaxY < Y1 THEN MaxY := Y1;

  CX := (X0+X1)/2;
  CY := (Y0+Y1)/2;

  {Line (X0,Y0) to (X1,Y1)}
  A := (Y1-Y0);
  B := (X0-X1);
  C := X1*Y0-X0*Y1;

  IF (Y1 <> Y0) THEN
    BEGIN
      A0 := B/A;
      B0 := -1;
      C0 := CY-A0*CX;
    END
  ELSE
    BEGIN
      A0 := 1;
      B0 := 0;
      C0 := -CX;
    END;

  CX := (X0+X2)/2;
  CY := (Y0+Y2)/2;

  {Line (X0,Y0) to (X2,Y2)}
  A := (Y2-Y0);
  B := (X0-X2);
  C := X2*Y0-X0*Y2;

  IF (Y2 <> Y0) THEN
    BEGIN
      A1 := B/A;
      B1 := -1;
      C1 := CY-A1*CX;
    END
  ELSE
    BEGIN
      A1 := 1;
      B1 := 0;
      C1 := -CX;
    END;

  {center}
  CX := (B0*C1-B1*C0)/(A0*B1-A1*B0);
  CY := (A1*C0-A0*C1)/(A0*B1-A1*B0);

  {radius}
  R := Sqrt(Sqr(X0-CX)+Sqr(Y0-CY));

  {Line (X0,Y0) to (X1,Y1)}
  A := (Y1-Y0);
  B := (X0-X1);
  C := X1*Y0-X0*Y1;

  IF (A*X2+B*Y2+C)*(A*(CX-R)+B*CY+C) > 0 THEN MinX := CX-R;
  IF (A*X2+B*Y2+C)*(A*(CX+R)+B*CY+C) > 0 THEN MaxX := CX+R;
  IF (A*X2+B*Y2+C)*(A*CX+B*(CY-R)+C) > 0 THEN MinY := CY-R;
  IF (A*X2+B*Y2+C)*(A*CX+B*(CY+R)+C) > 0 THEN MaxY := CY+R;

  MaxX := MyRoundUp(MaxX);
  MaxY := MyRoundUp(MaxY);
  MinX := MyRoundDown(MinX);
  MinY := MyRoundDown(MinY);

  Write((MaxX-MinX)*(MaxY-MinY):0:0);

END.

> duga

>
All tricks are in accurate math, not in programming