Search found 22 matches

by liusu
Sat Feb 22, 2003 4:28 pm
Forum: Volume 104 (10400-10499)
Topic: 10424 - Love Calculator
Replies: 137
Views: 39210

also help me,please

i also meet the same proble..my code is : :oops: :oops: [pascal] var table:array[0..128] of integer; in1,in2:string; sum1,sum2:integer; procedure init(); var i,x:integer; begin for i:=0 to 128 do table :=0; x:=64; for i:=1 to 26 do table[x+i]:=i; x:=96; for i:=1 to 26 do table[x+i]:=i; end; function...
by liusu
Sat Nov 16, 2002 8:42 am
Forum: Volume 104 (10400-10499)
Topic: 10405 - Longest Common Subsequence
Replies: 103
Views: 29225

why WA?

why WA?can anyone help me?
by liusu
Sat Oct 26, 2002 5:03 pm
Forum: Volume 4 (400-499)
Topic: 498 - Polly the Polynomial
Replies: 73
Views: 13617

why WA?

I Think there is no error,but still WAs,why?plz help me :cry: [pascal]var s:array[1..10000000] of integer; p,a:integer; function f(a,b:integer):double; begin if b=0 then f:=1 else f:=a*f(a,b-1); end; procedure done(a:integer); var re:double; i:integer; begin re:=0; for i:=1 to p do re:=re+s *f(a,p-i...
by liusu
Thu Oct 03, 2002 12:32 pm
Forum: Volume 101 (10100-10199)
Topic: 10189 - Minesweeper
Replies: 418
Views: 67146

10189

why i got WA again and again? are there special inputs? thanks :cry:
by liusu
Fri Aug 30, 2002 9:32 am
Forum: Volume 7 (700-799)
Topic: 793 - Network Connections
Replies: 102
Views: 31033

??

NO one can help me?What a pity.. :roll:
by liusu
Wed Aug 28, 2002 2:27 pm
Forum: Volume 101 (10100-10199)
Topic: 10188 - Automated Judge Script
Replies: 58
Views: 30719

help!

i got WA again and again,please help me?what's the problem?or give me some sample input and output?
:oops:
by liusu
Tue Aug 27, 2002 7:26 am
Forum: Volume 7 (700-799)
Topic: 793 - Network Connections
Replies: 102
Views: 31033

793

i try again and again,but still WA....... :oops: :oops: :oops: please help. thank you very much!!!!!!!! [pascal]var s:array[1..1000] of integer; bool:array[1..1000] of boolean; //judge if it was connected total:integer; procedure inis(total:integer); var i:integer; begin for i:=1 to total do begin s...
by liusu
Tue Aug 27, 2002 6:53 am
Forum: Volume 4 (400-499)
Topic: 400 - Unix ls
Replies: 93
Views: 17455

HELP ME please

i got wa many times...coulld you help me? :oops: [pascal]var s:array[1..102] of string; i:integer; procedure order(t:integer); var m,n:integer; st:string; begin for m:=1 to t-1 do for n:=m+1 to t do if(s[m]>s[n]) then begin st:=s[m]; s[m]:=s[n]; s[n]:=st; end; end; procedure print(t:integer); var i:...
by liusu
Thu Aug 22, 2002 6:45 am
Forum: Volume 7 (700-799)
Topic: 750 - 8 Queens Chess Problem
Replies: 78
Views: 26544

have a try!

give you some example input and output,have a try: [pascal]3 1 3 SOLN COLUMN # 1 2 3 4 5 6 7 8 1 2 6 1 7 4 8 3 5 2 4 6 1 5 2 8 3 7 3 4 7 1 8 5 2 6 3 4 4 8 1 3 6 2 7 5 5 4 8 1 5 7 2 6 3 6 5 3 1 6 8 2 4 7 7 5 3 1 7 2 8 6 4 8 5 7 1 3 8 6 4 2 9 5 7 1 4 2 8 6 3 10 6 3 1 7 5 8 2 4 11 6 3 1 8 4 2 7 5 12 6 ...
by liusu
Sun Aug 18, 2002 9:39 am
Forum: Volume 4 (400-499)
Topic: 448 - OOPS!
Replies: 18
Views: 4063

hi

so You'd better not use C++....pascal is good enougth for you :D
by liusu
Tue Aug 13, 2002 2:29 pm
Forum: Volume 101 (10100-10199)
Topic: 10175 - Sphere
Replies: 4
Views: 1485

10175 - Sphere

who can help me?i can't find mistake.could you help? thank you... :cry: [pascal]var r1,r2:integer; d,w,s,pi:real; v,ba:real; sumcase,i:integer; function volume(r,h:real):real; begin volume:=pi*h*(h*h+3*r*r)/6; end; function surarea(r,h:real):real; begin surarea:=pi*(h*h+r*r); end; function isfloat:b...
by liusu
Mon Aug 12, 2002 12:39 pm
Forum: Volume 4 (400-499)
Topic: 406 - Prime Cuts
Replies: 187
Views: 22491

HAHA!

you can test your program:

input:
1000 1;
your output is:
1000 1: 751 757
but the right one is:
1000 1: 433

i think there is some problrm with your array..

Good luck!
by liusu
Sun Aug 11, 2002 5:52 am
Forum: Volume 4 (400-499)
Topic: 460 - Overlapping Rectangles
Replies: 25
Views: 2485

minput!

yes,it's minput!so there is some prblrm with your input.you can see the page below:
http://acm.uva.es/problemset/minput.html
by liusu
Sun Aug 11, 2002 5:46 am
Forum: Volume 2 (200-299)
Topic: 270 - Lining Up
Replies: 48
Views: 16185

to obayashi

i will do as you say.
Thanks..
by liusu
Sat Aug 10, 2002 5:29 pm
Forum: Volume 4 (400-499)
Topic: 401 - Palindromes
Replies: 196
Views: 31414

you can do like this:

you can use the 'while' :

[pascal]flag:=true;
i:=xx;
while (i<xxx) and flag do
begin
xxxx;
if xxx then flag:=false
else inc(i);
end;[/pascal]

I used it and pass this problem.good luck. :wink:

Go to advanced search