## Search found 6 matches

Wed Jun 16, 2004 4:20 pm
Forum: Volume 3 (300-399)
Topic: 383 - Shipping Routes
Replies: 27
Views: 6489
help~
Wed Jun 16, 2004 12:45 pm
Forum: Volume 3 (300-399)
Topic: 383 - Shipping Routes
Replies: 27
Views: 6489

### 383 WA

[pascal]var dummy:char; a,b,c,d:longint; i,j,k:longint; n,m,p:longint; u,v:longint; novertex:longint; ts:string; s,s2:string[2]; cost:array[0..800,0..800] of longint; lst:array[0..300] of string[2]; function min(a,b:longint):longint; begin min:=a; if b<a then min:=b; end; begin writeln('SHIPPING ROU...
Sat Jun 12, 2004 11:34 am
Forum: Volume 101 (10100-10199)
Topic: 10192 - Vacation
Replies: 58
Views: 15218
Oh sorry~
I deleted the readln(b) carelessly ==;
Thanks~~~!
Sat Jun 12, 2004 11:13 am
Forum: Volume 101 (10100-10199)
Topic: 10192 - Vacation
Replies: 58
Views: 15218
No............
I still got WA............................>.<
help
Sat Jun 12, 2004 10:24 am
Forum: Volume 101 (10100-10199)
Topic: 10192 - Vacation
Replies: 58
Views: 15218
Thanks~
But i still got WA >_<
Sat Jun 12, 2004 8:18 am
Forum: Volume 101 (10100-10199)
Topic: 10192 - Vacation
Replies: 58
Views: 15218

### 10192

[pascal]var a,b:string; cost:array[1..2000,1..2000] of longint; i,j,k,n:longint; begin while a[1]<>'#' do begin inc(k); fillchar(cost,sizeof(cost),0); readln(a); if a[1]<>'#' then readln(b); if a[1]<>'#' then begin for i:=1 to length(a) do for j:=1 to length(b) do if a =b[j] then cost [j]:=1+cost[i-...