Script Program Penghitungan Volume Benda

Bismillahirrahmanirrahim.
Program Penghitungan Volume Benda  dibuat menggunakan bahasa pemrograman pascal. Program ini bisa digunakan untuk menghitung volume sebuah benda dengan berbagai bentuk. Contohnya Akuarium, Bak Mandi, Tabung dll.

Program VolumeMath;
Uses Crt;
Const Phi = 3.14;
Var
panjang,lebar,tinggi,alas,jari : real;
Volume,rusuk : real;
pilih,I :integer;
Begin
Pilih := 1;
While pilih <> 0 Do
Begin
ClrScr;
Gotoxy(13,3); write ('MENGHITUNG VOLUME DENGAN PASCAL');
Gotoxy(13,4); write ('===============================');
Gotoxy(13,6); write ('1. Menghitung Volume Balok');
Gotoxy(13,7); write ('2. Menghitung Volume Kubus');
Gotoxy(13,8); write ('3. Menghitung Volume Prisma');
Gotoxy(13,9); write ('4. Menghitung Volume Tabung');
Gotoxy(13,10); write ('5. Menghitung Volume Limas');
Gotoxy(13,11); write ('6. Menghitung Volume Kerucut');
Gotoxy(13,12); write ('7. Menghitung Volume Bola');
Gotoxy(13,13); write ('0. Keluar dari Program');
Gotoxy(13,15); write ('Pilihan Anda?');
Read (pilih);
Case pilih of
1: Begin
clrscr; panjang := 0; lebar := 0; tinggi:= 0;
Gotoxy(13,3); Write('MENCARI VOLUME BALOK');
Gotoxy(13,4); Write('====================');
Gotoxy(13,6); Write('Panjang Balok = ');Readln(panjang);
Gotoxy(13,7); Write('Lebar Balok = ');Readln(lebar);
Gotoxy(13,8); Write('Tinggi Balok = ');Readln(tinggi);
Volume := panjang * lebar * tinggi;
Gotoxy(13,10); Write('Volume Balok = ', Volume:9:2);
Readkey;
End;
2: Begin
clrscr; rusuk := 0; rusuk := 0; rusuk :=0;
Gotoxy(13,3); Write('MENCARI VOLUME KUBUS');
Gotoxy(13,4); Write('====================');
Gotoxy(13,6); Write('Rusuk Kubus = ');Readln(rusuk);
Volume := rusuk * rusuk * rusuk;
Gotoxy(13,8); Write('Volume Kubus = ', Volume:9:2);
Readkey;
End;
3: Begin
clrscr; alas := 0; tinggi := 0;
Gotoxy(13,3); write('MENCARI VOLUME PRISMA');
Gotoxy(13,4); write('=====================');
Gotoxy(13,6); write('Alas Prisma = ');readln(alas);
Gotoxy(13,7); write('Tinggi Prisma = ');readln(tinggi);
Volume := alas * tinggi;
Gotoxy(13,9); write('Volume Prisma = ',Volume:9:2);
Readkey;
End;
4: Begin
clrscr; jari := 0; tinggi := 0;
Gotoxy(13,3); write('MENCARI VOLUME TABUNG');
Gotoxy(13,4); write('=====================');
Gotoxy(13,6); write('Jari-jari Tabung = ');readln(jari);
Gotoxy(13,7); write('Tinggi Tabung = ');readln(tinggi);
Volume := 2 * Phi * jari * jari + 2 * Phi * jari * tinggi;
Gotoxy(13,9); write('Volume Tabung = ',Volume:9:2);
Readkey;
End;
5: Begin
clrscr; alas := 0; tinggi := 0;
Gotoxy(13,3); write('MENCARI VOLUME LIMAS');
Gotoxy(13,4); write('====================');
Gotoxy(13,6); write('Alas Limas = ');readln(alas);
Gotoxy(13,7); write('Tinggi Limas = ');readln(tinggi);
Volume := 1/3 * alas * tinggi;
Gotoxy(13,9); write('Volume Limas = ',Volume:9:2);
Readkey;
End;
6: Begin
clrscr; alas := 0; tinggi := 0;
Gotoxy(13,3); write('MENCARI VOLUME KERUCUT');
Gotoxy(13,4); write('======================');
Gotoxy(13,6); write('Jari Kerucut = ');readln(jari);
Gotoxy(13,7); write('Tinggi Kerucut = ');readln(tinggi);
Volume := 1/3 * Phi * jari * jari * tinggi;
Gotoxy(13,9); write('Volume Kerucut = ',Volume:9:2);
Readkey;
End;
7: Begin
clrscr; alas := 0; tinggi := 0;
Gotoxy(13,3); write('MENCARI VOLUME BOLA');
Gotoxy(13,4); write('======================');
Gotoxy(13,6); write('Jari Bola = ');readln(jari);
Gotoxy(13,7); write('Panjang Bola = ');readln(panjang);
Volume := 4/3 * Phi * jari * jari;
Gotoxy(13,9); write('Volume Bola = ',Volume:9:2);
Readkey;
End;
End;
End;
End.

