Menghitung Luas Keliling Persegi Panjang Pascal

2. Rumus Luas dan Keliling Persegi Panjang

Luas = Panjang × Lebar

Keliling = 2 × (Panjang + Lebar)

3. Program Pascal Menghitung Luas Keliling Persegi Panjang

program LuasKelilingPersegiPanjang;
uses crt;

var
  panjang, lebar, luas, keliling: integer;

begin
  clrscr;
  writeln('Program Menghitung Luas dan Keliling Persegi Panjang');
  write('Masukkan panjang: '); readln(panjang);
  write('Masukkan lebar: '); readln(lebar);

  luas := panjang * lebar;
  keliling := 2 * (panjang + lebar);

  writeln('Luas Persegi Panjang: ', luas);
  writeln('Keliling Persegi Panjang: ', keliling);

  readln;
end.
  

4. Penjelasan Program

• uses crt; digunakan untuk membersihkan layar dan mempercantik output.
• Variabel panjang, lebar, luas, dan keliling bertipe integer.
• User memasukkan nilai panjang dan lebar.
• Luas dihitung dengan luas := panjang * lebar;.
• Keliling dihitung dengan keliling := 2 * (panjang + lebar);.
• Hasil ditampilkan ke layar.

5. Contoh Output Program

Program Menghitung Luas dan Keliling Persegi Panjang
Masukkan panjang: 10
Masukkan lebar: 5
Luas Persegi Panjang: 50
Keliling Persegi Panjang: 30
  

6. Kesimpulan

Dengan program sederhana ini, kita bisa memahami konsep input, proses, dan output pada bahasa Pascal. Menggunakan menghitung luas keliling persegi panjang Pascal sebagai studi kasus, pemula dapat melatih logika pemrograman dengan lebih mudah.

7. FAQ

Q: Mengapa menggunakan Pascal?
A: Pascal sering digunakan untuk pembelajaran karena sintaksnya sederhana dan mudah dipahami pemula.

Q: Apakah bisa menggunakan tipe data real?
A: Bisa, jika nilai panjang atau lebar berupa bilangan pecahan.

Q: Bagaimana jika ingin menambahkan validasi input?
A: Anda bisa menggunakan kondisi if untuk memeriksa apakah input lebih dari nol.