Search found 132 matches

by Revenger
Mon Jun 17, 2002 11:23 am
Forum: Volume 100 (10000-10099)
Topic: 10005 - Packing polygons
Replies: 49
Views: 15610

1005 Thanks

Thank you for this test. You are quite rigth: the points may lie on the same line. At this test my program get Runtime Error on my computer. I change the program in proper way, but Judge Disable and so I can't send my code to it. Then Judge check my solution i shall write about Judge's verdict in th...
by Revenger
Mon Jun 17, 2002 6:31 am
Forum: Volume 100 (10000-10099)
Topic: 10005 - Packing polygons
Replies: 49
Views: 15610

1005 You are rigth

You are rigth. There is no way of packing that polygon. And my program write it. But then why it[my program] gets WA? Have you any idea? I haven't. May be something wrong with Judge? I hope that on the next your test my program will fail :wink: but not on previos. And thank you very much for your he...
by Revenger
Sun Jun 16, 2002 7:15 pm
Forum: Volume 100 (10000-10099)
Topic: 10005 - Packing polygons
Replies: 49
Views: 15610

1005 Why?!!

You say : "consider a quadrilateral, with two sides of length sqrt(2)*R+0.1, and two sides of length R/sqrt(3)". I can not understand your words. If you mean a rectangle with sides sqrt(2)*R+0.1 and R/sqrt(3) then I make that test: 4 0.0 0.0 0.57735 0.0 0.57735 1.5142 0.0 1.5142 1.000 My program wri...
by Revenger
Sun Jun 16, 2002 11:07 am
Forum: Volume 100 (10000-10099)
Topic: 10005 - Packing polygons
Replies: 49
Views: 15610

10005

Maybe I should use another value for Eps? 10e-5 or 10e-15?
by Revenger
Sat Jun 15, 2002 10:13 am
Forum: Volume 2 (200-299)
Topic: 299 - Train Swapping
Replies: 81
Views: 11736

This problem is easy, but I get WA :cry: Can anybody find an error in this program? Please! [pascal]Program p299; Const MaxL = 100; Var L,Ans : Integer; Train : Array[1..MaxL]of Integer; i,j,k : Integer; t,tt : Integer; begin Readln(t); for tt:=1 to t do begin Readln(l); for i:=1 to l do if i<>l the...
by Revenger
Sat Jun 15, 2002 10:00 am
Forum: Volume 2 (200-299)
Topic: 218 - Moth Eradication
Replies: 60
Views: 10989

218 (Moth Eradication) WA

My program gets WA :-(( But on all my tests it's correct. Can anybody help me? [pascal]Program p218; Const MaxN = 1000; Type Point = record X,Y : Extended end; Var N,i,B,Pred,j,ii,t : Integer; P : array[1..MaxN]of Point; Use : array[1..MaxN]of byte; Order : array[0..MaxN]of Integer; Ans : Extended; ...
by Revenger
Wed Jun 12, 2002 7:16 pm
Forum: Volume 2 (200-299)
Topic: 209 - Triangular Vertices
Replies: 51
Views: 7190

209 Need help...

There 2 types of triangle, 3 types of parallelogram and only 1 type of hexagon. I simply check them all. In any other cases I write that it's not an acceptable figure. But I get WA. Can anyone help me? There is my program: [pascal](* Triangular Vertices *) Program p209; Const MaxN = 32767; Message :...
by Revenger
Mon Jun 10, 2002 2:06 pm
Forum: Volume 100 (10000-10099)
Topic: 10005 - Packing polygons
Replies: 49
Views: 15610

10005 Need help

I use a such algorithm: 1. if N=1 then I write 'The polygon can be packed in the circle.' 2. if N=2 then if Distance between first and second points < 2*R + Epsilon I write ok else I write Not Ok 3. if N>=3 I check every triplet of points. It means that for every 3-angle in polygon I find out Rm (wh...
by Revenger
Mon May 20, 2002 5:02 pm
Forum: Volume 2 (200-299)
Topic: 294 - Divisors
Replies: 91
Views: 24209

294: Please, help me!

I tested my program many times, but get WA. Why? Please, help me. [pascal] Program p294; Var N,U,L,t,i,max,j,k : Integer; Function GetD(NN : Integer) : Integer; Var i,j,k,l : Integer; begin l:=round(sqrt(NN)+1); k:=0; for i:=1 to l do if NN mod i=0 then begin j:=NN div i; if j>=i then inc(k); if j<=...
by Revenger
Mon May 06, 2002 9:52 am
Forum: Volume 1 (100-199)
Topic: 128 - Software CRC
Replies: 62
Views: 7769

128 - Software CRC

I don't know why I get Runtime Error... I tested my program on many tests but with no results. Please, help me. Here is my code [pascal](* Software CRC *) Program p128; Const g = 34943; Var Ch : Char; S : String; last,i,j : integer; begin While True Do begin last:=0; Read(Ch); if Ch='#' then Break; ...
by Revenger
Sat Apr 20, 2002 5:44 pm
Forum: Volume 1 (100-199)
Topic: 104 - Arbitrage
Replies: 223
Views: 14797

Prob 104 Why I get WA? Please, help me!!!

Please, help me to find where my program wrong :( I tested it many times but without any results (* Arbitrage *) [pascal]Program p104 (input, output); Const MaxN = 20; Type PathMas = array[1..2*MaxN]of integer; Var Exc : array[1..MaxN,1..MaxN]of extended; Best : array[1..MaxN]of record Value : singl...
by Revenger
Sun Apr 14, 2002 12:33 pm
Forum: Volume 1 (100-199)
Topic: 125 - Numbering Paths
Replies: 56
Views: 5930

Prob 125 Numbering Paths

Why I get WA? My program work fine work fine at all my and not my tests but on acm.uva.es it failed. Please, help me! :cry: (* Numbering Paths *) (*Algorithm O(n^4)*) Program p125 (input, output); Const MaxN = 30; Var A : array[1..MaxN*2,1..MaxN,1..MaxN]of extended; Result : array[1..MaxN,1..MaxN]of...

Go to advanced search