Untuk melihat penjelasan yang lebih detail mengenai script di atas, anda bisa download makalahnya. Terima Kasih, Semoga Bermanfaat
Fastabiqul Khairaats.

Continue >>>

Daftar Mata Kuliah Semester 1

These are list of my lesson at the first semester

Algoritma dan Pemrograman oleh Bpk. Yusuf Wibisono, SE

Bahasa Inggris Bisnis oleh Bpk. Khairul Fadly, S.Pd

Pengantar Media Sosial oleh Bpk. Muhammad Fadli, S.Hut, M.Si

Interaksi Manusia dan Komputer oleh Ibu. Tina Triwulansari, S.Kom

Pendidikan Agama oleh Bpk. Nanang Supratman, S.PdI

Continue >>>

Script Program Matematika

Program PasMath;
Uses Crt;
Const Phi = 3.14;
Var
  pjg,lbr,jari,alas,tinggi : real;
  luas,kel : real;
  pilih : integer;
Begin
   pilih := 1;
   While pilih <> 0 Do
   Begin
      ClrScr;
      Gotoxy(13,3); Write('PROGRAM MATEMATIKA DENGAN PASCAL');
      Gotoxy(13,4); Write('================================');
      Gotoxy(13,6); Write('1. MENGHITUNG LUAS DAN KELILING SEGIEMPAT');
      Gotoxy(13,7); Write('2. MENGHITUNG LUAS DAN KELILING LINGKARAN');
      Gotoxy(13,8); Write('3. MENGHITUNG LUAS SEGITIGA');
      Gotoxy(13,9); Write('0. KELUAR DARI PROGRAM');
      Gotoxy(13,11); Write('Pilihan Anda?');
      Read(pilih);
      Case pilih of
       1: Begin
             ClrScr; pjg := 0; lbr := 0;
             Gotoxy(13,3); Write('MENGHITUNG LUAS DAN KELILING SEGIEMPAT');
             Gotoxy(13,4); Write('======================================');
             Gotoxy(13,6); Write('1. Masukkan panjang segiempat = '); Readln(pjg);
             Gotoxy(13,7); Write('2. Masukkan lebar segiempat   = '); Readln(lbr);
             luas := pjg * lbr;
             kel := 2 * (pjg + lbr);
             Gotoxy(13,9);  Write('Luas segiempat adalah         = ', luas:9:2);
             Gotoxy(13,10); Write('Keliling segiempat adalah     = ', kel:9:2);

             Readkey;
          End;
       2: Begin
             ClrScr; jari := 0;
             Gotoxy(13,3); Write('MENGHITUNG LUAS DAN KELILING LINGKARAN');
             Gotoxy(13,4); Write('======================================');
             Gotoxy(13,6); Write('Jari-jari lingkaran        = '); Readln(jari);
             luas := Phi * jari *jari;
             kel := 2 * Phi * jari;
             Gotoxy(13,8); Write ('Luas lingkaran adalah     = ', luas:9:2);
             Gotoxy(13,9); Write('Keliling lingkaran adalah  = ', kel:9:2);
             Readkey;
          End;
       3: Begin
             ClrScr; alas := 0; tinggi := 0;
             Gotoxy(13,3); Write('MENGHITUNG LUAS SEGITIGA');
             Gotoxy(13,4); Write('========================');
             Gotoxy(13,6); Write('Alas segitiga    = '); Readln(alas);
             Gotoxy(13,7); Write('Tinggi segitiga  = '); Readln(tinggi);
             luas := 0.5 * alas * tinggi;
             Gotoxy(13,9); Write('Luas segitiga    = ', luas:9:2);
             Readkey;
          End;
      End;
   End;
End.

Continue >>>

Smart Everything Community: SLANK

Smart Everything Community: SLANK: Hi Chick  Hai cewek (teenager) Hi Guys  Hai Cowok (teenager) How're You Doing?  Gimana kabar loe? Whacca Gonna Go?  Mau ngapa...

Continue >>>

Tips Sukses Debat Bahasa Inggris dan Indonesia

Satu hal yang harus anda lihat pada debat adalah gaya berbicara yang berbeda dengan pesaing. Gaya berbicara mungkin salah satu aspek berdebat yang cukup sulit untuk di ajarkan. Anda harus mengembangkan gaya Anda sendiri dan sebaiknya datang secara alami dari diri Anda. Namun ada beberapa hal yang harus diingat.

