Tutorial Program Pascal Menghitung Luas dan Keliling Persegi Panjang

Persegi panjang adalah salah satu bentuk geometri yang sangat umum dan sering digunakan dalam kehidupan sehari-hari. Kita dapat menemukan persegi panjang di berbagai bidang, seperti dalam konstruksi bangunan, pembuatan mebel, atau dalam kehidupan sehari-hari seperti membentangkan kain atau memotong kayu. Oleh karena itu, memahami cara menghitung luas dan keliling persegi panjang sangat penting dan berguna.

Dalam Pascal, kita dapat membuat program sederhana untuk menghitung luas dan keliling persegi panjang dengan mudah.

Pembahasan Terkait Pascal Lainya:

• Cara Menghitung Luas Segitiga Menggunakan Pascal
• Contoh Program Pascal Penjumlahan Sederhana
• Contoh Program Pengurangan Free Pascal Untuk Pemula

Berikut adalah contoh kode program Pascal yang dapat digunakan untuk menghitung luas dan keliling persegi panjang:

Contoh Kode Program Pascal Menghitung Luas dan Keliling Persegi Panjang

Rumus untuk menghitung luas dan keliling persegi panjang adalah sebagai berikut:

1. Luas persegi panjang = panjang x lebar Rumus tersebut menghitung luas atau bidang datar yang tertutup pada persegi panjang.
2. Keliling persegi panjang = 2 x (panjang + lebar) Rumus tersebut menghitung jumlah keseluruhan panjang sisi pada persegi panjang.

program hitung_luas_dan_keliling_pp;

uses crt;
var
   p, l, luas, keliling: real;

begin
   write('Masukkan panjang: ');
   readln(p);
   write('Masukkan lebar: ');
   readln(l);

   luas := p * l;
   keliling := 2 * (p + l);

   writeln('Luas persegi panjang adalah: ', luas:0:2);
   writeln('Keliling persegi panjang adalah: ', keliling:0:2);

   readln;

readkey;
end.

Baris kode di atas merupakan program sederhana dengan menggunakan bahasa Pascal yang digunakan untuk menghitung luas dan keliling persegi panjang. Berikut ini adalah penjelasan mengenai kode tersebut:

1. program hitung_luas_dan_keliling_pp; Baris ini merupakan deklarasi awal dari program yang diberi nama hitung_luas_dan_keliling_pp. Deklarasi ini memberi tahu compiler bahwa kita akan membuat sebuah program dan menamainya hitung_luas_dan_keliling_pp.
2. uses crt; Baris ini digunakan untuk mengimport library crt. Library ini menyediakan fungsi-fungsi yang berguna untuk mengontrol tampilan pada console.
3. var p, l, luas, keliling: real; Pada baris ini, variabel p, l, luas, dan keliling dideklarasikan sebagai tipe data real. Variabel p dan l akan digunakan untuk menyimpan nilai panjang dan lebar persegi panjang yang akan diinputkan oleh pengguna. Sedangkan, variabel luas dan keliling akan digunakan untuk menyimpan hasil perhitungan luas dan keliling persegi panjang.
4. begin Baris ini menandakan awal dari blok program utama.
5. write('Masukkan panjang: '); Baris ini digunakan untuk menampilkan pesan pada layar untuk meminta pengguna untuk memasukkan nilai panjang dari persegi panjang.
6. readln(p); Pada baris ini, input dari pengguna yang berupa nilai panjang dari persegi panjang akan disimpan ke dalam variabel p.
7. write('Masukkan lebar: '); Baris ini digunakan untuk menampilkan pesan pada layar untuk meminta pengguna untuk memasukkan nilai lebar dari persegi panjang.
8. readln(l); Pada baris ini, input dari pengguna yang berupa nilai lebar dari persegi panjang akan disimpan ke dalam variabel l.
9. luas := p * l; Baris ini digunakan untuk menghitung nilai luas persegi panjang dengan cara mengalikan nilai panjang p dengan nilai lebar l. Hasil perhitungan tersebut akan disimpan ke dalam variabel luas.
10. keliling := 2 * (p + l); Pada baris ini, nilai keliling persegi panjang akan dihitung dengan cara mengalikan 2 dengan jumlah nilai panjang p dan nilai lebar l. Hasil perhitungan tersebut akan disimpan ke dalam variabel keliling.
11. writeln('Luas persegi panjang adalah: ', luas:0:2); Baris ini digunakan untuk menampilkan hasil perhitungan luas persegi panjang pada layar. Hasil perhitungan yang disimpan dalam variabel luas akan ditampilkan dengan menggunakan perintah writeln. Angka :0:2 pada kode tersebut digunakan untuk memformat tampilan hasil perhitungan dengan menampilkan dua angka di belakang koma.
12. writeln('Keliling persegi panjang adalah: ', keliling:0:2); Pada baris ini, hasil perhitungan keliling persegi panjang yang disimpan dalam variabel

Semoga bermanfaat contoh kode program Pascal menghitung luas dan keliling persegi panjang. Apabila ada yang kurang di pahami langsung saja tinggalkan komentar langsung ya..