MENCARI LUAS PERMUKAAN dan VOLUME KERUCUT PADA PROGRAM TURBO PASCAL

Pertama- tama kita buka Aplikasi TURBO PASCAL, Setelah itu Ketik Yang di bawah ini untuk Menjalankan Programnya.

1. Luas Permukaan Kerucut

uses crt;
         var r,s,L:Real;
begin
         clrscr;
         write('Masukkan Jari-jari alas pada Kerucut(cm):'); readln(r);
         write('MasukkanApotema (sisi miring kerucut)(cm):'); readln(s);
         L:=22/7*r*r+2*22/7*r*s;
         writeln;
         writeln(Luas Permukaan Kerucut=',V:10:2,'cm2');
         readln;
end.


2. Volume Kerucut

Keterangan:

r = jari-jari alas kerucut
t= tinggi kerucut
Luas selimut = π x r x s
Luas alas = π x r 2
Luas Permukaan kerucut = Luas alas + Luas Selimut
Luas Permukaan kerucut = πr2 + πrs = π r (r + s)
Volume Kerucut =1/3 x Luas alas x tinggi = 1/3 π r2 t

 

program menghitung_volume_kerucut;

 

uses windos,wincrt;

var

         v,r,t:real;

         ch:char;

begin

         Clrscr;

         write ('masukan nilai jari-jari lingkaran (r)=');

         readln (r);

         write ('masukan nilai tinggi (t)=');

         readln (t);

         v:=1/3*pi*(r*r)*t;

         writeln ('volume kerucut=',v:20:2,'cm3');

         ch:=readkey;

end.

 

 

Terus jalanin dech  Run pada Turbo Pascal yang kalian punya.Jika ada kesalahan tolong dikonfirmasi di web blog ini,.. hehehehe