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

Latihan dikelas tentang BAB 10 ( Record atau rekaman )

1.      Tabel pembinaan tahsin Al-qur’an Dosen

no	Hari	jam	Ruangan Kampus 1	Ruangan Kampus 2	Ruangan Kampus 3	Bimbingan nama dosen
1	Senin	12.30-14.00	R. Iranian Corner	R. skripsi PBI	R. 310 B	Nur kholis,M.Ag
2	Selasa	09.00-11.30	R. Iranian Corner	R. skripsi PBI	R. 310 B	AMM
3	Rabu	09.00-11.30	R. Iranian Corner	R. skripsi PBI	R. 310 B	AMM
4	Kamis	12.30-14.00	R. Iranian Corner	R. skripsi PBI	R. 310 B	Nur kholis,M.Ag
5	sabtu	09.00-11.30	R. Iranian Corner	R. skripsi PBI	R. 310 B	AMM

3.      Class

a.       Implementasi jadwal

Class Jadwal{

            Public :

                        void hari();

                        int tanggal();

                        int jam();

            private :

                        char hari2();

                        int x();

                        int y();

                        int z();

                        int a();

                        int b();

                        int c();

};

b.      Implementasi Tempat

Class Tempat{

            Public :

                        void kampus1();

                        void kampus2();

                        void kampus3();

            private :

                        char ruangan1[100];

                        char ruangan2[100];

                        char ruangan3[100];

};

c.       Implementasi Dosen

Class Dosen{

            Public :

                        void dosen_kampus1();

                        void dosen_kampus2();

                        void dosen_kampus3();

                                    private :

                                                char nama_dosen1[50];

                                                char nama_dosen2[50];

                                                char nama_dosen3[50];

                                                int NIP_dosen;

};

d.      Implementasi peserta

Class PesertaP{

            Public :

                        void nama_peserta();

                        void nip_peserta();

            private :

                        int NIP;

                        char nama[100];

};

SisTEmM PerSamaAAn LiinieEaaRR

-->  Algoritma Sistem Persamaan Linier

{Algoritma Untuk menyelesaikan Sistem persamaan Linier}

Deklarasi       

n,tamping        : interger

A[0…9][0…9]            : array 2dimensi interger

B[0…9]]          : array 1 dimensi interger

X[0…9]           : array 1 dimensi interger

Deskripsi

read ( n )

for i <-- 0 to n do

    for j <-- 0 to n do

           read (A[i][j])

end for

end for

for i <-- 0 to n do

read (B[i])

end for

for i <-- 1 to n do

      for j <-- 0 to n do

            A[i][j]=A[i][j]+((-1)*A[i-1][j])

            B[i] = b[i] + ((-1)*b[0])

end for

end for

for i <-- n-1 down to 0 do

   x[i] <-- b[i]

end for

forn i <-- 0 to n do

A[0][i] = A[0][i]*b[i]

end for

tamping <-- 0

for i <-- 0 to n do

tamping = tamping+(A[0][i]*x[i])

end for

x[0]=(b[0]-tampung) div A[0][0]

for i <-- 0 to n do

end for

write ( x[i] )

array 2 dimensi

--> Algoritma Mengurutkan data array 2 dimensi dengan insertion sort

{Algoritma untuk mengurutkn data dengan menggunakan metode insertion sort}

Deklarasi

i,j,kolom,baris              : interger

A[0…9][0…9]            : array 2dimensi

Deskripsi

read ( kolom, baris )

for i <-- 0 to baris do

     for j <-- 0 to kolom do

write ( A[i][j] )

end for

end for

min <--  A[0][0]

temp baris <-- 0

temp kolom <-- 0

for i <--  temp baris to baris do

    for j <-- temp kolom to kolom do

         if ( min >= A[i][j] )

min <-- A[i][j]

end if

end for

end for

temp baris <-- i

for i <-- 0 to baris do

     for j <-- 0 to kolom do

          cek min <--  A [temp baris, temp kolom]

temp kolom <--  A[i][j],A[temp baris,temp kolom]

end for

end for

TraNsPosSeE

<--  Penjelasan

Transpose merupakan cara yang dilakukan untuk mengubah sederetan matriks yang disusun banyak baris menjadi susunan kolom.misalnya :

Input :

                  1    2    3

                                                

                  4    5    6

Outputnya :

                    

                         1          4

                       

                         2         5

                         3         6

-->    Algoritma Transpose

{Algoritma menggubah kolom menjadi baris dan baris menjadi kolom(transpose)}

Deklarasi

Kolom, baris, i, j          : interger

A[0…9], B[0…9]       : interger

Deskripsi

read ( kolom,baris )

for i  <--  0 to baris do

  for j <-- 0 to kolom do

      read(A[i][j])

end for

end for

for i <-- 0 to baris do

   for j <-- 0 to kolom do

         B[i][j] <-- A[i][j]

end for

end for

for i <-- 0 to baris do

     for j <-- 0 to kolom do

           write(A[i][j])

end for

end for