Contoh Luas Persegi dalam bahasa Pascal

Penjelasan Program:

1. program LuasPersegi;: Mendefinisikan nama program.
2. var: Mendeklarasikan variabel.
   • sisi: integer;: Variabel sisi akan menyimpan panjang sisi persegi, bertipe integer (bilangan bulat).
   • luas: integer;: Variabel luas akan menyimpan hasil perhitungan luas, bertipe integer.
3. begin: Menandai awal dari blok program utama.
4. writeln('Program Menghitung Luas Persegi'); dan writeln('------------------------------');: Menampilkan judul program di layar.
5. write('Masukkan panjang sisi persegi: ');: Menampilkan pesan yang meminta pengguna untuk memasukkan panjang sisi. write tidak menambahkan baris baru setelah pesannya.
6. readln(sisi);: Membaca input dari pengguna dan menyimpannya ke dalam variabel sisi.
7. luas := sisi * sisi;: Melakukan perhitungan luas persegi (sisi dikalikan sisi) dan menyimpan hasilnya ke dalam variabel luas.
8. writeln('Luas persegi adalah: ', luas);: Menampilkan hasil perhitungan luas ke layar.
9. readln;: Ini penting untuk program konsol. Fungsinya adalah menahan layar output agar tidak langsung tertutup setelah program selesai berjalan, sehingga pengguna bisa melihat hasilnya. Tanpa ini, program akan langsung keluar setelah menampilkan luas.
10. end.: Menandai akhir dari blok program utama. Tanda titik (.) di akhir sangat penting.