Sunday, August 21, 2011

Program Perhitungan Bangun Ruang - Pascal


Program Contoh;
uses wincrt;
label
     lagi;
var Bangun,S,P,L,T,LA,R,n : integer;
    tanya: char;
    V1,V2,V3,V4,V5   : real;
begin
clrscr;
lagi:
GotoXY(16,3); writeln ('  Macam-macam Perhitungan Bangun Ruang  ');
GotoXY(15,4); writeln ('*========================================*');
GotoXY(20,5); writeln ('1.Hitung Luas Volume Kubus                ');
GotoXY(20,6); writeln ('2.Hitung Luas Volume Balok                ');
GotoXY(20,7); writeln ('3.Hitung Luas Volume Prisma               ');
GotoXY(20,8); writeln ('4.Hitung Luas Volume Kerucut              ');
GotoXY(20,9); writeln ('5.Hitung Luas Volume Limas                ');
GotoXY(15,10); writeln ('==========================================');

GotoXY(15,11); write ('Pilihan Anda: '); readln (n);
writeln;

         if n=1 then
         begin
           writeln ('Menghitung Luas Volume Kubus');
           writeln ('============================================');
           write ('Sisi:  '); readln(S);
             V1:=S*S*S;
           writeln ('Volume Kubus= ',V1:2:2);
             readln;
        end
      else
      if n=2 then
      begin
       writeln ('Mengitung Luas Volume Balok');
       writeln ('=================================');
       write('Panjang     : '); readln(P);
       write('Lebar       : '); readln(L);
       write('Tinggi      : '); readln(T);
         V2:=P*L*T;
       writeln ('Volume Balok = ',V2:2:2);
readln;
end
else

    if n=3 then
    begin
       writeln('Menghitung Luas Volume Prisma');
       writeln('==================================');
       write('Luas ALas : '); readln(LA);
       write('Tinggi    : '); readln(T);
       V3:=LA*T;
       writeln('Volume Prisma = ',V3:2:2);
  readln;
end
else
   if n=4 then
      begin
       writeln ('Mengitung Luas Volume Kerucut');
       writeln ('=================================');
       write('Jari-jari : '); readln(R);
       write('Tinggi    : '); readln(T);
         V4:=pi*R*R*T*(1/3);
       writeln ('Volume Kerucut= ',V4:2:2);
   readln;
end
else
 if n=5 then
      begin
       writeln ('Mengitung Luas Volume Limas');
       writeln ('=================================');
       write('Luas Alas     : '); readln(LA);
       write('Tinggi      : '); readln(T);
         V5:=(1/3)*LA*T;
       writeln ('Volume Limas= ',V5:2:2);
readln;
end
  else
  begin
       Gotoxy(20,16); writeln('Pilihan Anda Tidak ada di Menu...');
  end;

       writeln;
       write ('Mau menghitung lagi [Y/T] ? '); readln(tanya);
  if tanya=upcase('y') then
  begin
       clrscr;
       goto lagi;
  end
  else
       clrscr;
       gotoxy(30,10); writeln ('Terima Kasih ^_^');
  readln;
end.

Download  Program Perhitungan Bangun Ruang



Related Post

12 comments:

  1. --a panjang banget ~~ gk boleh ngeluh deh. makasihnya gan. kalau variabel menghitung lingkar luar yg gimana sih ?

    ReplyDelete
  2. skrip di atas di pake dimana sob. blog ya?

    ReplyDelete
  3. @Mahardhieka:yups. thanks kembali :).

    thanks sudah request. nanti akan segera saya tindak lanjutin :)

    ReplyDelete
  4. @Said Arsyad:script diatas di gunakan untuk membuat sebuah program pascal bukan di blog sob. karena label nya programming. so pembuatannya menggunakan program turbo pascal. kl sobat berminat silahkan download aplikasi disini

    ReplyDelete
  5. muke gila..... gk ngerti...

    tp kyknya si agan org pintar ... ngerti pascal lagi... mantab :) keep work :)

    ReplyDelete
  6. bos q coba run kok g bisa ya...

    solusi...

    ReplyDelete
  7. @chiwacom:bs koq sob...klik yg berektensi "aplication" yg berwarna putih. atau gunakan aplikasi turbo pascal yg bisa sobat download di blog ini

    thanks atas kunjungan n komentarnya

    ReplyDelete
  8. @Majalah Bisnis Bergaya:haha thanks sob...

    thu program yg ane buat sewaktu uts thun kemarin.. :)..biasakan belajar pascal lambat laun ntar jg ngerti n terbiasa koq krna bhs pascal thu cukup menyenangkan :)

    ReplyDelete
  9. @Xavi De:hhaha awalnya ane juga gt sob tp kl dibiasakan n rajin bljr ntar jg ngerti koq ;)

    ReplyDelete
  10. Aplikasi Bangun Ruang untuk Ponsel atau Tablet Android, sudah ditest di Sony Ericsson Live, lancar. Minimum Versi Android Gingerbread.
    http://aksisoft.com/aplikasi-bangun-ruang-android/

    ReplyDelete
  11. gan kalo cara menjadikan exe nya gmana? jadi biar gak di buka lwat pascal gtu lngsung buka,,,, cara nya gmana gan??

    ReplyDelete

Mohon tinggalkan jejak/komentar sobat disini. Dilarang SPAM. Okey...