Pascal Tutorial Membuat Program Luas dan Keliling Persegi Panjang

Dengan bekal pengetahuan tentang program Pascal beserta variabel-variabelnya, kini kita akan ujicoba untuk membuat sebuah program penghitungan Luas Persegi Panjang dan Kelilingnya, sebelum itu kita akan melihat dulu alur dari program yang akan kita buat, dalam hal ini saya telah membuat sebuah Flow Cart yang akan menjadi acuan kita dalam membuat sebuah program. Silahkan bisa sobat lihat terlebihdahulu Flow Cartnya, 

Dari Flowa Cart di atas dapat disimpulkan bahwa nantinya program yang akan kita buat memiliki sebuah proses, dari awal dimulai dengan START, lalu ada sebuah Input data, disinilah varabel akan diinput, kemudian data akan di Proses pada bagian ke 3 dan 4. Bagian ke 3 adalah proses perhitungan luas persegi panjang dengan rumus P*L, lalu di bagian ke 4 adalah proses perhitungan keliling dengan rumus 2* (P+L), selanjutnya di bagian Output akan menampilkan hasil dari sebuah proses pada bagian ke 3 dan 4, hasilnya berupa Luas Persegi Panjang dan Keliling. Setelah selesai,pada bagian akhir diakhiri dengan END. 

Oke kita langsung terjun ke coding, berikut adalah kodenya:

PROGRAM Persegi;
{----------------------------------------------------------}
{   Program Menghitung Luas Persegi Panjang                }
{                  Dan Keliling Persegi Panjang            }
{----------------------------------------------------------}
USES WINCRT;
VAR
   Panjang, Lebar, Luas, Keliling : REAL;
BEGIN
     Clrscr;
     write('Panjang = ');
     readln(Panjang);
     write('Lebar = ');
     readln(Lebar);
     Luas := Panjang * Lebar;
     Keliling := 2 * (Panjang+Lebar);
     writeln;
     writeln('Luas = ', Luas:3:1);
     writeln('Keliling = ', Keliling:3:1);
END.

Keterangan:

PROGRAM Persegi;  

{----------------------------------------------------------}

{   Program Menghitung Luas Persegi Panjang     }

{                  Dan Keliling Persegi Panjang            }

{----------------------------------------------------------}

Ini adalah judul dari sebuh program yang kita buat.

USES WINCRT;

Ini adalah code yang harus ada, di widows xp menggunakan USES CRT;

di widows 7 menggunakan USES WINCRT;

VAR

   Panjang, Lebar, Luas, Keliling : REAL;

Pada bagian ini kita Input variabelnya, seperti di flowcart tadi, variabel panjang,lebar,luas,keliling kita input disini. Penulisanya seperti diatas.

BEGIN                        [Jika di flowcart ini adalah bagian proses,]

     Clrscr;

     write('Panjang = '); [Code ini memanggil variabel Panjang]

     readln(Panjang);     [Code ini membaca variabel Panjang,berupa angka]

     write('Lebar = ');     [Code ini memanggil variabel Lebar]

     readln(Lebar);         [Code ini membaca variabel Lebar,berupa angka]

     Luas := Panjang * Lebar; [Ini adalah rumus Luas]

     Keliling := 2 * (Panjang+Lebar); [Ini adalah rumus keliling]

Hasil

     writeln;

     writeln('Luas = ', Luas:3:1);

     writeln('Keliling = ', Keliling:3:1);

Disini akan ditampilkan hasil dari perhitungan luas dan keliling. Luas:3:1 dan Keliling:3:1, Maksudnya adalah, pada hasil Luas dan Keliling kita memesan 3 spasi dari simbol = sampai ke hasil perhitungan. Contoh: Luas/Keliling =(3spasi)120.0 .

Nah :1 ini maksudnya apa? Ini adalah kode untuk memesan carakter di belakang tanda titik (.)  Contoh: Luas/Keliling =(3spasi)120.0

Bagaimana jika kita memberikan Luas:3:3 Keliling:3:3 dan ? maka hasilnya akan seperti ini Luas/Keliling=(3spasi)120.000

END.

Ini adalah simbol/tanda/code untuk mengakhiri sebuah program.

Jangan lupa, tanda (: ; ‘ , ) ini wajib, jangan sampai lupa menuliskannya, jika ada salah satu code yang tidak sempurna seperti  writeln('Luas = ', Luas:3:1)  Maka akan terjadi error, karena code tersebut kurang tanda ; diakhirnya.

Selamat mencoba,

Semoga Bermanfaat,

Penulis: Firman A-ArrsNet

Baca Juga:

1. Struktur dan komponen dasar Pascal
2. Aturan dalam program Pascal
3. Bahasa Pascal