Contoh Program Pascal

Program Menghitung Luas Dan Keliling Persegi Panjang Pada Pascal

Assalamu’alaikum Wr Wb

Selamat datang di web matericoding.com. Pada kesempatan kali ini saya akan memberikan contoh program menggunakan bahasa pemrograman pascal yaitu program menghitung luas dan keliling persegi panjang. Langsung saja untuk langkah-langkahnya sebagai berikut:

Menentukan Variabel dan Tipe Data

Sebelum ke program kita tentukan dulu variabel dan tipe datanya. Sebelum menentukan variable dan tipe datanya, kita juga harus tahu dulu rumus luas dan keliling persegi panjang. Untuk rumus luas adalah panjang dikali lebar(Luas=Panjang x lebar) sedangkan keliling persegi panjang adalah dua kalidalam kurung  panjang tambah lebar (Keliling=2x(panjang+lebar)). Sebenarnya nama variabel bebas, tetapi agar lebih mudah saya buat variable dan tipe datanya seperti berikut:

No Nama Variabel Tipe Data Keterangan
1 Luas Integer Untuk menyimpan data Luas
2 Keliling Integer Untuk menyimpan data Keliling
3 p Integer Untuk menyimpan data panjang
4 l Integer Untuk menyimpan data lebar

Tipe data yang digunakan integer semua karena data yang dipakai tidak menggunakan bilangan desimal

Sehingga jika diaplikasikan ke program, variabelnya seperti berikut:

VAR Luas,Keliling,p,l : integer;

Penulisan Rumus Menghitung luas dan Keliling Persegi Panjang pada program

Seperti yang telah dijelaskan sebelumnya, rumus menghitung luas dan keliling persegi panjang adalah

Luas= panjang x lebar

Keliling=2 x(panjang+lebar)

Jika kita aplikasikan dengan variabel yang telah kita buat, maka penulisan rumus pada program adalah sebagai berikut:

Luas:=p*l;
Keliling:=2*(p+l);

Source Code Program Mengitung luas dan Keliling Persegi Panjang pada Pascal

PROGRAM PERSEGIPANJANG;{matericoding.com}
USES wincrt;
VAR Luas,Keliling,p,l : integer;{nama variabel dan type data}
BEGIN
 writeln ('PROGRAM MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG');
 writeln ('***********************************************');
 write   ('Masukkan Panjang : '); readln  (p);{membaca inputan p}
 write   ('Masukkan Lebar: '); readln  (l); {membaca inputan l}
 {Penulisan Rumus Luas dan keliling}
 Luas:=p*l;
 Keliling:=2*(p+l);
 writeln();
 {Menampilkan Luas dan keliling}
 writeln('Luas persegi panjang adalah : ',Luas);
 writeln('Keliling persegi panjang adalah : ',Keliling);
readkey();
END.

Untuk mengecek hasilnya kita run, jika benar akan tampil perintah untuk memasukkan panjang dan lebarnya. Setelah dienter akan keluar hasilnya seperti berikut ini:

Hasil setelah dijalankan
Hasil setelah dijalankan

Silahkan dihitung ulang dengan kalkulator untuk mengecek kebenarannya.

Demikian program menghitung luas dan keliling persegi panjang pada pascal, semoga bermanfaat. Apabila ada pertanyaan bisa ditanyakan lewat kolom komentar. 

Terimakasih atas kunjungannya.

Wassalamu’alaikum Wr Wb.

2 Comments

Leave a Comment