Dalam posting sebelumnya telah kita pelajari tentang variabel, input output dan operator pada bahasa pemrograman pascal. Hari ini kita akan belajar menerapkannya pada program penghitung luas bangun datar. Bangun datar yang akan kita hitung luasnya meliputi persegi, persegi panjang, segitiga dan lingkaran.

Program Penghitung Luas Persegi

Luas persegi dapat didapatkan dengan rumus sisi². Untuk mencarinya kita dimudahkan dengan adanya fungsi kuadrat yang sudah disediakan pascal. Langkah-langkah pembuatannya adalah sebagai berikut.

1. Mendefinisikan nama program.
2. Mendeklarasikan variabel sisi dan luas dengan tipe data real.
3. Memasukan code readln untuk meminta input nilai variabel sisi
4. Menghitung luas dengan rumus sisi².
5. Menampilkan hasilnya pada layar.

program luasPersegi;
    var
        sisi,luas:real;
    begin
        write('Masukan Panjang Sisi : ');
        readln(sisi);
        luas := sqr(sisi);
        writeln('Luas Persegi Adalah : ',luas:0:2);
        readln();
    end.

Program Penghitung Luas Persegi Panjang

Menghitung luas bangun datar persegi panjang prinsipnya adalah sama dengan luas persegi. Hanya saja rumus yang kita terapkan menyesuaikan dengan bangun datar tersebut. Langkah-langkah membuat program menghitung luas persegi panjang adalah sebagai berikut.

1. Mendefinisikan nama program.
2. Mendeklarasikan variabel panjang, lebar dan luas dengan tipe data real.
3. Memasukan code readln untuk meminta input nilai variabel panjang dan lebar
4. Menghitung luas dengan rumus panjang * lebar
5. Menampilkan hasilnya pada layar.

program luasPersegiPanjang;
    var
        panjang,lebar,luas:real;
    begin
        write('Masukan Panjang : ');
        readln(panjang);
        write('Masukan Lebar : ');
        readln(lebar);
        luas := panjang * lebar;
        writeln('Luas Persegi Panjang Adalah : ',luas:0:2);
        readln();
    end.

Program Penghitung Luas Segitiga

Langkah-langkah menghitung luas segitiga menggunakan pascal adalah sebagai berikut.

1. Mendefinisikan nama program.
2. Mendeklarasikan variabel alas, tinggi dan luas dengan tipe data real.
3. Memasukan code readln untuk meminta input nilai variabel alas dan tinggi
4. Menghitung luas dengan rumus alas * tinggi / 2
5. Menampilkan hasilnya pada layar.

program luasSegitiga;
    var
        alas,tinggi,luas:real;
    begin
        write('Masukan Alas : ');
        readln(alas);
        write('Masukan Tinggi : ');
        readln(tinggi);
        luas := alas * tinggi / 2;
        writeln('Luas Segitiga Adalah : ',luas:0:2);
        readln();
    end.

Program Penghitung Luas Lingkaran.

Sama halnya dengan program penghitung bangun datar diatas, pada program penghitung luas lingkaran, kita hanya perlu merubah rumus dan variabel yang diperlukan. Langkah-langkah pembuatannya adalah sebagai berikut.

1. Mendefinisikan nama program.
2. Mendeklarasikan nilai konstanta pi.
3. Mendeklarasikan variabel jari2 dan luas dengan tipe data real.
4. Memasukan code readln untuk meminta input nilai variabel jari2.
5. Menghitung luas dengan rumus pi * sqr(jari2).
6. Menampilkan hasilnya pada layar.

program luasLingkaran;
    const
        pi = 3.14159265358979323846;
    var
        jari2,luas:real;
    begin
        write('Masukan Jari-Jari : ');
        readln(jari2);
        luas := pi * sqr(jari2);
        writeln('Luas Lingkaran Adalah : ',luas:0:2);
        readln();
    end.