Coding LA Pascal (18/05/09)

Ini dia coding LA pascal yang lumayan panjang dan memakan waktu buat diketik.

uses crt;
type
pointer = ^cell;
cell = record
value : integer;
next : pointer;
end;

last, belakang, q, p : pointer;
angka, nomor : integer;
jawab : char;
found : boolean;

procedure prinlist;
begin
last:=belakang;
while last <> nil do
begin
writeln (last^.value);
last:=last^.next;
end;
end;

procedure look;
begin
writeln ('Masukkan Angka Yang Akan Dicari : ');
readln (angka);
last:=belakang;
found:=false;
while (last<>nil) and (found<>true) do
begin
if last^.value=angka then
begin
found:=true;
writeln ('Angka Ditemukan ');
writeln (last^.value);
found:=true;
end
else
last:=last^.next;
end;
end;

procedure delete;
begin
writeln ('Angka Lain Dihapus?');
readln (angka);
last:=belakang;
found:=false;
while (last<>nil) and (found<>true) do
begin
last:=last^.next
if q^.value=angka then
begin
dispose (q);
found:=true;
end
else
if last^.value=angka then
begin
writeln (last^.value,' ditemukan dan dihapus');
q^.next:=last^.next;
dispose (last);
found:=true;
end;
end;
end;

begin
clrscr;
belakang:=nil;
nomor:=1;
writeln ('Nomor ',nomor);
jawab:='y';
while (jawab<>'t') do
begin
writeln ('Masukkan Angka: ');
readln (angka);
new(last);
last^.value:=angka;
last^.next:=belakang;
belakang:=last;
nomor:=nomor+1;
writeln ('Nomor ',nomor);
writeln ('Terus? Y/T');
readln (jawab);
end;
printlist;
look;
delete;
printlist;
readln (jawab);
end.

ini emang agak panjang. kalo pas di-run trus nanti hasil paling akhir ada dua angka berupa '8' dan '0', abaikan saja. :). memang begitu. coba aja. karena setiap angka, outputnya beda.
makasih.