Senin, 25 / 02 / 08

Algoritma djikstra (Mencari jarak terpendek)

Sub djikstra(x, y, n)

If P(x, y) < n Then Exit Sub

P(x, y) = n

djikstra x - 1, y, n + 1

djikstra x + 1, y, n + 1

djikstra y - 1, x, n + 1

djikstra y + 1, x, n + 1

Keterangan :

Algoritma ini digunakan untuk membuat game dengan VB