Delphi : Menghitung Luas dan Volume Bangun

Nama        : ANDI KHOIRUDIN
Kelas        :  I-B SMT 1
Jurusan     : Teknik Informatika
STIMIK YADIKA BANGIL 2014

Assalamualaikum Wr. Wb

         Pada postingan kali ini masih 'berhubungan' dengan si Delphi temennya si Pascal tuh, oke biar nggak lama'' lagi takutnya nanti keburu tutup blogspot.com nya  heheheh

Disini saya akan membagikan bagaimana membuat program sederhana yaitu menghitung luas segitiga, volume kerucut dan tabung  dari si Delphi sebelumnya kita harus menggetahui dulu rumus dari bangun'' tersebut biar lancar programnya + jawabanya benar. Langsung saja ke TKP 

Contoh pertama  : Menghitung Luas Segitiga 

Ini Screenshot programnya : 

Script Programnya : 

program Luas_Segitiga;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  alas,tinggi:integer;
  luas:real;
begin
  writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
  writeln;
  writeln('>>> Program Menghitung Luas Segitiga <<<');
  writeln;
  write('Masukkan Alas   = ');readln(alas);
  write('Masukkan Tinggi = ');readln(tinggi);
  luas:=0.5*alas*tinggi;
  writeln('Luas Segitiga = ',luas:10:2);
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
  readln;
end.

Contoh kedua : Menghitung Volume Kerucut 

Ini Screenshot programnya : 

Script Programnya : 

program Volume_Kerucut;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
l:real;
r,tinggi:integer;
begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Program Menghitung Volume Kerucut <<<');
writeln;
write('Masukkan Jari-jari = '); readln(r);
write('Masukkan Tinggi    = '); readln(tinggi);
l:=1/3*3.14*r*r*tinggi;
writeln('Volume Kerucut =',l:10:2);
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Contoh ketiga  : Menghitung Volume Tabung 

Ini Screenshot programnya : 

Script Programnya : 

program Volume_Tabung;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
l:real;
r,tinggi:integer;

begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Program Menghitung Volume Tabung <<<');
writeln;
write('Masukkan Jari-jari = '); readln(r);
write('Masukkan Tinggi    = ');readln(tinggi);
l:=3.14*r*r*tinggi;
writeln('Volume Tabung  = ',l:10:2);
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih sudah berkunjung.

Wassalamualaikum Wr. Wb.