Program menghitung Luas Permukaan dan Volume

1. Program Menghitung Volume kubus

Program menghitung_volume_kubus;

Uses wincrt;

var
v,p, l, t:integer;

begin
 clrscr;

writeln ('mencari volume kubus')  ;

write ('Panjang kubus:'); readln (p);

write ('lebar kubus:');readln (l);

write ('tinggi kubus:');readln(t); 

v:=p*l*t;

writeln('maka volumenya adalah:',v);readln;end.

2. Program Menghitung Luas Lingkaran

Program menghitung_luas_lingkaran;

uses wincrt;

var

 r : integer;

 l : real;

const

 phi = 22/7;

begin

 clrscr;

 writeln ('ini adalah program sederhana menghitung luas lingkaran');

 writeln ('silahkan masukan jari-jari lingkaran =');readln (r);

 l:= phi*r*r;

 writeln ('jadi luas lingkarannya adalah =',l:0:1);

end.

3. Program Menghitung Volume dan Luas Kerucut

program  volume_dan_luas_permukaan_kerucut;

uses wincrt;

 var

 alas:real;

 permukaan:real;

 volume:real;

 t:real;

 s:real;

 r:real;

 coba:char;

 begin

  repeat

  clrscr;

   writeln(' Program Luas Permukaan dan Volume Kerucut ');

   writeln('');

   write('masukkan nilai r:    ');readln(r);

   write('masukkan nilai t:    ');readln(t);

    s:=sqrt(r*r+t*t);

    alas:=(pi*r*r);

    volume:=alas*t;

    permukaan:=pi*r*s;

   write('Luas Permukaannya kerucut adalah  ',permukaan:0:1);readln;

   write('volume kerucut adalah   ',volume:0:1);readln;

   write('coba lagi?(Y or N):    ');readln(coba);

  until (coba='N') or (coba='n');

  if coba='N' then write('silahkan mencoba menu lainnya');

 end.