Menghitung Volume Kolam Renang Dengan Pemrograman Pascal

Tahun 2024 masih menghitung Volume kolam renang dengan pemrograman Pascal? Waduh mas bro, kamu dari entitas mana? Kamu juga kuliah di kampus sebelah mana? Siapa tau kampus kita sama 😅.

Kali ini saya disuruh menghitung Volume kolam renang penuh dan 3/4 dengan standar internasional menggunakan bahasa pemrograman pascal oleh Bu Dosen. Dengan ukuran kolam seperti dibawah ini. Jika ukurannya berbeda, silahkan sesuaikan saja asal masih dalam satuan meter

• Panjang 50 meter
• Lebar 25 meter. t
• Tinggi sisi yang dangkal 1,5 meter dan
• Tinggi sisi yang dalam 5 meter

Rumus Awal

Namun sebelum kita menuliskan kodenya, kita harus mengetahui rumus aslinya terlebih dahulu. Berikut rumusnya :

// Volume Full Datar
V    = ( P x L x T ) x 1000

// Volume Full Miring
V    = ( P x L x ( (T¹ + T²) / 2) ) x 1000

// Volume 3.4 Miring
V3/4 = V x 3 / 4

Pada rumus di atas, perlu diketahui bahwa :

• P adalah Panjang,
• L adalah Lebar,
• T adalah Tinggi Kolam Datar,
• T¹ adalah Tinggi sisi 1,
• T² adalah Tinggi sisi 2,
• V adalah Volume Penuh, dan
• V3/4 adalah Volume 3/4.

Untuk mencari Volume 3/4 maka satuan meternya perlu diubah menjadi liter yang berarti dikalikan dengan 1000.

Kode Pascal Menghitung Volume Kolam Renang

Kembali lagi ke topik utama, anda cukup copy kode berikut dan menyesuaikan nilainya dengan kebutuhan.

Program Menghitung_Volume_Kolam;
uses crt;
var 
    Panjang: Integer = 50;
    Lebar: Integer = 25;
    Tinggi_1: Real = 1.5;
    Tinggi_2: Integer = 5;
    Volume_Penuh: Real;
    Volume_3_per_4: Real;
begin
    clrscr;

    writeln('Menghitung 3/4 Volume Kolam Miring Standar Internasional');
    writeln('====================================================');
    writeln();

    writeln('Diketahui :');
    writeln('Panjang Kolam = ' , Panjang , ' Meter');
    writeln('Lebar Kolam = ' , Lebar , ' Meter');
    writeln('Tinggi Sisi Pertama = ' , Tinggi_1:0:2 , ' Meter');
    writeln('Tinggi Sisi Kedua = ' , Tinggi_2 , ' Meter');

    Volume_Penuh := (Panjang * Lebar * ( (Tinggi_1 + Tinggi_2) / 2) ) * 1000;
    Volume_3_per_4 := Volume_Penuh * (3 / 4);

    writeln();
    writeln('Maka :');
    writeln('Volume Jika Penuh : ' , Volume_Penuh:0:2 , ' Liter');
    writeln('Volume Jika 3/4 : ' , Volume_3_per_4:0:2 , ' Liter');
    readln();
end.

Dan output yang dihasilkan seperti berikut.

Menghitung 3/4 Volume Kolam Miring Standar Internasional
====================================================

Diketahui :
Panjang Kolam = 50 Meter
Lebar Kolam = 25 Meter
Tinggi Sisi Pertama = 1.50 Meter
Tinggi Sisi Kedua = 5 Meter

Maka :
Volume Jika Penuh : 4062500.00 Liter
Volume Jika 3/4 : 3046875.00 Liter

Dari kode pascal di atas saya akan menjelaskan beberapa syntax Menghitung Volume Kolam Renang. Var untuk mendeklarasikan variabel, beserta nilai dan tipe datanya. “uses crt” dan “clrscr” untuk membersihkan layar pada output program pascal. Dan yang terakhir anda “:0:2” untuk memformat angka menjadi 2 digit dibelakang koma (ini opsional).

Begin dan end sebagai badan program. Yang didalamnya terdapat program-program yang akan dieksekusi. “writeln()” berfungsi untuk mencetak hasil pada layar pada satu baris, dan ketika mencetak hasil yang lain maka hasilnya akan berada di bawah dari hasil sebelumnya.

Sedangkan “readln()” berfungsi ketika program ditampilkan maka akan dijeda sementara, agar pengguna dapat membaca.

Pada contoh program yang saya buat, saya mendapat hasil Volume 3/4 Kolam Renang Miring adalah 3.046.874 liter.

Demikian tutorial menghitung volume kolam renang penuh dan 3/4 dengan pascal, semoga membantu.