... dau: lienket; function timkiemcaynhiphan(k : integer; x : lienket): lienket; begin z ↑.khoa:= k; repeat if (k< x ↑.khoa) then x:= x ↑.l else x: = x↑.r; until k = x↑.khoa; timkiemcaynhiphan:= x; ... ta dùng để thao tác hàm chèn sau này.Như theo thuật toán để tìmkiếm mẩu tin có khóa k, cho x:= timkiemcaynhiphan (x, dau) Nếu nút trái (hay phải) liên kết trái (hay phải ) trỏ tới nút đuôi z Ta ... liên kết nút giả cách rõ nhất: Chúng ta xét ví dụ cụ thể sau: Tìm khoá I hình cách dùng thủ tục timkiemcaynhiphan Trước tiên I so sánh với khoá A gốc Vì I lớn nên tiếp tục so sánh với S, tiếp tục...
... tuổi Devon – Cacbon Ở vùng Devonsir, trầm tích Cacbon bị phủ trầm tích vụn màu đỏ thành tạo nguồn núi lửa tuổi Pecmi Phía đông vùng thành tạo Mesozoi bể London Trầm tích Devon – Cacbon bị biến ... granitoit sinh thiếc có nguồn gốc từ tái nóng chảy đá vỏ vốn trải qua chu kì trầm tích nên giàu cacbon Chính cacbon kết hợp với oxy làm cho độ fuga oxy dung thể magma giảm thấp Theo Lehmann (1982) Pollard ... skarn thành tạo theo tiếp xúc granitoit với đá vôi bị phức tạp hóa đứt gãy phá hủy tạo thành lớp đá cacbonat mái Phần lớn skarn nghèo quặng Tuy nhiên nơi lộ vòm nhỏ khối xâm nhập quặng surful có cassiterit...
... tuổi Devon – Cacbon Ở vùng Devonsir, trầm tích Cacbon bị phủ trầm tích vụn màu đỏ thành tạo nguồn núi lửa tuổi Pecmi Phía đông vùng thành tạo Mesozoi bể London Trầm tích Devon – Cacbon bị biến ... granitoit sinh thiếc có nguồn gốc từ tái nóng chảy đá vỏ vốn trải qua chu kì trầm tích nên giàu cacbon Chính cacbon kết hợp với oxy làm cho độ fuga oxy dung thể magma giảm thấp Theo Lehmann (1982) Pollard ... skarn thành tạo theo tiếp xúc granitoit với đá vôi bị phức tạp hóa đứt gãy phá hủy tạo thành lớp đá cacbonat mái Phần lớn skarn nghèo quặng Tuy nhiên nơi lộ vòm nhỏ khối xâm nhập quặng surful có cassiterit...
... z ↑.khoa:= k; repeat if (k< x ↑.khoa)then x:= x ↑.l else x: = x↑.r; untilk = x↑.khoa; timkiemcaynhiphan:= x; end; end; Trong hàm ta quy ước: liên kết bên phải nút dau trỏ tới nút gốc ... dau ta dùng để thao tác hàm chèn sau Như theo thuật toán để tìmkiếm mẩu tin có khóa k, cho x:= timkiemcaynhiphan (x, dau) Nếu nút trái (hay phải) liên kết trái (hay phải ) trỏ tới nút đuôiz Ta ... kết nút giả cách rõ nhất: Chúng ta xét ví dụ cụ thể sau: Tìm khoá I hìnhtrên cách dùng thủ tục timkiemcaynhiphan Trước tiên I so sánh với khoá A gốc Vì I lớn nên tiếp tục so sánh với S, tiếp tục...
... = 393 Cha(Sibiu) = Arad h’(Timisoara) = 329 g(Timisoara) = g(Arad)+cost(Arad, Timisoara) = 0+118= 118 f’(Timisoara) = g(Timisoara)+ h’(Timisoara) = 118+329 = 447 Cha(Timisoara) = Arad h’(Zerind) ... 75+374 = 449 Cha(Zerind) = Arad Do nút Sibiu, Timisoara, Zerind OPEN CLOSE nên ta bổ sung nút vào OPEN OPEN = {(Sibiu,g= 140,h’= 253,f’= 393,Cha= Arad) (Timisoara,g= 118,h’= 329,f’= 447,Cha= Arad) ... khỏi OPEN đưa vào CLOSE OPEN = {} CLOSE = {(Arad,g= 0,h’= 0,f’= 0)} Từ Arad đến thành phố Sibiu, Timisoara Zerind Ta tính giá trị f’, g h’ thành phố Do nút tạo chưa có nút cha nên ban đầu nút cha...
... Procedure inkq(j: byte); Begin if Truoc[j] then inkq(truoc[j]); write(j:4); End; Procedure Timkiem; Begin g[i0]:=0; truoc[i0]:=0; d:=1; c:=1; Q[c]:=i0; While dg[m]+cp[m,n] then begin g[l]:= g[m]+cp[m,n]; truoc[l]:=m; end; end; End; Begin Khoitao; Timkiem; End; 66 10.4 Tìmkiếm leo đồi Trong chương trình cài đặt này, quy ước đỉnh xét đỉnh u, đỉnh ... (i,j,d) từ S} begin with S[Top] begin i:= dau; j:= cuoi; d:= kc; 68 end; dec(Top); end; Procedure TimKiem(i: byte; Var j: byte; var d: word); { Tìm cung (i,j) có c[i,j] lớn nhất, có d = c[i,j] đấnh...
... tuổi Devon – Cacbon Ở vùng Devonsir, trầm tích Cacbon bị phủ trầm tích vụn màu đỏ thành tạo nguồn núi lửa tuổi Pecmi Phía đông vùng thành tạo Mesozoi bể London Trầm tích Devon – Cacbon bị biến ... granitoit sinh thiếc có nguồn gốc từ tái nóng chảy đá vỏ vốn trải qua chu kì trầm tích nên giàu cacbon Chính cacbon kết hợp với oxy làm cho độ fuga oxy dung thể magma giảm thấp Theo Lehmann (1982) Pollard ... skarn thành tạo theo tiếp xúc granitoit với đá vôi bị phức tạp hóa đứt gãy phá hủy tạo thành lớp đá cacbonat mái Phần lớn skarn nghèo quặng Tuy nhiên nơi lộ vòm nhỏ khối xâm nhập quặng surful có cassiterit...