1. Anda harus berbicara dengan jelas dan cukup keras sehingga suara Anda dapat didengar oleh semua orang. Ingat juri akan duduk ke arah belakang lorong jadi setidaknya mereka harus mampu mendengar apa yang Anda katakan jika Anda memiliki kesempatan untuk menang. Namun Anda tidak harus berteriak seperti lorong-lorong umumnya telah dirancang sedemikian rupa sehingga suara Anda akan membawa ke arah belakang.

2. Cobalah untuk menghindari monoton. Jika Anda membuat poin penting menggunakan suara untuk stres dan membuatnya menonjol. Cobalah untuk perlahan-lahan meningkatkan stres dan kekuatan di balik suara Anda saat Anda pergi melalui pidato Anda. Membangun hingga titik tinggi dan membuat titik penting dari pidato Anda. Namun tidak membawa penonton pada rollercoaster. Jangan mulai tinggi, jatuh, membangun-up dan jatuh lagi, tampak seolah-olah Anda hanya yakin tentang kebenaran setengah pidato Anda.

3. Jaga kontak mata dengan penonton dan tidak menatap podium. Itu akan lebih mudah untuk melakukan ini setelah beberapa pengalaman dan sekali Anda menggunakan catatan sedikit. Beberapa orang suka untuk memilih individu dalam penonton dan melihat mereka. Yang lain hanya berbicara kepada penonton secara keseluruhan. Namun Anda melakukannya pastikan untuk memindai penonton dan memindahkan pandangan Anda ke berbagai bagian aula teratur.

4. Gunakan bahasa tubuh Anda untuk membuat cadangan bicara Anda. Jika Anda berdiri kaku dan tidak bergerak maka Anda akan merasa sangat sulit untuk memiliki keyakinan yang nyata dalam suara Anda. Gunakan lengan dan ekspresi wajah untuk menyampaikan emosi Anda dan back up pidato Anda. Namun jangan berlebihan, Anda ingin perhatian penonton akan difokuskan pada pidato Anda tidak lengan. Cobalah untuk tidak memiliki apa-apa di tangan Anda. Beberapa orang ingin membawa pena dan akhirnya melambaikan tentang seperti tongkat yang dapat mengalihkan perhatian juri. Jika Anda benar-benar membutuhkan sesuatu menggunakan kartu indeks.

5. Anda tidak harus berdiri ketat di belakang podium. Bergerak sedikit dan menghadapi berbagai bagian dari penonton pada waktu yang berbeda. Rupanya penelitian telah menunjukkan bahwa orang cenderung lebih suka untuk dapat melihat seluruh orang seperti ini seharusnya untuk menunjukkan bahwa Anda tidak menyembunyikan apa pun. Namun, sekali lagi, jangan berlebihan. Ini mengganggu orang (dan yang lebih penting adjudicator) jika Anda berjalan terlalu jauh dari podium. Cobalah untuk tidak pergi lebih dari 1-2 meter dari podium. Salah satu cara untuk memastikan ini adalah untuk meninggalkan catatan di podium, Anda akan menemukan diri Anda enggan untuk bergerak terlalu jauh dari mereka.

6. Jangan terlalu rumit. Jika argumen Anda terlalu rumit orang mungkin mengalami kesulitan mengikutinya. Jangan gunakan kata-kata Latin 15 suku kata ketika 2 suku kata dalam bahasa Inggris akan dilakukan. Ingat Anda sedang mencoba untuk meyakinkan penonton bahwa argumen Anda adalah yang terbaik dan tidak yang Anda anggap bakat Anda terbuang pada mereka (bahkan jika itu adalah).

7. Gunakan humor untuk membantu memenangkan penonton dan membuat pidato Anda menonjol. Jika Anda memiliki bakat alami untuk komedi atau menirukan dll maka gunakanlah. Jika tidak maka jangan khawatir tentang hal itu, bahkan yang paling serius dari kita bisa lucu di kali (bahkan sering tanpa makna itu). Anda dapat bekerja di luar merendahkan sedikit dan satu kalimat di muka tapi hati-hati. Jika lelucon terdengar terlalu siap daripada mungkin bom. Cobalah untuk membuatnya terdengar spontan dan itu lebih mungkin berhasil.

Hal terbaik untuk dilakukan adalah melihat pembicara lain dan melihat bagaimana mereka menggabungkan berbagai elemen. Percobaan dengan gaya yang berbeda dan mencoba untuk menemukan satu yang Anda merasa nyaman dengan. Namun satu-satunya cara nyata untuk mengembangkan gaya yang baik adalah mencoba untuk berbicara secara teratur dan mendengarkan saran dari juri dan debat lebih berpengalaman

Continue >>>