Menghitung Volume Tabung Menggunakan Delphi

Posted by : Unknown Minggu, 04 Januari 2015

Jumpa dengan info~info mengenai program di delphi. Dalam postingan kali ini aku mau ngasih program masih seputar

menghitung dengan menggunakan delphi yakni menghitung Volume Tabung. Setiap tabung terdiri dari jari~jari dan tinggi.

Untuk rumus volumenya tabung adalah phi *r*r*t. Nilai phi sendiri berupa 22/7 atau 3,14..

langsung aja buka aplikasi delphi kalian, masih dengan langkah yang sama pilih File >> New >> Other >>

dan Console Aplication.
Kemudian ketikkan kode~kode ini:
program volume_tabung;

{$APPTYPE CONSOLE}

uses

SysUtils;

Var

V: real;

r,t:integer;

begin

writeln(' Program Menghitung volume Tabung');

writeln(' ================================');

writeln(' Rumus volume tabung: 3.14*r*r*t');

writeln('');

write ( ' jari2(r)=');readln (r);

write ( ' tinggi (t)=');readln (t);

writeln('');

V:=3.14*r*r*t;

writeln(' volume tabung=',V:10:2);

readln;

end.

kurang lebih seperti berikut yah...

Setelah itu langsung tekan F9 atau tekan tombol kemudian program akan berjalan .

Hasilnya akan seperti ini:

Masukkan nilai jari~jari dan tingginya, tekan enter lalu hasilnya akan muncul.

Sampun Rumiyen ngeeeee\(´▽`)/

Mudah bukan?? :D sama kayak pake kalkulator, bedanya cuman kita masukin kode~kode rahasia haha Seperti kayak misi nya James Bond yang banyak rahasianya ,buat yang mampir dan mau ngasih saran untuk memperbaiki. Semoga tulisan aku bisa bermanfaat Aamiin