Penulisan Script Dasar Menghitung Volume Bangun

Pada postingan sebelumnya saya sudah Mengposting Program Menghitung luas selanjutnya saya akan mengposting Penulisan Script Dasar Menghitung Volume Bangun dan tetap kita akan menggunakan Program Borland delphi 7. Mari kita pelajari bersama-sama beberapa rumus volume berikut ini, Semoga bermanfaat... amiinnnn...........

1. Program Mencari Volume Kerucut
Berikut Scriptnya silahkan di coba sendiriii okkkkk...........

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  r,t:integer;
  vk:real;
begin
  writeln ('Progaram Menghitung Luas Persegi');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('Masukkan Jari-Jari= ');readln(r);
  write ('Masukkan Tinggi= ');readln(t);
  vk:=22/7*r*r*t;
  writeln ('Volume Kerucut= ',vk:10:2);
  readln;
end.

Contoh:
Misal; jari-jari = 8
tinggi = 13
Volume = 22/7*jr*r*t =2614,86

2. Program Mencari Volume Tabung
Berikut Scripnya:

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  r,t:integer;
  vt:real;
begin
  writeln ('Progaram Menghitung Luas Persegi');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('Masukkan Jari-Jari=');readln(r);
  write ('Masukkan Tinggi=');readln(t);
  vt:=22/7*1/2*r*r*t;
  writeln ('Volume Tabung=',vt:10:2);
  readln;
end.

Contoh:
Misal; jari-jari = 8
tinggi = 13
Volume = 22/7*r*r*t = 1307.43

Mungkin sampai disini untuk materi membuat Program Mecari Volume.
Semoga bermanfaat.
Baca juga Fungsi Logika IF
Terimakasih ..... *-*      :)