bai toan toi uu roi rac

... i,j,First,Last,v:Integer; Begin Fillchar(TraceX,Sizeof(TraceX),0); Fillchar(TraceY,Sizeof(TraceY),0); First:=1;Last:=0; For i:=1 to m If x[s,i] inc(last); Queue[last]:=i; traceX[i]:=-1; end; While First0) then begin Inc(Last); Queue[Last]:=v; TraceX[v]:=j; ... Const InputFile=’Input.Txt’; OutputFile=’Output.Txt’; Var a,x:Array[1 100,1 100]of Integer; TraceX,TraceY:Array[1 100]of Integer; p:Array[1 100]of Integer; Start,Finish,n,m,s,t,Delta,No:Integer;...

Ngày tải lên: 07/09/2012, 10:56

Ngày tải lên: 26/08/2013, 20:26

Ngày tải lên: 11/12/2013, 16:15

Ngày tải lên: 01/07/2014, 17:20

Ngày tải lên: 24/07/2014, 23:21

Ngày tải lên: 24/07/2014, 23:21

Ngày tải lên: 24/07/2014, 23:21

Ngày tải lên: 24/07/2014, 23:21

Ngày tải lên: 24/07/2014, 23:21

Ngày tải lên: 05/04/2015, 13:50

Ngày tải lên: 06/09/2012, 14:32

Ngày tải lên: 07/09/2012, 10:56

... procedure trace; var i : integer; begin if not ok then exit; z := 0; i := t; repeat inc(z); kq[z] := i; i := đ[i]; until i = -1; end; (*********************) procedure xuly; begin search; trace; end;...

Ngày tải lên: 07/09/2012, 10:56

Ngày tải lên: 11/09/2012, 15:49

Ngày tải lên: 11/09/2012, 15:49

Ngày tải lên: 11/09/2012, 15:49

Ngày tải lên: 11/09/2012, 15:49

Ngày tải lên: 07/11/2012, 12:23

Ngày tải lên: 07/11/2012, 12:23

Ngày tải lên: 07/11/2012, 12:23