[ASK] bantu nyelesain SOAL STRUKTUR DATA pada PASCAL (ttg headed circullar...)!!!

[JagoVB]

Ada yg bisa jawab soal2 ini gaga GAN????




Quote:





SOAL PERTAMA (1). Silahkan temukan dan perbaiki 3 kesalahan sintak dan 2 kesalahan logika dari penggalan program update untuk single linked list dibawah ini.



type

pointer=^DataNilai;

DataNilai=record

nilaihrf : char;

next : pointer;

end;



var First,Last,baru: pointer;

elemen,pil :char;

procedure update(var first,last: pointer; elemen,elemen1:char);

var bantu,ganti: pointer;

begin

if first := nil then

writeln('Linked List Kosong')

else

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

begin

first^.nilaihrf=elemen1;

end;

else

Begin

Bantu:=first^.next;

While (elemen bantu^.nilaihrf) and (bantu^.next nil) do

Bantu:=bantu^.next;

if bantu nil then

begin

bantu^.next^.nilaihrf:=elemen1; end

Else

Writeln('Node Tidak ditemukan');



End;

end;





Yg kedua


Quote:





2. Buatkan sebuah procedure untuk menyisipkan data di awal pada headed circular single linked list.





Gmn GAN???