Program Pascal untuk Menghitung Luas dan Volume

1.       Luas Segitiga

program segitiga;

uses wincrt;

var a,t,l:real;

begin

     writeln('                       ==============================');

     writeln('                       ==*Menghitung Luas Segitiga*==');

     write('================================================================================');

     writeln;

     writeln;

     write('Masukkan alas segitiga    = '); readln(a);

     write('Masukkan tinggi segitiga  = '); readln(t);

     writeln;

     l:=1/2*a*t;

     write('Maka luas segitiga        =',l:5:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

2.       Luas Bujur Sangkar

program bujur_sangkar;

uses wincrt;

var s,l:real;

begin

     writeln('                      ===================================');

     writeln('                      ==*Menghitung Luas Bujur Sangkar*==');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan sisi bujur sangkar    = '); readln(s);

     writeln;

     l:=s*s;

     write('Maka luas bujur sangkar        =',l:5:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

3.       Luas Lingkaran

program lingkaran;

uses wincrt;

var r,luas:real;

begin

     writeln('                    =====================================');

     writeln('                    =====*Menghitung Luas Lingkaran*=====');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan jari-jari lingkaran = '); readln(r);

     writeln;

     luas:=3.14*r*r;

     write('Maka luas lingkaran          =',luas:6:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

4.       Luas Persegi Panjang

program persegi_panjang;

uses wincrt;

var p,l,luas:real;

begin

     writeln('                    =====================================');

     writeln('                    ==*Menghitung Luas Persegi Panjang*==');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan panjang persegi panjang = '); readln(p);

     write('Masukkan lebar persegi panjang   = '); readln(l);

     writeln;

     luas:=p*l;

     write('Maka luas persegi panjang        =',luas:5:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

5.       Volume Balok

program balok;

uses wincrt;

var p,l,t,v:real;

begin

     writeln('                    =====================================');

     writeln('                    ======*Menghitung Volume balok*======');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan panjang balok = '); readln(p);

     write('Masukkan lebar balok   = '); readln(l);

     write('Masukkan tinggi balok  = '); readln(t);

     writeln;

     v:=p*l*t;

     write('Maka volume balok      =',v:6:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

6.       Volume Bola

program bola;

uses wincrt;

var r,v:real;

begin

     writeln('                    ====================================');

     writeln('                    ======*Menghitung Volume Bola*======');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan jari-jari bola = '); readln(r);

     writeln;

     v:=4/3*(3.14*r*r*r);

     write('Maka volume bola        =',v:8:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

7.       Volume Kubus

program kubus;

uses wincrt;

var s,v:real;

begin

     writeln('               =====================================');

     writeln('                    ======*Menghitung Volume kubus*======');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan sisi kubus = '); readln(s);

     writeln;

     v:=s*s*s;

     write('Maka volume kubus   =',v:5:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

8.       Volume Kerucut

program kerucut;

uses wincrt;

var r,t,v:real;

begin

     writeln('                    =====================================');

     writeln('                    =====*Menghitung Volume kerucut*=====');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan jari-jari kerucut = '); readln(r);

     write('Masukkan tinggi kerucut    = '); readln(t);

     writeln;

     v:=(3.14*r*r*t)/3;

     write('Maka volume kerucut      =',v:6:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

9.       Volume Tabung

program tabung;

uses wincrt;

var r,t,v:real;

begin

     writeln('                    ====================================');

     writeln('                    =====*Menghitung Volume Tabung*=====');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan jari-jari tabung = '); readln(r);

     write('Masukkan tinggi tabung    = '); readln(t);

     writeln;

     v:=3.14*r*r*t;

     write('Maka volume tabung        =',v:6:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.