SERIBUPOST, Selamat datang kembali di seribupost, sekarang ini saya akan mencoba membahas tentang pembuatan program menghitung sebuah harga berdasarkan luas & volume. Misalnya kita akan membeli sebidang tanah, dimana harga tanah tersebut Rp. 1.000.000 per meter perseginya dan diketahui juga tanah tersebut berbentuk persegi panjang.

Maka, perhitungannya Luas dikali Harga per meter persegi.
Pada program yang akan dibuat, program tersebut untuk mendapatkan luas perlu mengetahui panjang dan lebarnya, dimana panjang dan lebar akan di input oleh user. Langsung saja ke contoh soalnya.

SOAL : Buatlah program untuk menghitung harga sebuah karpet dengan ketentuan masukan berupa ukuran karpet panjang dan lebar. Harga karpet per meter persegi adalah Rp. 50.000,- . Output : Harga yang harus dibayar = Rp. …..

Jawab:
Untuk pembuatan program ini, saya masih menggunakan Bahasa Pascal dan softwarenya menggunakan Turbo Pascal. Agar mempermudah dalam pembuatan program atau agar tidak kebingungan, ada baiknya kita buatkan algoritmanya terlebih dahulu.

Algoritma :

  • Mulai
  • Masukan Nilai Panjang Karpet
  • Masukan Nilai Lebar Karpet
  • Proses Perhitungan Luas
  • Proses Perhitungan Harga Total
  • Tampilkan Luas
  • Tampilkan Harga Total
  • Selesai

Nah, Sekarang kita mulai buat programnya. Lihat script dibawah ini :

PASCAL
uses crt;
const
harga=50000;
var
p,l,luas,harga_total :longint;
begin
clrscr;
write(‘Masukan Panjang Karpet : ‘);
readln(p);
write(‘Masukan Lebar Karpet : ‘);
readln(l);
luas:=p*l;
harga_total:=luas*harga;
writeln(‘========================’);
writeln(‘Luas Karpet = ‘,luas);
writeln(‘Harga Karpet Yang Harus Dibayar = Rp. ‘,harga_total);
readln;
end.

Hasil run programnya:

BONUS : Buatlah program untuk menghitung volume sebuah balok

Jawab:
Seperti yang kita ketahui rumus volume balok adalah panjang kali lebar kali tinggi (P x L x t), dimana nilai panjang, lebar dan tinggi akan diinputkan oleh user. Seperti biasa kita buatkan algoritmanya.

Algortima:

  • Mulai
  • Masukan Panjang Balok
  • Masukan Lebar Balok
  • Masukan Tinggi Balok
  • Proses Perhitungan
  • Tampilkan Hasil Perhitungan
  • Selesai.

Berdasarkan algoritma diatas maka script programnya sebagai berikut:

PASCAL
uses crt;
var
p,l,t,operasi : integer;
begin
clrscr;
write(‘Masukan Panjang Balok = ‘);
readln(p);
write(‘Masukan Lebar Balok = ‘);
readln(l);
write(‘Masukan Tinggi Balok = ‘);
readln(t);
operasi:=p*l*t;
write(‘Volume Balok = ‘,operasi);
readln;
end.

Hasil run programnya:

Komentar Post Diatas