BELAJAR pascal : Program Menghitung Luas

 Di bawah ini adalah beberapa contoh program menghitung luas  bangun datar dengan bahasa pemrograman Pascal. Sahabat dapat mencoba mempraktekannya dengan Quick Pascal, Turbo Pascal for DOS, atau dengan Turbo Pascal For Windows. Jika sahabat menggunakan compiler Turbo Pascal For Window, maka sintaks “uses CRT;” diganti dengan “uses WinCrt;”.

program Menghitung Luas Persegi Panjang

Program Menghitung_Luas_Persegi_Panjang;

Uses CRT;
Var
  Lebar, Panjang, Luas : Integer;

Begin
  ClrScr;
  Write ('Berapa Panjangnya : ');
  Readln (Panjang);
  Write ('Berapa Lebarnya : ');
  Readln (Lebar);
  Luas := Panjang * Lebar;
  Writeln ('Luas Persegi Panjang Adalah : ',Luas);
  Readkey;
End.

Keterangan:

1. Tipe data untuk variable Panjang, Lebar, dan Luas dapat diganti dengan tipe data Real sehingga inputnya bisa bilangan desimal (bilangan pecahan).
2. Sintaks program Readkey dapat diganti dengan “Readln”, fungsinya untuk menahan program agar tidak langsung tertutup ketika dieksekusi (di-Run). Sintaks ini bisa dihilangkan jika menggunakan compiler Turbo Pascal for Windows.

Program Menghitung Luas Segitiga

Program Menghitung_Luas_Segitiga;

Uses CRT;
Var
  Panjang_Alas, Tinggi, Luas : Real;

Begin
  ClrScr;
  Write ('Berapa Alasnya : ');
  Readln (Panjang_Alas);
  Write ('Berapa Tingginya : ');
  Readln (Tinggi);
  Luas := (Panjang_Alas * Tinggi)/2;
  Writeln ('Luas Segitiga Adalah : ',Luas:2:2);
  Readkey;
End.

Keterangan:
Luas:2:2; pada sintaks Writeln (‘Luas Segitiga Adalah : ‘,Luas:2:2); maksudnya untuk membatasi tampilan angka desimal dan angka dibelakang koma agar tidak terlalu panjang.

Program Menghitung Luas Bujur Sangkar

Program Menghitung_Luas_Bujur_Sangkar;

Uses CRT;
Var
  Sisi, Luas : Integer;

Begin
  ClrScr;
  Write ('Berapa Panjang Sisinya : ');
  Readln (Sisi);
  Luas := Sisi * Sisi;
  Writeln ('Luas Bujur Sangkar Adalah : ',Luas);
  Readkey;
End.

Keterangan:
Agar input bisa diisi dengan bilangan desimal, maka tipe data untuk variabel Sisi dan Luas dapat diganti dengan tipe data Real.

Program Menghitung Luas Lingkaran

Program Menghitung_Luas_Lingkaran;

Uses CRT;
Var
  Jari_jari,Pi , Luas : Real;

Begin
  ClrScr;
  Pi := 3.14;
  Write ('Berapa Jari-Jarinya : ');
  Readln (Jari_jari);
  Luas := Pi * Jari_jari * Jari_jari;
  Writeln ('Luas Lingkaran Adalah : ',Luas:2:2);
  Readkey;
End.

Program Menghitung Luas Jajaran Genjang

Program Menghitung_Luas_Jajaran_Genjang;

Uses CRT;
Var
  Alas, Tinggi, Luas : Integer;

Begin
  ClrScr;
  Write ('Berapa Panjang Alasnya : ');
  Readln (Alas);
  Write ('Berapa Tingginya : ');
  Readln (Tinggi);
  Luas := Alas * Tinggi;
  Writeln ('Luas Jajaran Genjang Adalah : ',Luas);
  Readkey;
End.

Program Menghitung Luas Trapesium

Program Menghitung_Luas_Trapesium;

Uses CRT;
Var
  Tinggi, Sisi1, Sisi2, Luas : Real;

Begin
  ClrScr;
  Write ('Berapa Panjang Sisi Kesatu : ');
  Readln (Sisi1);
  Write ('Berapa Panjang Sisi Kedua : ');
  Readln (Sisi2);
  Write ('Berapa Tingginya : ');
  Readln (Tinggi);
  Luas := ((Sisi1+Sisi2)/2 * Tinggi);
  Writeln ('Luas Trapesium Adalah : ',Luas:2:2);
  Readkey;
End.

Program Menghitung Luas Layang-layang

Program Menghitung_Luas_Layanglayang;

Uses CRT;
Var
  Diagonal1, Diagonal2, Luas : Real;

Begin
  ClrScr;
  Write ('Berapa Panjang Diagonal Kesatu : ');
  Readln (Diagonal1);
  Write ('Berapa Panjang Diagonal Kedua : ');
  Readln (Diagonal2);
  Luas := (Diagonal1 * Diagonal2) / 2;
  Writeln ('Luas Layang-layang Adalah : ',Luas:2:2);
  Readkey;
End.

Program Menghitung Luas Belak Ketpat

Program Menghitung_Luas_LBelah_Ketupat;>

Uses CRT;
Var
  D1, D2, Luas : Real;

Begin
  ClrScr;
  Write ('Berapa Panjang Diagonal Kesatu : ');
  Readln (D1);
  Write ('Berapa Panjang Diagonal Kedua : ');
  Readln (D2);
  Luas := (D1 * D2) / 2;
  Writeln ('Luas Layang-layang Adalah : ',Luas:2:2);
  Readkey;
End.

Ditulis Oleh Unknown on - Rangking: 10

Tantom-angkola : BELAJAR pascal : Program Menghitung Luas
tantom angkola berdiri sejak tahun 2012 :  Di bawah ini adalah beberapa contoh program menghitung luas  bangun datar dengan bahasa pemrograman Pascal. Sahabat dapat mencoba memprak...

Tweet