OJ Board

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...

why WA?can anyone help me?

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...

why i got WA again and again? are there special inputs? thanks

NO one can help me?What a pity..

i got WA again and again,please help me?what's the problem?or give me some sample input and output?

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...

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:...

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 ...

so You'd better not use C++....pascal is good enougth for you

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...

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!

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

i will do as you say.
Thanks..

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.