Search found 22 matches
- Sat Feb 22, 2003 4:28 pm
- Forum: Volume 104 (10400-10499)
- Topic: 10424 - Love Calculator
- Replies: 137
- Views: 42874
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...
- Sat Nov 16, 2002 8:42 am
- Forum: Volume 104 (10400-10499)
- Topic: 10405 - Longest Common Subsequence
- Replies: 103
- Views: 31804
why WA?
why WA?can anyone help me?
- Sat Oct 26, 2002 5:03 pm
- Forum: Volume 4 (400-499)
- Topic: 498 - Polly the Polynomial
- Replies: 73
- Views: 15301
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...
- Thu Oct 03, 2002 12:32 pm
- Forum: Volume 101 (10100-10199)
- Topic: 10189 - Minesweeper
- Replies: 418
- Views: 78946
10189
why i got WA again and again? are there special inputs? thanks 

- Fri Aug 30, 2002 9:32 am
- Forum: Volume 7 (700-799)
- Topic: 793 - Network Connections
- Replies: 102
- Views: 33687
??
NO one can help me?What a pity.. 

- Wed Aug 28, 2002 2:27 pm
- Forum: Volume 101 (10100-10199)
- Topic: 10188 - Automated Judge Script
- Replies: 58
- Views: 31986
help!
i got WA again and again,please help me?what's the problem?or give me some sample input and output?


- Tue Aug 27, 2002 7:26 am
- Forum: Volume 7 (700-799)
- Topic: 793 - Network Connections
- Replies: 102
- Views: 33687
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...
- Tue Aug 27, 2002 6:53 am
- Forum: Volume 4 (400-499)
- Topic: 400 - Unix ls
- Replies: 93
- Views: 19606
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:...
- Thu Aug 22, 2002 6:45 am
- Forum: Volume 7 (700-799)
- Topic: 750 - 8 Queens Chess Problem
- Replies: 78
- Views: 28542
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 ...
- Sun Aug 18, 2002 9:39 am
- Forum: Volume 4 (400-499)
- Topic: 448 - OOPS!
- Replies: 18
- Views: 4965
hi
so You'd better not use C++....pascal is good enougth for you 

- Tue Aug 13, 2002 2:29 pm
- Forum: Volume 101 (10100-10199)
- Topic: 10175 - Sphere
- Replies: 4
- Views: 1639
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...
- Mon Aug 12, 2002 12:39 pm
- Forum: Volume 4 (400-499)
- Topic: 406 - Prime Cuts
- Replies: 187
- Views: 29074
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!
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!
- Sun Aug 11, 2002 5:52 am
- Forum: Volume 4 (400-499)
- Topic: 460 - Overlapping Rectangles
- Replies: 25
- Views: 3266
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
http://acm.uva.es/problemset/minput.html
- Sun Aug 11, 2002 5:46 am
- Forum: Volume 2 (200-299)
- Topic: 270 - Lining Up
- Replies: 48
- Views: 17506
to obayashi
i will do as you say.
Thanks..
Thanks..
- Sat Aug 10, 2002 5:29 pm
- Forum: Volume 4 (400-499)
- Topic: 401 - Palindromes
- Replies: 196
- Views: 36364
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.
[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.
