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
Tidak ada komentar:
Posting Komentar