Kukuh Setiawan. Gambar tema oleh centauria. Diberdayakan oleh Blogger.

Senin, 02 April 2012

sisip_tengah

    0


Procedure Sisip_Tengah (Input elemen : tipe_data, I/O awal, akhir : nama_pointer)
{I.S : data yang akan disisipkan (elemen), pointer petunjuk awal dan akhir sudah terdefinisi }
{F.S : menghasilkan satu simpul yang disisipkan di tengah pada single linked list }

Kamus
Baru, bantu : nama_pointer
Ketemu : boolean
            Datasisip : tipe_data
Algoritma
If (awal = nil) then
            Alloc(baru)
            baru↑.info ß elemen
            baru↑.next ß nil
                        awal ß baru
                        akhir ß baru
else
            input(datasisip)
bantu ß awal
ketemu ß false
            when (not ketemu) and (awal ≠ nil) do
                        if (datasisip = bantu↑.info) then
                                    ketemu ß false
                        else
                                    bantu ß bantu↑.next
                        endif
endwhile


if (ketemu) then
                        alloc(baru)
                        baru↑.infoßelemen
                                    if (bantu = akhir)
                                                sisip_belakang(elemen, awal, akhir)
                                    else
                                                baru↑.next ß bantu↑.next
                                                bantu↑.next ß baru
            else
                        output(“data yang disisipkan tidak ditemukan”)
endif
endif
endprocedure

Tidak ada komentar:
Write komentar

statistics

Translate

Contact Us

Nama

Email *

Pesan *