Program Pascal (Program Menentukan Volume Kerucut)

Program Menentukan Volume Kerucut

program menghitung_volume_kerucut;
uses crt;
const pi=3.14;
var r,t,v:real;

begin
 clrscr;
 gotoxy(10,1);
 writeln('================================================================');
 gotoxy(24,2);
 writeln('PROGRAM MENENTUKAN VOLUME KERUCUT');
 gotoxy(10,3);
 writeln('================================================================');
 gotoxy(4,5);
 write('Masukkan jari-jari alas (cm)       :   ');readln(r);
 gotoxy(4,7);
 write('Masukkan Tinggi Kerucut (cm)  :   ');readln(t);
 v:=1/3*pi*r*r*t;
 gotoxy(4,9);
 write('Maka Volume Kerucut                 :   ',v:0:4,' cm^3');readln;
 gotoxy(24,11);
 writeln('///////////////SELESAI///////////////');
 readln;

end.

Oke, VirtWB semoga bermanfaat yap...

Jangan lupa kunjungi kami di akun lain

Youtube Channel : BSB Learn Anything

Instagran: https://www.instagram.com/learnanything_bsb/

Twitter: https://www.twitter.com/siska_kojiro/

Facebook: BSB Learn Anything

WhatsApp: +62 856 6911 0663

Share on Google Plus

About Siska Elvadiningsih