MenGHitunGg JaraKk paDaA SebuAh GraF

Algoritma

{ Aloritma untuk menghitung jarak pada graf }

Deklarasi

i,j,angka : interger

kata [0….99 ] : karakter (aray)

ac,  bc, ab : interger

hasil1,hasil2,hasil3 : interger

Deskripsi

read ( angka )

for i <-- 0 to angka

  read(kata[i])

end for

read (ac)

read(bc)

read(ab)

jumlah <-- 0

for i <-- 0 to angka

  for j <-- 0 to angka

    if ( i <> j ) then

         write( kata[i],kata[j] )

jumla <-- jumlah+1

end if

end for

end for

write ( jumlah )

hasil1 <-- ac + bc + ab

hasil2 <-- ab + bc

hasil3 <-- ac + bc

write( hasil1, hasil2, hasil3 )

Gambar Grafnya.

keterangan :

          misalnya input simpul = 3

                                        ab =2, bc =11, ca=19, hitung jarak : 

                                        abca = ab + bc + ca

                                                   2 + 11 + 19 = 32

                                   abc = ab + bc

                                                   2 + 11 = 13

                                   acb = ac  + cb

                                                 19 + 11 = 30