Giáo trình toán rời rạc - Phụ lục II

... nắm vững được thuật toán trước khi đi vào các thí dụ cụ thể. Hiển thị các bước thực hiện của bài toán: Do chương trình nhằm mục đích phục vụ cho việc dạy và học môn Toán rời rạc nên chức năng ... End; Chương trình sau là chương trình phục vụ cho việc học tập và giảng dạy về bài toán tìm luồng cực đại trong mạng. Chương trình sau được xây dựng bằng công cụ lập trình Delphi. Các chức ... 158PHẦN PHỤ LỤC Phụ lục 2 Bài toán luồng cực đại Cho mạng G=(V,E). Hãy tìm luồng f* trong mạng với giá trị luồng val(f*) là lớn nhất. Luồng như vậy ta sẽ gọi là luồng cực đại trong mạng. Bài toán...

... nắm vững được thuật toán trước khi đi vào các thí dụ cụ thể. Hiển thị các bước thực hiện của bài toán: Do chương trình nhằm mục đích phục vụ cho việc dạy và học môn Toán rời rạc nên chức năng ... End; 161Chương trình sau là chương trình phục vụ cho việc học tập và giảng dạy về bài toán tìm luồng cực đại trong mạng. Chương trình sau được xây dựng bằng công cụ lập trình Delphi.Các ... PHẦN PHỤ LỤC Phụ lục 2Bài toán luồng cực đạiCho mạng G=(V,E). Hãy tìm luồng f* trong mạng với giá trị luồng val(f*) là lớn nhất. Luồng như vậy ta sẽ gọi là luồng cực đại trong mạng.Bài toán...

... PHẦN PHỤ LỤC Phụ lục 1Unit chứa khai báo các cấu trúc dữ liệu cho đồ thịvà cài đặt thủ tục tìm đường đi ngắn nhất theo thuật toán unit Func_DoThi;interfacetype ... i:=i-1;141If st[i]='.' then i:=i-1;delete(St,i+1,L-i);end;Function Quay(P,Tam:TypeToaDo;Goc:Real):TypeToaDo;Var Q:TypeToaDo;beginGoc:=Goc*Pi/180;P.x:=P.x-Tam.x;P.y:=P.y-Tam.y;Q.x:=Round(P.x*Cos(goc)-P.y*Sin(goc));Q.y:=Round(P.x*Sin(goc)+P.y*Cos(goc));Q.x:=Q.x+Tam.x;Q.y:=Q.y+Tam.y;Quay:=Q;end;procedure ... 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 L=0 then exit;TL:=RMuiTen/L;P.X:=round(T2.x-DX*TL);P.Y:=round(T2.y-DY*TL);Q1:=Quay(P,T2 ,-3 5);Q2:=Quay(P,T2,35);pic.Canvas.Brush.Style:=bsSolid;pic.Canvas.Brush.Color:=LineColor;pic.Canvas.Pen.Color:=LineColor;If...

... vững được thuật toán trước khi đi vào các thí dụ cụ thể. Hiển thị các bước thực hiện của bài toán: Do chương trình nhằm mục đích phục vụ cho việc dạy và học môn Toán rời rạc nên chức năng ... End; Chương trình sau là chương trình phục vụ cho việc học tập và giảng dạy về bài toán tìm luồng cực đại trong mạng. Chương trình sau được xây dựng bằng công cụ lập trình Delphi. Các ... PHẦN PHỤ LỤC Phụ lục 2 Bài toán luồng cực đại Cho mạng G=(V,E). Hãy tìm luồng f* trong mạng với giá trị luồng...