Ngày tải lên: 09/08/2012, 23:24
BÀI TẬP LẬP TRÌNH - CODE THUẬT TOÁN PRIM
... ra dinh ke co trong so nho nhat *) v:=k; end; CanhKe[v]:=-1; (* Gan=-1 de loai dinh v nay ra khoi danh sach xet tiep theo *) {Ket thuc tim canh dua vao MST} {Phan cap nhat lai DinhKe va CanhKe} ... end; close(f); PrintMatrix; end; { } procedure Prim; var v,i,k: integer; min: integer; begin {khoi tao mang dinh ke` cua ca'c dinh 2,3, ,n la` dinh 1} for v:=2 to n do begin DinhKe[v]:=1; ... nen o day dam bao nhung dinh khong co diem ke thi trong so =Maxint *) end; for i:=2 to n do {Lap n-1 buoc xac dinh cac canh cua cay khung BE NHAT} begin program Prim_Algorithm;{chuong trinh...
Ngày tải lên: 19/08/2013, 09:35
BÀI TẬP LẬP TRÌNH - DEMO CÁC PHƯƠNG PHÁP SẮP XẾP
... For i:=1 to n-1 do begin min:=i; for j:=i+1 to n do if Nhohon(j,min) then min:=j; Program BAI_ TAP_ CHU_DE_LON1; Uses Dos,Crt,graph; Type mang = array [1 10] of string; m1 = array [1 21] of...
Ngày tải lên: 19/08/2013, 09:35