Program menghitung luas & volume tabung-(turbo pascal)

Selamat datang di blog muslih system, pada postingan turbo pascal kali ini akan membahas tentang program menghitung luas & volume tabung / silinder, pertama kali ada baiknya kita mengetahui terlebih dahulu rumus-rumusnya:

- Luas Tabung:

- Volume Tabung:

Keterangan:

L : Luas	r : Jari-jari
V : Volume	t : tinggi tabung
π : Tetapan 22/7 atau 3.14

Dilanjutkan ke Sintak Pascalnya:

uses wincrt;
var
r,t:integer;
l,v : real;
begin
writeln ('=============================');
writeln ('  Menghitung Luas & Volume');
writeln ('            Tabung ');
writeln ('=============================');
writeln (' ');
write ('Masukan Panjang Jari-jari : ');readln (r);
write ('Masukan Tinggi Tabung     : ');readln (t);
l := (2*(22/7)*r*r)+((22/7)*(2*r)*t) ;
v := ((22/7)*r*r)*t;
writeln ('Luas Pemukaan Bola : ', l:1:1 , ' satuan luas');
writeln ('Volume Bola        : ', v:1:1 , ' satuan Volume');
readln;
end.

Berikut gambar programnya setelah dijalankan:

Bagi yang mau download Source Codenya silahkan download di bawah ini:

Sekian pembahasannya, semoga bermanfaat.