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

Tài liệu Giáo trình toán rời rạc - Phụ lục 1 docx

... 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;beginDx:=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:Tbitmap;LineColor:Tcolor;TimeDelay:TdateTime);var ... delete(st ,1, L);L:=length(st);end;P:=pos('.',st);i:=L;If P=0 then exit;while (i>P)and(st[i]='0') do i:=i -1 ; 14 1If st[i]='.' then i:=i -1 ; delete(St,i +1, L-i);end;Function...

Tài liệu Giáo trình toán rời rạc - Phụ lục 2 pdf

... 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; L_v:=[0] ; L_v1:=[0]; ... L_G1:L_typedothi); { tang luong theo duong tang } 16 7 var x,y,t,t1:integer; tang,a,k:real; s,s1,s2,s3,s4:string; ok:boolean; begin x:=L_G1.sodinh -1 ; y:=L_G1.sodinh -1 ; tang:=L_e[L_G1.sodinh -1 ] ;...

Tài liệu Giáo trình toán rời rạc - Phụ lục 2 doc

... 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 L_giatri(L_G1,x,y,t,a1,b1); ... L_giatri(L_G1,x,y,t,a1,b1); {a:=c[x,y],b:=f[x,y]} L_giatri(L_G1,y,x,t1,k1,l1); {k:=c[y,x],l:=f[y,x]} If (a1>0) and (b1<a1) then Begin L_p1[y]:=x; L_nhan[y]:=true; L_e[y]:=L_min(L_e[x],a1-b1); ...

Tài liệu Giáo trình toán rời rạc - Chương 6: CÂY pptx

... ⎟⎟⎟⎟⎟⎟⎟⎟⎟⎟⎟⎠⎞⎜⎜⎜⎜⎜⎜⎜⎜⎜⎜⎜⎝⎛∞∞∞∞∞∞∞∞ 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 16203 218 192 315 16 BGAHB A E D C H G F Yêu ... ⎟⎟⎟⎟⎟⎟⎟⎟⎟⎟⎟⎠⎞⎜⎜⎜⎜⎜⎜⎜⎜⎜⎜⎜⎝⎛∞∞∞∞∞∞∞∞ 14 18 211 119 1 218 14 1723 212 02032 18 173430 211 920 212 33422293423 11 213 02 213 1 319 19 20 212 913 3 316 12 2 019 3 413 3 315 18 32202 319 1 615 B DC E HAF I B I H F E D C A ... 1. Duyệt T(b) 1. 1. Duyệt T(d) 1. 1 .1. Duyệt T(g) 1. 1 .1. 2. Duyệt T(l): thăm l 1. 1 .1. 3. Thăm g 1. 1.2. Duyệt T(h): thăm h 1. 1.3. Thăm d 1. 2. Duyệt T(e) 1. 2 .1. Duyệt T(i) 1. 2 .1. 1....

Tài liệu Giáo trình toán rời rạc - Chương 5 ppt

... ∞∞∞∞∞∞040 013 04322 412 22900053 513 152429 013 1 10 1402 711 .∞∞∞∞∞00 013 022 412 22900 513 15242 913 1 →M’’ = ∞∞∞∞∞00 013 022 412 22900 513 15232 812 0.Tổng ... sau:∞∞∞∞∞∞874325346294 414 212 02 714 23073 311 222334 216 9243 214 4525.87v8v9v 10 v 11 15 12 2024 1 3022220L(a) L(b) L(c) L(d) L(e) L(g) L(h) L(k) L(m) L(n)5 .1. 4. Định lý: Thuật toán Dijkstra ...  1 429243 14 27, W2 = 2 51 1042925843 14 8 211 7W3 = 82 51 510 4292 11 5843 714 14 8 211 7, W4...

Xem thêm