Minggu, 19 April 2015
program
SingleLinkedList;
uses crt;
type simpul = ^data;
data = record
nama : string[25];
kait : simpul;
end;
var awal,akhir,bantu :
simpul;
ya : char;
begin
clrscr;
awal := nil;
ya := 'y';
while ya in ['y','Y'] do
begin
writeln('--------------------------------------------------');
writeln(' MENU MAKANAN RESTORAN ILKOM ');
writeln('--------------------------------------------------');
writeln('1. Ayam Kentucky');
writeln('2. Nasi Goreng');
writeln('3. Udang Asam Manis');
writeln('4. Kepiting Saos Tiram');
writeln('5. Fu Yung Hai ');
writeln('6. Spagheti');
writeln('==================================================');
new (bantu);
write ('Masukkan Nama Makanan Yang Dipesan:
');
readln (bantu^.nama);
write ('Tambah Pesanan lagi [Y/N]: ?');
readln (ya);
writeln;
if awal = nil then
begin
bantu^.kait := nil;
awal := bantu;
akhir := bantu;
end
else
begin
akhir^.kait := bantu;
bantu^.kait := nil;
akhir := bantu;
end;
end;
bantu := awal;
writeln (bantu^.nama);
while bantu^.kait <> nil do
begin
bantu := bantu^.kait;
writeln (bantu^.nama);
end;
readln;
end.
OUTPUT :
Subscribe to:
Posting Komentar (Atom)
0 komentar:
Posting Komentar