Program Hitung Volume Kerucut

uses crt;
var
r,t:byte;
v:real;
begin
clrscr;
writeln(***************************proram hitung volume kerucut**********************);
writeln(* *);
writeln(*program ini bertujuan unuk menghitung volume kerucut*);
writeln(*dengan rumus v=1/3*3.14*r^2*t*);
writeln(* *);
writeln('*********************************************');
writeln;
write('masukan jari-jari kerucut=');
readln(r);
write('masukan tinggi kerucuk=');
readln(t);
v:=1/3*3.14*r*r*t;
writeln;
**********************');
writeln('**);
writeln('*program ini bertujuan untuk menghitung volume kerucut*');
writeln('*dengan rumus v=1/3*3.14*r^2*t*');
writeln('**);
writeln('
**********************************************************************************
*****');
writeln;
write('masukan jari-jari kerucut=');
readln(r);
write('masukan tinggi kerucu=');
readln(t)'
v:=1/3*3.14*r*r*t;
writeln;
writeln;
writeln('***volune kerucut yang dimaksud=',v:6:2,'****');
writeln;
writeln;
writeln;
writeln;
readln;
end.

Program Hitung Volume Bola

uses crt;
var
r:byte;
v:real;
begin
clrscr;
writeln('*************program hitung volume bola*************');
writeln('**');
writeln('*ini bertujuan untuk hitung volume bola*');
writeln('*dengan rumus v=4/3*3.14*r^3*');
writeln('**');
writeln('************************');
writeln;
writeln('masukkan jari-jari bola=');
readln(r);
v:=4/3*3.14*r*r*r;
writeln;
writeln;
writeln('***volume bola yang dimaksud=',v:6:2,'***');
writeln;
writeln;
writeln;
writeln;
readln;
end.

Program Hitung Volume Tabung

uses crt;
var
r,t:byte;
v:real;
begin
clrscr;
writeln('*********program hitung volume tabung********');
writeln('***');
writeln('*program ini bertujuan untuk menghitung volume tabung*');
writeln('*dari masukan dengan rumus v=3.14*r^2*t*');
writeln('***');
writeln('*******************************');
writeln;
write('masukan besar jari-jari tabung=');
readln(r);
write('masukan besar tinggi tabung=');
readln(t);
v:=3.14*r*r*t;
writeln;
writeln;
writeln('***volume abung yang dimaksud=',v:6:2,'****');
writeln;
writeln;
writeln;
writeln;
readln;
end.

Program Hitung Volume Limas

uses crt;
var
r,t:byte;
v:real;
begin
clrscr;
writeln('************program hitung volume limas*******');
writeln('**')
writeln('*program ini bertujuan untuk menghitung volume limas*');
writeln('*dari masukan dengan rumus v=1/3*luas alas*t*');
writeln('**');
writeln('**************************');
writeln;
write('masukkan alas limas=');
readln(al);
write('masukkan tinggi alas limas=');
readln(tal);
write('masukkan tinggi limas=');
readln(t);
i:=1/2*a*at;
v:=1/3*l*t;
writeln;
writeln;
writeln('**volume limas yang dimaksud=',v:6:2,'****');
writeln;
writeln;
writeln;
readln;
end.

Program Hitung Volume Kubus

uses crt;
var
s:longint;
begin
clrscr;
writeln('************program hitung volume kubus*********');
writeln('**');
writeln('*program ini bertujuan untuk menghitung volume kubus*');
writeln('*dari maukan(sisi)dengan rumusv=s x s x s*');
writeln('**');
writeln('*********************');
writeln;
writeln('masukan besar sisi kubus=');
readln(s);
writeln;
writeln;
writeln('***volume kubus yang dimaksud=',s *s*s,'********');
writeln;
writeln;
writeln;
writeln;
readln;
end.