LOGIKA MENGHITUNG LUAS PERSEGI

uses crt;
var
p,l,x:integer;
begin
clrscr;

Langkah pertama membuat program Luas Persegi adalah dengan cara memanggil unit library pascal crt yang merupakan unit bawahan atau standard pascal serta statement ini berfungsi untuk menghapus layar dan interface keyboard. Berikutnya, terdapat statement untuk mendeklarasikan variable beserta tipe-tipe datanya. Seperti pada statement diatas terdapat perintah var p,l,x:integer; artinya mendeklarasikan variable yang diinginkan(p, l, x) berdasarkan tipe data bilangan bulat dan jangan pernah lupa untuk setiap akhir statement diakhiri dengan titik koma(;), kecuali untuk nama label. Lalu statement selanjutnya yaitu memulai suatu program utama. Kemudian diakhiri dengan statement clrscr; yang berarti untuk membersihkan layar dari statement program yang terdahulu.

writeln(‘Menghitung Luas Persegi’);
write(‘Masukkan Panjang :’);
readln(p);
write(‘Masukkan Lebar :’);
readln(l);
x:=p*l;
write(‘Luas = ‘, x);
readln;
end.

Pada statement diatas menjelaskan untuk mencetak tepat seperti yang terdapat didalam tanda petik(“…”), writeln(‘Menghitung Luas Persegi’); artinya mencetak tulisan yang terdapat pada tanda petik(Menghitung Luas Persegi) pada layar lalu pendah baris ke bawah.kemudian write(‘Masukkan Panjang :’); yang berarti mencetak tulisan yang terdapat pada tanda petik(Masukkan Panjang) pada layar tanpa pindah baris yang diikuti dengan statement readln(p); yaitu untuk menginput data lalu pindah baris. Begitu pula statement berikutnya, sama seperti statement sebelumya yaitu mencetak tulisan yang terdapat pada tanda petik(Masukkan Lebar) pada layar tanpa pindah baris yang diikuti dengan statement readln(l); yaitu untuk menginput data lalu pindah baris. Selanjutnya variable x memiliki nilai dari hasil p yang dikalikan dengan l. Setelah itu mencetak tulisan(Luas =) pada layar tanpa pindah baris yang diikuti dengan menginput data lalu pindah baris. Dan diakhiri dengan statement end. yang berarti perintah itu berakhir dan selalu diberi titik(.) artinya akhir dari program tersebut.