sisip_depan

Procedure Sisip_Depan (input elemen : tipe_data, I/O awal, akhir : nama_pointer)

{I.S : data yang akan disisipkan elemen, pointer penunjuk awal dan akhir sudah terdefinisi}

{F.S : Menghasilkan simpul yang disisipkan di tengah pada single linked list }

Kamus

Baru : nama_pointer 

Algoritma

            Alloc(baru)

            baru↑.info ß elemen

if (awal = nil )

            baru↑.next ß nil

            akhir ß baru

else

            baru↑.next ß awal

endif

awal ß baru

endprocedure