LATIHAN PASCAL 4

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

LATIHAN PASCAL 3

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

LATIHAN PASCAL 2

LISTING POINT

LISTING PROGRAM

1.      

Uses crt; digunakan untuk memanipulasi layer teks. Var digunakan untuk mengubah nilai suatu argument string menjadi nilai numeric. r, l, t, luas:real; merupakan data yang akan diinput. Begin digunakan untuk mengawali suatu program dan clrscr; digunakan untuk membersihkan layar.

2.      

Gotoxy(10,2); writeln(‘pilihan’); memiliki arti bahwa gotoxy(10,2) merupakan suatu statemen yang digunakan untuk pergi menuju titik koordinat x dan y, titik koordinat x dan y adalah (10,2). Writeln(‘pilihan’) memiliki arti bahwa writeln digunakan untuk menampilkan tampilan perbaris, akan diganti baris untuk tampil berikutnya dan (‘pilihan’) merupakan data yang akan di cetak pada layar.  Gotoxy(10,4); writeln(‘1.menghitung luas lingkaran’); memiliki arti bahwa gotoxy(10,4) merupakan suatu statemen yang digunakan untuk pergi menuju titik koordinat x dan y, titik koordinat x dan y adalah (10,4). Writeln(‘1.menghitung luas lingkaran’) memiliki arti bahwa writeln digunakan untuk menampilkan tampilan perbaris, akan diganti baris untuk tampil berikutnya dan (‘1.menghitung luas lingkaran’) merupakan data yang akan di cetak pada layar. Gotoxy(10,5); writeln(‘2.menghitung luas segitiga’); memiliki arti bahwa gotoxy(10,5) merupakan suatu statemen yang digunakan untuk pergi menuju titik koordinat x dan y, titik koordinat x dan y adalah (10,5). Writeln(‘2.menghitung luas segitiga’) memiliki arti bahwa writeln digunakan untuk menampilkan tampilan perbaris, akan diganti baris untuk tampil berikutnya dan (‘2.menghitung luas segitiga’) merupakan data yang akan di cetak pada layar. Gotoxy(10,6); writeln(‘3.menghitung luas bujur sangkar’); memiliki arti bahwa gotoxy(10,6) merupakan suatu statemen yang digunakan untuk pergi menuju titik koordinat x dan y, titik koordinat x dan y adalah (10,6). Writeln(‘3.menghitung luas bujur sangkar’) memiliki arti bahwa writeln digunakan untuk menampilkan tampilan perbaris, akan diganti baris untuk tampil berikutnya dan (‘3.menghitung luas bujur sangkar’) merupakan data yang akan di cetak pada layar. Gotoxy(10,10); writeln(‘0.keluar’); memiliki arti bahwa gotoxy(10,10) merupakan suatu statemen yang digunakan untuk pergi menuju titik koordinat x dan y, titik koordinat x dan y adalah (10,10). Writeln(‘0.keluar’) memiliki arti bahwa writeln digunakan untuk menampilkan tampilan perbaris, akan diganti baris untuk tampil berikutnya dan (‘0.keluar’) merupakan data yang akan di cetak pada layar.

3.      

Pilihan :=9; memiliki arti bahwa variable pilihan akan berada di titik koordinat 9. While(pilihan<0)or(pilihan>3)do memiliki arti bahwa ketika kita memilih pilihan 0 atau pilihan 1 sampai 3 maka computer akan memasuki suatu statement. Begin digunakan untuk mengawali suatu statement. Gotoxy(10,20):write(‘pilihan nomor (1-4):’);readln(pilihan); memiliki arti bahwa gotoxy(10,20) merupakan suatu statemen yang digunakan untuk pergi menuju titik koordinat x dan y, titik koordinat x dan y adalah (10,20). Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama dan (‘pilihan nomor (1-4):’) merupakan data yang akan dicetak pada layar. Readln(pilihan) memiliki arti readln digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter dan (pilihan) merupakan nomor urut pilihan yang akan kita input. End digunakan untuk mengakhiri suatu statement.

4.

Clrscr; digunakan untuk membersihkan layar. If pilihan=1 then memiliki arti bahwa jika kita memilih menu no 1 maka kita akan memasuki sebuah statement. Begin digunakan untuk mengawali suatu statement. Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama dan (‘jari-jari lingkaran:’) merupakan data yang akan dicetak pada layar. Readln(r) memiliki arti readln digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter dan (r) merupakan nilai jari-jari  yang akan kita input. Luas :=pi*r*r; merupakan rumus yang digunakan untuk menghitung luas lingkaran. Writeln(‘luas lingkaran =’,luas:9:2); memiliki arti writeln digunakan untuk menampilkan tampilan perbaris, akan diganti baris untuk tampil berikutnya dan luas lingkaran akan di cetak di titik koordinat 9:2. Readln digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter. End digunakan untuk mengakhiri suatu statement.

5.

If pilihan=2 then memiliki arti bahwa jika kita memilih menu no 2 maka kita akan memasuki sebuah statement. Begin digunakan untuk mengawali suatu statement. Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama dan (‘panjang sisi alas:’) merupakan data yang akan dicetak pada layar. Readln(p) memiliki arti readln digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter dan (p) merupakan nilai panjang sisi alas yang akan kita input. Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama dan (‘tinggi segitiga:’) merupakan data yang akan dicetak pada layar. Readln(t) memiliki arti readln digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter dan (t) merupakan nilai tinggi segitiga yang akan kita input. Luas :=0.5*p*t; merupakan rumus yang digunakan untuk menghitung luas segitiga. Writeln(‘luas segitiga =’,luas:9:2); memiliki arti writeln digunakan untuk menampilkan tampilan perbaris, akan diganti baris untuk tampil berikutnya dan luas segitiga akan di cetak di titik koordinat 9:2. Readln digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter. End digunakan untuk mengakhiri suatu statement.

6.

If pilihan=3 then memiliki arti bahwa jika kita memilih menu no 3 maka kita akan memasuki sebuah statement. Begin digunakan untuk mengawali suatu statement. Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama dan (‘panjang bujur sangkar:’) merupakan data yang akan dicetak pada layar. Readln(p) memiliki arti readln digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter dan (p) merupakan nilai panjang bujur sangkar yang akan kita input. Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama dan (‘lebar bujur sangkar:’) merupakan data yang akan dicetak pada layar. Readln(l) memiliki arti readln digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter dan (l) merupakan nilai lebar bujur sangkar yang akan kita input. Luas :=p*l; merupakan rumus yang digunakan untuk menghitung luas luas bujur sangkar. Writeln(‘luas bujur sangkar =’,luas:9:2); memiliki arti writeln digunakan untuk menampilkan tampilan perbaris, akan diganti baris untuk tampil berikutnya dan luas bujur sangkar akan di cetak di titik koordinat 9:2. Readln digunakan untuk memasukan data perbaris, artinya setelah ditekan tombol enter. End digunakan untuk mengakhiri suatu statement.

OUTPUT PROGRAM