JagoVB
20th November 2011, 12:36 AM
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???
</div>
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???
</div>