LISTING POINT
LISTING PROGRAM
1.
Uses crt; digunakan untuk memanipulasi layer teks. Var digunakan untuk
mengubah nilai suatu argument string menjadi nilai numeric. I, min, max, n
merupakan data yang akan diinput dengan tipe data yang digunakan adalah integer
yaitu jenis data yang terdiri atas integer positif, integer negative, dan nol
merupakan nilai bilangan bulat. Ket 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 10 karakter. Rata merupakan
data yang akan kita input dengan tipe data yang digunakan adalah real yaitu
tipe data yang selalu menggunakan titik decimal. Total merupakan data yang akan
diinput dengan tipe data yang digunakan adalah integer yaitu jenis data yang
terdiri atas integer positif, integer negative, dan nol merupakan nilai
bilangan bulat.
2.
Begin digunakan untuk mengawali suatu program dan clrscr; digunakan untuk
membersihkan layar. Write(‘jumlah data inputan (min 10) : ‘); readln(n); Write
menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung
dalam baris yang sama dan (‘jumlah data inputan (min 10) :’) merupakan data
yang akan dicetak pada layar. Readln(n) memiliki arti readln digunakan untuk
memasukan data perbaris, artinya setelah ditekan tombol enter dan (n) merupakan
nilai yang akan kita input. Writeln; digunakan untuk menampilkan tampilan
perbaris, akan diganti baris untuk tampil berikutnya. Total :=0; min:=999;
max:=0; memiliki arti bahwa nilai minimal yang dapat kita input adalah 999 dan
nilai maksimal yang dapat kita input adalah 0. For i:=1 to n do memiliki arti
bahwa untuk nilai I adalah data ke 1 dan ketika kita tekan tombol enter maka
nilai I menjadi data ke 2 begitupun seterusnya sampai data ke 10.
3.
Begin digunakan untuk mengawali suatu statement . Write menampilkan hasil
tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama
dan (‘nilai ke-’,I,’=’) merupakan data yang akan dicetak pada layar adalah
nilai ke I atau sesuai urutan data. Readln(r) memiliki arti readln digunakan
untuk memasukan data perbaris, artinya setelah ditekan tombol enter dan (i)
merupakan nilai dari urutan data yang
akan kita input. Total := total+nilai(i); merupakan rumus untuk menghitung
nilai total dari suatu data. If(nilai[i] < min) then min := nilai[i];
memiliki arti jika hasil dari perhitungan nilai I kurang dari nilai min maka
nilai I bernilai minimal. If(nilai[i] >max) then max := nilai[i]; memiliki
arti jika hasil dari perhitungan nilai I lebih dari nilai max maka nilai I
bernilai max. if nilai[i] mod 2=0 then writeln(‘genap’); memiliki arti jika
nilai I habis dibagi 2 maka nilai I bernilai genap. if nilai[i] mod 2=1 then
writeln(‘geanjil’); memiliki arti jika nilai I sisa 1 setelah dibagi 2 maka
nilai I bernilai ganjil. End; berfungsi mengakhiri suatu statement.
4.
Begin digunakan untuk mengawali suatu statement. Rata:= total/n merupakan
rumus yang digunakaan untuk menghitung rata-rata. End; digunakan untuk
mengakhiri suatu statement. Ket :=’gagal’; if rata >60 then ket :=’lulus’;
memiliki arti bahwa keterangan gagal akan muncul jika nilai rata-rata lebih
besar dari 60, dan sebaliknya keterangan lulus akan muncul ketika nilai
rata-rata lebih kecil dari 60. . Writeln; digunakan untuk menampilkan tampilan
perbaris, akan diganti baris untuk tampil berikutnya. (‘total=’, total:3);
berfungsi menampilkan nilai total dari suatu perhitungan data. (‘rata-rata=’,
rata:5:3); berfungsi menampilkan nilai rata-rata dari suatu perhitungan.
(‘ket=’,ket); berfungsi menampilkan keterangan dari hasil perhitungan rata-rata
nilai tersebut adalah lulus atau gagal. (‘nilai max=’, max); berfungsi
menampilkan nilai maksimum dari suatu data. (‘nilai min=’,min); berfungsi
menampilkan nilain minimum dari suatu data. . Readln digunakan untuk memasukan
data perbaris, artinya setelah ditekan tombol enter. End. Digunakan untuk
mengakhiri suatu program.
OUTPUT
PROGRAM