Tài liệu Giáo trình toán rời rạc - Phu luc 1 ppt

... then exit; TL:=BanKinh/L; Q1.X:=round(T1.x+DX*TL); Q1.Y:=round(T1.y+DY*TL); Q2.X:=round(T2.x-DX*TL); Q2.Y:=round(T2.y-DY*TL); T1:=Q1;T2:=Q2; DX:=T2.x-T1.x;DY:=T2.y-T1.y; L:=sqrt(DX*DX+DY*DY); If ... Dx,Dy:integer; begin Dx:=T2.x -T1.x ;Dy:=T2.y -T1.y ; MidPoint.x:=T1.x +Round(Dx*PhanTram /10 0); MidPoint.y:=T1.y +Round(Dy*PhanTram /10 0); end; Procedure Veline(T1,T2:TypeToaDo;Gia:real;Pic:Tb...

... tam:=tam +1; if tam> ;1 then L_inc_flow(L_G1) else stop:=true; end; f:=0; for y:= 0 to L_G1.sodinh -1 do begin L_giatri(L_G1,0,y,t1,a1,b1); f:=f+b1; end; for y:=0 to L_G1.Socanh -1 do ... xet; 16 4 } VAR x,y:integer; ok:boolean; a1,b1,k1,l1:real; t,t1,i:integer; BEGIN for i:=0 to L_G1.sodinh -1 do L_p1[i]: = -1 ; L_p1[0]:=0; L_nhan[0]:=true; L_e[0]:=vocung;...

... ok:boolean; a1,b1,k1,l1:real; t,t1,i:integer; BEGIN for i:=0 to L_G1.sodinh -1 do L_p1[i]: = -1 ; L_p1[0]:=0; L_nhan[0]:=true; L_e[0]:=vocung; L_v:=[0] ; L_v1:=[0]; L_pathfound:=true; ... (x<=L_G1.sodinh -1 ) and (ok=true) do Begin If x in L_v then ok:=false Else x:=x +1; End; L_v:=L_v-[x]; For y:=0 to L_G1.sodinh -1 do If L_p1[y] = -1 then Begin...

... ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎠ ⎞ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎝ ⎛ ∞ ∞ ∞ ∞ ∞ ∞ ∞ ∞ 18 14 211 219 112 0 18 1723 212 019 32 14 173430 212 018 212 33422292 419 12 213 02 213 3323 19 20 212 913 1 315 11 1920243 313 16 203 218 192 315 16 B GA H B A E D C H G F Yêu ... ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎟ ⎠ ⎞ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎜ ⎝ ⎛ ∞ ∞ ∞ ∞ ∞ ∞ ∞ ∞ 14 18 211 119 1 218 14 1723 212 02032 18 173430 211 920...

...                     ∞ ∞ ∞ ∞ ∞ ∞ 040 013 04322 412 22900 053 513 15 2429 013 1 10 1402 711 .                 ∞ ∞ ∞ ∞ ∞ 00 013 022 412 2290 0 513 15 242 913 1  → M’’ =                 ∞ ∞ ∞ ∞ ∞ 00 013 022 412 2290 0 513 15 232 812 0 . Tổng ... sau:                     ∞ ∞ ∞ ∞ ∞ ∞ 874325 346294 414 212 02 714...