procedure hapus_awal_1pointer; [ ini Versi Bapaknya ]
var bantu : data; { Menurut Logika ini Sudah Benar Tapi kalau d run error }
begin { Apa Ada yang Kurang ya ??? }
t := awal; { Kawan Kalau ada yang kurang tolong Kasih tau Ya ! }
bantu := t;
t := t^berikut;
bantu^.berikut := nil;
dispose(bantu);
end;
procedure hapus_awal_1pointer; [ Versi Akiratoya17 ]
var bantu : simpul; { Sedangkan Punya Saya Dirun Baik2 saja dan sesuai permintaan }
begin
bantu := awal;
awal := bantu^.berikut;
dispose(bantu);
end;
procedure hapus_akhir;
var bantu : data atau simpul; { hanya salah satu yg dipakai }
begin
hapus := akhir;
while ( t^berikut<>nil ) do
begin
bantu := t;
t:=t^.berikut;
end;
akhir := bantu;
akhir^.berikut:=nil;
t:=awal;
dispose(hapus);
end; { ini juga error } wew ...
tolong di koreksi kawan
