LISTING POINT
LISTING PROGRAM
1.
Uses crt; digunakan untuk memanipulasi layer teks. Type digunakan untuk
menentukan type data yang akan digunakan atau dideklarasikan. Penunjuk simpul=
^simpul; memiliki arti bahwa penunjuk simpul menggunakan variabel bertipe
pointer. Pointer merupakan variabel khusus yang berisi suatu address di lokasi
lain di dalam memory. Simpul=record berarti data simpul menggunakan tipe data
record. Record merupakan koleksi satuan data yang heterogen, yakni terdiri dari
berbagai type. Kode merupakan data yang akan diinput dengan tipe data yang digunakan adalah string
yaitu jenis data yang memiliki nilai taat-urutan dari karakter yang terletak di
antara tanda petik tanggal. Nilai data string akan menempati memori sebesar banyaknya
karakter stringnya dan banyaknya karakter yang dapat kita masukkan adalah 5
karakter. Nama merupakan data yang akan diinput
dengan tipe data yang digunakan adalah string yaitu jenis data yang
memiliki nilai taat-urutan dari karakter yang terletak di antara tanda petik
tanggal. Nilai data string akan menempati memori sebesar banyaknya karakter
stringnya dan banyaknya karakter yang dapat kita masukkan adalah 15 karakter.
Banyak merupakan data yang akan diinput dengan tipe data yang digunakan adalah
word yaitu jenis data yang berbentuk kalimat atau kata-kata. Harga merupakan
data yang akan diinput dengan tipe data yang digunakan adalah string yaitu
jenis data yang memiliki nilai taat-urutan dari karakter yang terletak di
antara tanda petik tanggal. Nilai data string akan menempati memori sebesar
banyaknya karakter stringnya dan banyaknya karakter yang dapat kita masukkan
adalah 15 karakter. Data berikut merupakan data penunjuk simpul. End digunakan
untuk mengakhiri statement.
2.
Var digunakan untuk mengubah nilai suatu argument string menjadi nilai
numeric. Databrg merupakan data yang akan diinput. Simpulawal merupakan data
yang akan diinput. Simpul akhir merupakan data yang akan diinput dengan
menggunakan data penunjuk simpul. Lagi merupakan data yang akan diinput dengan
menggunakan tipe data char.
3.
Begin digunakan untuk mengawali suatu program dan clrscr; digunakan untuk
membersihkan layar. Mark merupakan prosedur standar yang digunakan untuk member
tanda saja dan data yang digunakan adalah databrg. Simpulawal merupakan data
yang menggunakan data databrg. Simpulakhir merupakan data yang menggunakan data
databrg.
4.
Lagi:=’y’ while upcase(lagi)=’y’ do memiliki arti ketika kita menekan
tombol y maka computer akan meneruskan kembali menginput data. Begin digunakan
untuk mengawali suatu program dan clrscr; digunakan untuk membersihkan layar.
New(databrg); memiliki arti bahwa program akan membuat data inputan baru.
Write(‘kode barang:’); readln(databrg^.kode); memiliki arti Write menampilkan
hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang
sama dan (‘kode barang:’); merupakan data yang akan dicetak pada layar.
Readln(databrg^.kode): memiliki arti readln digunakan untuk memasukan data
perbaris, artinya setelah ditekan tombol enter dan (databrg^.kode); merupakan
pointer databrg dengan data kode yang kita input. Write(‘nama barang:’);
readln(databrg^.nama); memiliki arti Write menampilkan hasil tanpa ganti baris
dan tampilan berikutnya akan disambung dalam baris yang sama dan (‘nama
barang:’); merupakan data yang akan dicetak pada layar. Readln(databrg^.nama):
memiliki arti readln digunakan untuk memasukan data perbaris, artinya setelah
ditekan tombol enter dan (databrg^.nama); merupakan pointer databrg dengan data
nama yang kita input. Write(‘kode banyak:’); readln(databrg^.banyak); memiliki
arti Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan
disambung dalam baris yang sama dan (‘banyak barang:’); merupakan data yang
akan dicetak pada layar. Readln(databrg^.banyak): memiliki arti readln
digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter
dan (databrg^.banyak); merupakan pointer databrg dengan data banyak yang kita
input. Write(‘harga barang:’); readln(databrg^.harga); memiliki arti Write
menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung
dalam baris yang sama dan (‘harga barang:’); merupakan data yang akan dicetak
pada layar. Readln(databrg^.harga): memiliki arti readln digunakan untuk
memasukan data perbaris, artinya setelah ditekan tombol enter dan
(databrg^.harga); merupakan pointer databrg dengan data harga yang kita input.
Simpulawal^. Berikut=databrg; memiliki arti bahwa pointer simpulawal dan
berikut sama memiliki databrg. Databrg^.berikut:=nil; memiliki arti bahwa
pointer databrg dan berikut memiliki data nil yaitu reserved word dalam pascal,
dimana pointer yang bernilai NIC dianggap tidak menunjuk alamat memori manapun.
Simpulakhir :=databrg; memiliki arti bahwa simpulakhir memiliki data databrg.
write('Ada Lagi [Y/T] ? '); readln(lagi); writeln; memiliki arti bahwa program
akan menanyakan ada lagi data yang ingin diinput. Lalu kita akan memasukan
pilihan yes atau no. End digunakan untuk mengakhiri statement.
5.
writeln('Kode Nama Barang Banyaknya Harga'); memiliki arti bahwa program
akan mencetak kode nama barang banyak harga pada layar. Writeln digunakan untuk
menampilkan tampilan perbaris, akan diganti baris untuk tampil berikutnya.
Databrg :=simpulawal; memiliki arti databrg sama dengan data simpulawal.
6.
Begin digunakan untuk mengawali suatu statement. Dengan pointer barang
lalu program akan mencetak kode dengan spasi 5 ,nama dengan spasi 15, banyak
dengan spasi 11 dan harga dengan spasi 12. Databrg sama dengan data berikut.
End digunakan untuk mengakhiri statement. Readln digunakan untuk memasukan data
perbaris, artinya setelah ditekan tombol enter. End. Digunakan untuk mengakhiri
suatu statement. End. Digunakan untuk mengakhiri suatu program.
OUTPUT PROGRAM
