Ngày tải lên :
11/09/2012, 15:00
... c[i,i]a[i,i] then inc(dem); For k: =i-1 downto Begin C [k, i]:=Tren[c [k, i-1],c [k+ 1,i]]; C[i ,k] :=Duoi[c[i-1 ,k] ,c[i ,k+ 1]]; Ifc [k, i] a [k, i] then inc(dem); Ifc[i ,k] a[i ,k] then inc(dem); End; Sl:=sl+dem;Qlui(i+1); ... sau đềukhông ảnh hưởng đến k t nhận Ví dụ: Nếudanh sách robot gọi 121 ta gọi theo thứtự: 112 − k t không thay đổi Như vậy: mộtrobot gọi đến lần thứ ta bỏ robot khỏidanh sách, tức muốn nhận k t tối ... End; Procedurekhoi_tao; Begin Kq:=′TTTTTTTTT′; Fillchar(a,sizeof(a),0); Sl:=0; Kl:=maxint; End; ProcedureQlui(i,t: integer); Var j ,k, l:integer; Begin If s=kq then Begin If sl Begin kl:=sl; luu:=a;...