Search found 8 matches

by davor
Thu Aug 12, 2004 3:17 pm
Forum: Volume 106 (10600-10699)
Topic: 10689 - Yet another Number Sequence
Replies: 22
Views: 11558

10689 - Yet another Number Sequence

I getting WA with this problem but I think that my solution is OK.
My algorithm:
I use matrix chain multiplication.
I send my solution to p10229( Modular Fibonacci ) and I got Accepted.
Are there any tricks?
by davor
Sat Nov 01, 2003 1:55 pm
Forum: Volume 105 (10500-10599)
Topic: 10566 - Crossed Ladders
Replies: 39
Views: 11671

Thanks a lot. I got Accepted now. I have to watch on accuracy
by davor
Fri Oct 31, 2003 8:07 pm
Forum: Volume 105 (10500-10599)
Topic: 10566 - Crossed Ladders
Replies: 39
Views: 11671

10566 - Crossed ladders

Can anyone find what's wrong with my solution? If h1 and h2 are heights of ladders on walls then sqr(d)=sqr(x)-sqr(h1) , sqr(d)=sqr(y)-sqr(h2) , and h/h2=(h1-h)/h1. From this we have equation (sqr(x)-sqr(h1)-sqr(y))*sqr(h-h1)+sqr(h*h1)=0. Now I'm finding h1 with binary search, and then d. What's wro...
by davor
Fri Sep 05, 2003 3:38 pm
Forum: Volume 3 (300-399)
Topic: 393 - The Doors
Replies: 5
Views: 2474

393 - Wrong Answer, I can't belive it. plzzzzzzzzzz help

The problem is simple but I can't find out why WRONG ANSWER [pascal]var i,j,k,l,o,n,m:integer; x1,x2,y1,y2,y3,a1,b1,dis:real; a:array[0..19,1..5] of real; b:array[0..19,1..4] of real; function dist(x1,y1,x2,y2:real):real; begin dist:=sqrt(sqr(x1-x2)+sqr(y2-y1)); end; begin read(n); while n>=0 do beg...
by davor
Sun Aug 31, 2003 1:11 pm
Forum: Volume 102 (10200-10299)
Topic: 10263 - Railway
Replies: 14
Views: 5660

10263 W.A. plz help me!!!

Can anyone tell me what's wrong with my program? :( HELP var i,n:integer; px,py,krx,kry,kx,ky,pox,poy,rj,rx,ry,srx,sry:extended; function ud(px,py,kx,ky:extended):extended; begin ud:=sqrt(sqr(px-kx)+sqr(py-ky)); end; function raz(a,b:extended):boolean; var e:boolean; a1,b1:real; begin e:=true; if ab...
by davor
Sun Aug 31, 2003 11:08 am
Forum: Volume 102 (10200-10299)
Topic: 10201 - Adventures in Moving - Part IV
Replies: 23
Views: 11525

Thanks. I got Accepted now. I always forgot about those blank lines
by davor
Thu Aug 28, 2003 6:47 pm
Forum: Volume 102 (10200-10299)
Topic: 10201 - Adventures in Moving - Part IV
Replies: 23
Views: 11525

10201 Accepted P.E.

[/quote] I don't understand why my code gives Presentation Error. Can anyone tell me? var m,i,j,k,n,u,v,l:longint; s:string[200]; a:array[0..100,0..300] of longint; b:array[0..100,1..2] of integer; begin read(u); for v:=1 to u do begin for i:=0 to 100 do for j:=0 to 300 do a[i,j]:=2000000000; s:='';...
by davor
Sat Jun 28, 2003 11:19 pm
Forum: Volume 6 (600-699)
Topic: 681 - Convex Hull Finding
Replies: 60
Views: 20569

681 finding convex hull

[pascal] Can anybody tell me what's wrong whit my solution? WA after Being Judged :( :program p123(input,output); var b:array[0..1000] of boolean; a:array[0..1000,1..2] of integer; c:array[1..1000,1..2] of integer; n,i,u,v,j,k,l:integer; function ccw(k1,k2,k3:integer):boolean; var p:real; begin p:=a...

Go to advanced search