Program Pascal : Cara Membuat Program Mencari Nilai Luas Trapesium

Pascal --- Menghitung luas trapesium menggunakan program dengan menggunakan bahasa pemrograman pascal.

Trapesium adalah bangun datar dua dimensi yang dibentuk oleh empat buah rusuk yang dua di antaranya saling sejajar namun tidak sama panjang. Trapesium yang rusuk ketiganya tegak lurus terhadap rusuk-rusuk sejajar disebut trapesium siku-siku.

Dalam mencari luas trapesium, dengan bantuan program kita dapa mempermudahnya. program sangat berguna bagi kita yang membutuhkan perhitungan trapesium dalam jumlah yang besar tanpa menghitungnya serta untuk perhitungan banyak trapesium.

Trapesium sering kita temukan dalam sebuah bangunan, dalam hal ini berkaitan dengan orang-orang yang berkecimpung dalam dunia arsitektur.

Program berikut ini tentu merupakan program dasar yang berguna untuk kita sebagai pembelajaran tingkat dasar untuk menguasai penggunaan syntax pemrograman bahasa pascal. Pelajari cara algoritma atau susunan dari program berikut.

Rumus mencari luas trapesium, yaitu:

Luas : 1/2 x (jumlah sisi sejajar) x tinggi

Langkah-langkah membuat program trapesium bahasa pascal, sebagai berikut :

1.Buka aplikasi FreePascal. Dalam listing kodenya saya menggunakan freepascal. teman-teman juga bisa menggunakan turbo pascal for windows atau TPW 1.5 tapi dengan mengubah sedikit listing kodenya seperti uses crt menjadi uses wincrt, ' menjadi ". kalau menggunakan tpw perhatikan yang diubah itu karena akan error jika tidak diubah.

2. Setelah Aplikasi freepascal terbuka, silahkan buat file baru dengan klik file - new . nanti akan ada jendela baru tempat menulis listing kode pascal.

3. Selanjutnya silahkan teman-teman tulis listing kode berikut.

Berikut listing kode mencari luas trapesium dengan pascal:

program Luas_Trapesium;
uses crt;
var
alas1,alas2,tinggi,luas:real;
begin
clrscr;
writeln('==============================');
writeln('Program Mencari Luas Trapesium');
writeln('==============================');
writeln(' ');
write('masukkan nilai alas1   :');readln(alas1);
write('masukkan nilai alas2   :');readln(alas2);
write('masukkan nilai tinggi  :');readln(tinggi);
luas:=(1/2*(alas1+alas2)*tinggi);
writeln('luas Trapesium          :',luas:4:2);
readln;
end.

4. Setelah menulis kode diatas, saatnya program dijalankan dengan mengklik run - run atau tekan kombinasi tombol ctrl + f9.

Berikut hasil running programnya.

Tampilan pertama yang muncul seperti tampilan diatas, kita akan diminta untuk memasukkan nilai, silahkan masukkan nilai sesuai keinginannya.

Saya masukkan nilai 15. Kemudian tekan enter , maka akan muncul tampilan seperti berikut.

Kemudian kita disuruh memasukkan nilai untuk alas yang kedua. Silahkan masukkan nilainya sesuai keingannya.

Saya masukkan nilai 17. kemudian tekan enter maka akan muncul tampilan seperti gambar berikut:

Terakhir kita akan diminta untuk memasukkan nilai tinggi dari trapesium. 

Saya Masukkan nilai 20. Kemudian tekan enter . maka akan muncul hasil perhitungan untuk mencari nilai luas trapesium. seperti gambar berikut.

Jadi, hasil luas trapesium yang kita peroleh dengan memasukkan nilai

nilai alas 1 : 15

nilai alas 2 : 17

nilai tinggi trpesium : 20

Mempunyai luas yaitu 320

Penjelasan tentang Kode pascal yang kita gunakan. yaitu sebagai berikut :

Pertama buat varibel untuk menghitung luas trapesium. variabel yang kita perlukan ada 4, yaitu

Nilai sisi pertama, nilai sisi kedua, nilai tinggi dan variabel yang menjadi penyimpanan dari hasil proses.

berikut kode yang saya gunakan

var
alas1,alas2,tinggi,luas:real;

kita menggunakan tipe data "real" karena dalam prosesnya menggunakan angka atau nilai yang akan dihitung.

Kedua, masukkan input atau masukan data yang akan diproses, dengan memberikan syntax kode inputan. Perhatikan kode yang kita gunakan dari contoh diatas

write('masukkan nilai alas1   :');readln(alas1);
write('masukkan nilai alas2   :');readln(alas2);
write('masukkan nilai tinggi  :');readln(tinggi);

dari kode tersebut "readln" yang berfungsi sebagai syntax untuk membaca data yang kita masukkan atau input.

kemudian didalam "readln" ditulis variabel yang akan menjadi penyimpanan data yang nantinya akan diproses.

kode "write" untuk menampilkan teks di program. seperti arti dari write yaitu tulis, maka kode itu berfungsi untuk menulis di program utnuk ditampilkan.

catatan : "ln" berfungsi untuk membuat baris baru dapat ditambahkan ke belakang "read" dan "write" sehingga dapat menjadi "readln" atau "writeln"

Ketiga, Bagian Proses, dibagian ini merupakan tempat kita menyimpan rumus trapesium. cara penulisannya seperti berikut.

luas:=(1/2*(alas1+alas2)*tinggi);

Hal yang pertama ditulis yaitu nama variabel yang akan berfungsi menyimpan nilai dari proses yang ada dalam rumus. variabel yang saya gunakan yaitu "luas"

Terakhir, Bagian menampilkan hasil proses. pada bagian ini berfungsi untuk menampilkan hasil yang telah diperoleh dari rumus yang ditulis dibagian proses. Berikut cara penulisan kodenya.

writeln('luas Trapesium          :',luas:4:2);

kode yang kita gunakan yaitu "write" karena digunakan untuk menampilkan data, kemudian memasukkan nama variabel dengan cara memberikan batas antara tulisan yang tampil dengan nama variabel yang tadi digunakan sebagai tempat hasil proses. 

Fungsi dari kode " :4:2" yaitu untuk mengatur tampilan dari nilai menjadi 4 angka setelah koma, 2 angka setelah koma.

Program ini bisa kita praktekkan untuk menulis rumus matematika lain untuk membantu kita dalam melakukan perhitungan dengan memanfaatkan program demi pekerjaan yang cepat dan tepat.

Sekian Program pada kesempatan ini tentang membuat program perhitungan untuk mencari nilai luas trapesium menggunakan bahasa pemrograman pascal.

Semoga Penjelasannya bisa dimengerti yah. Semoga bermanfaat. Wassalam..

Bagikan ke:

Facebook Google+ Twitter