Thuật toán được mô ta như sau:

Mỗi đỉnh i sẽ được gán 2 nhãn:
Nhãn thứ nhất là Check[i]. Check[i]=0 nếu D[i] còn có thể tối ưu được.
Check[i]=1 nếu D[i] không thể tối ưu được nữa.
Nhãn thứ hai là giá trị D[i].

Bài toán cài đặt bằng pascal
Procedure DD
Begin
  Với mọi k, D[k]=VC, Check[k]=0, Trace[k]=k;
  D[s]=0;
  dung=false
  repeat
    tìm m có Check[m]=0 và D[m] nhỏ nhất
    Chech[m]=1;
    Với các đỉnh v kề với m có Check[m]=0,
            nếu D[v] < D[m] + a[m,v] thì
      gán lại D[v]=D[m] + a[m,v];
      trace[v]=m;
  until dung;
end

Trên đây chỉ là thuật toán, nếu các bạn hiểu và áp dụng thì ok, còn nếu chưa nắm rõ thì cứ liên lạc dangvinh, dangvinh sẽ gửi cách giải thích và ví dụ minh họa trực quan các bạn sẽ kịp thời nắm bắt liền.

Chúc các bạn ứng dụng tốt thuật toán này !