Mengurutkan data mahasiswa

1. Mengurutkan data mahasiswa

a. Ilkom (baca maju)
Alamat memori Prev Data Next
10991 11010 10994
10994 10991 Siti Nur Jazillah 11008
11008 10994 Dirman SuryaPraja 10993
10993 11008 Hasbi Nur Wahab 10999
10999 10993 Khoriyatunnisa 11010
11010 10999 Basyar Guna Wijawa 10991

b. Psikologi (baca mundur)
Alamat Memori Prev Data Next
11000 10996 Ibrahim Khalilulrahman 11001
10996 11014 Fadhilah Nur Makhsun 11000
11014 11006 Tuti Ningrum 10996
11006 10987 Kuncoro Wira Prasetya 11014
10987 11004 Sofyan Haidar 11006
11004 11001 Septiana andarwati 10987
11001 11004

Untuk Pointer psikolog menurut saya merupakan pointer yang rusak karena pada node yang pertama ditunjuk head prevnya tidak ada.

2. Kesalahan Sintax

1 if first := nil then
seharusnya tanpa titik dua
if first = nil then
2 else if first^.nilaihrf=elemen then {node pertama diganti}

Seharusnya menggunakan titik dua

else if first^.nilaihrf:=elemen then {node pertama diganti}

3 first^.nilaihrf:=elemen1;
end;
else

Seharusnya setelah end tidak menggunakan titik Koma

first^.nilaihrf:=elemen1;
end
else

Kesalahan Logika
Begin
bantu:=first^.next;
while(elemen <> bantu^.nilaihrf) and (bantu^.next <> nil) do
bantu:=bantu^.next;

pembenaran

Begin
bantu:=first;
while(elemen = bantu^.nilaihrf) and (bantu^.next <> nil) do
bantu:=bantu^.next;


3. Procedure tambahawal(var head:pointer; elemen:char);
var
baru :pointer;
begin
new(baru);
baru^.info :=elemen;
baru^.next:=head^.next;
head^.next:=baru;
end;

Related Articles by Categories