Menghitung Volume Kerucut Menggunakan Delphi

Assalamu'alaikum Sweabyers...

Pada postingan kali ini aku akan berbagi program tentang menghitung sebuah volume gambar dibawah ini menggunakan Delphi.

Iyups, bangun kerucut.
Postingan kali ini membahas tentang cara menghitung volume pada bangun kerucut.
Sebelum kita membahas pada pembuatan program, berikut ini sedikit penjelasan mengenai kerucut.
Apa itu kerucut?



Dalam geometri, kerucut adalah sebuah limas istimewa yang beralas lingkaran. Kerucut memiliki 2 sisi dan 1 rusuk.
Sisi tegak kerucut tidak berupa segitiga tapi berupa bidang miring yang disebut selimut kerucut.

Rumus kerucut

Luas alas

Luas selimut

Luas permukaan

    , atau
   

Volume

Namun, kali ini yang kita bahas hanya mengenai Volume kerucut.
Salin script dibawah ini pada Delphi kalian.

uses
  SysUtils;
var
  V:real;
  r,t:integer;
begin
 writeln ('MENGHITUNG VOLUME KERUCUT ');
 writeln (' V = 1/3 x phi x (r.r) x t');
 writeln;
 writeln (' masukkan nilai r= '); readln(r);
 writeln (' masukkan nilai t= '); readln(t);
 V:= 1/3* 3.14*SQR(r)*t;
 writeln (' Volume Kerucut = ', V:10:2);
 readln;
end.

 Keterangan Program :
   V : real; maksudnya adalah nilai V menggunakan type bilangan desimal.
   r,t : integer; maksudnya ialah nilai r (jari~jari) dan t (tinggi) menggunakan type data bilangan bulat.
   SQR(r) maksudnya nilai r (jari~jari) adalah bilangan pangkat kuadrat.
   V : 10:2 maksudnya ialah  kedua variabel diatas bisa diisi sampai 10 digit angka di depan koma
    dan memiliki ketilitian sampai 2 digit di belakang koma.


 Kemudian jalankan program Delphi kalian, maka tampilan program akan seperti gambar dibwah ini.

Masukkan nilai r (jari~jari) dan t (tinggi)nya sesuai keinginan kalian.
Setelah selesai tekan Enter. Maka hasilnya akan muncul seperti pada keterangan gambar berikut ini.

 

Jika hasil yang kalian inginkan keluar, maka program dikatakan berhasil.

Dan selesai :):):)

Sekian untuk postingan kali ini, semoga bermanfaat :):):)

Salam Belajar, dan sampai jumpa pada postigan~postingan aku yang lainnya.

Jangan bosen~bosen buat belajar tentang pemrograman meskipun itu sulit, karna kita bisa jika terbiasa. Dan wassalamu'alaikum Sweabyers.. :D:D:D