Search found 132 matches

by Revenger
Mon Jan 13, 2003 8:33 pm
Forum: Volume 104 (10400-10499)
Topic: 10426 - Knights' Nightmare
Replies: 17
Views: 7858

10426 - Knights' Nightmare

I can find a test where my program gets WA. Please, help me!! [pascal]Program p10426; Const MaxN = 16; MaxR = 1000; Type InfType = Array[1..MaxN,1..MaxN]of Byte; Var R,C,i,j : Integer; K : Array[1..4,1..2] of Integer; Inf : Array[1..4,0..1]of InfType; Mr,Mc : Integer; test : Integer; S : String; Pro...
by Revenger
Sat Oct 12, 2002 6:14 am
Forum: Volume 100 (10000-10099)
Topic: 10037 - Bridge
Replies: 84
Views: 24861

What's going on with 10037?

What are you doing? The test data for 10037 is wrong! May be you have spoiled it while you were formating it?.

My solution gets WA. But I have judge solution! What's wrong?
by Revenger
Sat Sep 28, 2002 1:02 pm
Forum: Volume 103 (10300-10399)
Topic: 10356 - Rough Roads
Replies: 29
Views: 15578

I think that there is something worng with Judge System. As I've written myself Judge System (not this :) ) I know that there is trouble with FPC and parameters. For example, if our solutions compile with no parameters it would all ok. (I'll try to compile mine code as "ppc386.exe prog.pas" and it w...
by Revenger
Wed Sep 25, 2002 9:15 am
Forum: Volume 5 (500-599)
Topic: 562 - Dividing coins
Replies: 73
Views: 30764

Thank you very much! I've found my mistake :)
by Revenger
Wed Sep 25, 2002 8:57 am
Forum: Volume 7 (700-799)
Topic: 751 - Triangle War
Replies: 17
Views: 7791

751 - Triangle War

I can't understand why my program gets WA :cry: I use backtracking. I try all posssibilitis for all steps. But if I have a two steps like: <a1 b1>, <a2 b2> and noone didn't fill a triangle, then <a2 b2>, <a1 b1> take the same result as previous. or <a1 b1>, <a2 b2> and one player filled a triangle i...
by Revenger
Fri Sep 20, 2002 7:25 pm
Forum: Volume 103 (10300-10399)
Topic: 10356 - Rough Roads
Replies: 29
Views: 15578

I have the same trouble :( My PASCAL code gets WA. I think it is only due FreePascal because my C++ code gets Accepted ! I've just wonder what can be wrong in code (May be EOF works bad or something else?): [pascal]Program p10356; Const MaxN = 600; Max = 1000000; Var Inf : Array[1..2,0..MaxN]of Inte...
by Revenger
Mon Sep 16, 2002 7:52 pm
Forum: Volume 7 (700-799)
Topic: 755 - 487--3279
Replies: 115
Views: 29450

755 Need help

I've just wonder why this code gets WA :( It's only simple merge sort [pascal]Program p755; Const MaxN = 110000; LDig : Array['A'..'Z']of Integer = ( 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 0, 7, 7, 8, 8, 8, 9, 9, 9, 0 ); Var T,tt,i : Integer; p,j,k,c : Integer; Amount : Array[1..MaxN]of Int...
by Revenger
Tue Sep 10, 2002 5:41 am
Forum: Volume 103 (10300-10399)
Topic: 10314 - Three Pigs
Replies: 20
Views: 9926

Pedrinho UFPE wrote: Given a graph G = (V,E), a subset S of V and 2 vertices x and y of V, find a path from x to y visiting the maximum elements of S. For each vertex v of the path xy in S, do S' = S - {v}. Return to the first problem with S'. Do this 2 times, and print #S - #Sfinal. Ok? This is alg...
by Revenger
Wed Aug 28, 2002 3:38 pm
Forum: Volume 103 (10300-10399)
Topic: 10347 - Medians
Replies: 32
Views: 14249

10347 - Medians

I have no idea why my code gets WA I know this simple formulas: S=(4/3)*(m(m-ma)(m-mb)(m-mc))^(1/2) , where m=(ma+mb+mc)/2; a=(2/3)*(2mb^2+2mc^2-ma^2)^(1/2); Am I wrong? But my program is wrong :cry: [pascal]Program p10347; Const Eps = 1e-10; Var m1,m2,m3,m,a,b,c : Extended; begin While Not Eof do b...
by Revenger
Wed Aug 14, 2002 7:05 pm
Forum: Volume 7 (700-799)
Topic: 727 - Equation
Replies: 156
Views: 35816

Can anybody help me? It's seems to be all ok but I get WA :cry: [pascal]Program p727; Var T,i,tt : Integer; Expp : String; Ch : Char; Procedure Rec(Str : String); Var i,lev : Integer; Procedure Evalute(Str : String); Var i,lev : Integer; op : Char; S : String; begin op:='#'; lev:=0; for i:=1 to leng...
by Revenger
Sat Aug 10, 2002 10:51 am
Forum: Volume 6 (600-699)
Topic: 608 - Counterfeit Dollar
Replies: 19
Views: 8288

608 (Counterfeit Dollar) WA

I just wonder why I get WA? For each coin I consider that it is false and then check 3 weighings. If these weighings are correct (I consider that all other coins is not false) then I write these coin as answer. Am I wrong? [pascal]Program p608; Var T,tt : Integer; i,j,k : Integer; Ch : Char; Inf : A...
by Revenger
Thu Aug 08, 2002 8:01 pm
Forum: Volume 100 (10000-10099)
Topic: 10014 - Simple calculations
Replies: 34
Views: 8799

That's easy. The firstt number in input is the the number of test. Then follow tests. For example(This is judge input): 6 1 50.50 25.50 10.15 3 -178.10 -76.60 448.80 -913.85 328.85 4 -853.00 752.00 -941.20 191.75 -428.00 534.30 100 -742.90 447.10 -60.35 -403.85 -406.65 641.80 -365.80 -444.05 999.30 ...
by Revenger
Tue Aug 06, 2002 10:02 am
Forum: Volume 103 (10300-10399)
Topic: 10314 - Three Pigs
Replies: 20
Views: 9926

To dynamic: Have you solved this prob? I think that you haven't. It's NP problem and the only way to solve it is Backtracking
by Revenger
Wed Jul 31, 2002 2:40 pm
Forum: Volume 6 (600-699)
Topic: 663 - Sorting Slides
Replies: 18
Views: 10812

I have add a check but I still get WA :( Why??? [pascal]Program p663; Type Rect = Record Xmin,Ymin,Xmax,Ymax : Integer End; Point = Record X,Y : Integer End; Var Tr : Array['A'..'Z']of Record D : Rect; N : Integer; End; Pnt : Array[1..26]of Record D : Point; N : Char; End; T,N : Integer; i,j,k : Int...
by Revenger
Mon Jul 29, 2002 8:29 am
Forum: Volume 6 (600-699)
Topic: 663 - Sorting Slides
Replies: 18
Views: 10812

I wrote
- if there is a slide on which lie only one number then I consider that this slide have this number
So, on 3rd slide lie only one number - 3, and I consider that number 3 on 3rd slide.

May be you understand my algo not clear enough ?

Go to advanced search