Kamis, 16 Mei 2013

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.

0 komentar:

Poskan Komentar

You can replace this text by going to "Layout" and then "Page Elements" section. Edit " About "

Baca Selengkapnya Di : http://indonesianblog-jmk.blogspot.com/2012/06/cara-membuat-komentar-admin-berbeda.html#ixzz2kb6khEJE