Program c++ Tentang Rumus-rumus Fisika

helloo...
berjumpa lagi dengan saya ✋

kali ini saya masih membahas tentang dunia pemrograman.
portigan saya kali ini adalah salah satu projek kuliah, yaa jadi mungkin banyak kesalahannya kali yaa :v

Program Sederhana Tentang Rumus-rumus Fisika

ya waktu itu saya mendapatkan tugas untuk membuat program dengan menggunakan bahasa c++ dan salah satu temanya yaitu sains dan sayapun menggunakan tema tersebutlahh hehee...

program yang saya buat kali ini sangatlah sederhana...

berikut adalah listing codenya!
#include <conio.h>
#include <iostream.h>
#define awal {
#define akhir }
#define mulai() main()
#define cetak cout
#define masuk cin
#define hapus() clrscr()
#define tahan() getch()

#define pindah endl
mulai()
{
   int i, j;
   float  m, r, I, F, s, W, p, t, v, P, Ep, g, h, Ek, Em;
   char kode[10], lagi;
   cetak<<pindah;
   request:
cetak<<"        *SEPUTAR TENTANG RUMUS-RUMUS DALAM FISIKA*"<<pindah;
   cetak<<"----------------------------------------------------------"<<pindah;
   cetak<<"Kami menyediakan sedikit rumus-rumus dasar fisika,"<<pindah;
   cetak<<"sebagai berikut :"<<endl;
   cetak<<" --------------------------------"<<pindah;
   cetak<<"|kode |            BAB           |"<<pindah;
   cetak<<" --------------------------------"<<pindah;
   cetak<<"| 1.  | Momen Inersia  [I]       |"<<pindah;
   cetak<<"| 2.  | Usaha          [W]       |"<<pindah;
   cetak<<"| 3.  | Daya           [p]       |"<<pindah;
   cetak<<"| 4.  | Kecepatan      [v]       |"<<pindah;
   cetak<<"| 5.  | Momentum       [P]       |"<<pindah;
   cetak<<"|     | Energi, dibagi menjadi : |"<<pindah;
   cetak<<"| 6.  |  a. Energi Potensial [Ep]|"<<pindah;
   cetak<<"| 7.  |  b. Energi Kinetik   [Ek]|"<<pindah;
   cetak<<"| 8.  |  c. Energi Mekanik   [Em]|"<<pindah;
   cetak<<" --------------------------------"<<pindah;
   cetak<<pindah;
   cetak<<" --------------------------------------------------------"<<pindah;
   cetak<<"|Nb :                                                    |"<<pindah;
   cetak<<"|   *Program ini hanya bisa menyelesaikan rumus utama.   |"<<pindah;
   cetak<<"|    Tidak bisa memutar balikan rumus                    |"<<pindah;
   cetak<<"|   *Program ini hanya bisa menghitung rumus sederhananya|"<<pindah;
   cetak<<"|    Tidak bisa menghitung rumus yang rumit, jadi harus  |"<<pindah;
   cetak<<"|    sesuai dengan apa yang dicantumkan pada program ini |"<<pindah;
   cetak<<"|   *Perhatikan inputan(besar-kecil) kode rumus          |"<<pindah;
   cetak<<" ---------------------------------------------------------"<<pindah;
   cetak<<"----------------------------------------------------------"<<pindah;
   cetak<<pindah;
   cetak<<"Anda Ingin Menggunakan Berapa Rumus[1-8]? : ";masuk>>j;
   cetak<<pindah;

   for(i=1;i<=j;i++)
   {
    cetak<<"Rumus ke-"<<i<<pindah;
      cetak<<" *Masukan Kode Rumus[1-8] :";masuk>>kode[i];
      cetak<<pindah;
   }
   hapus();
   for(i=1;i<=j;i++)
   {
    if(kode[i]=='1')
      {
            cetak<<"*MOMEN INERSIA*"<<pindah;
            cetak<<pindah;
            cetak<<"CONTOH SOAL !"<<pindah;
          cetak<<"Bola bermassa 100 gram dihubungkan dengan seutas"<<pindah;
            cetak<<"tali yang panjangnya 30 cm seperti pada gambar."<<pindah;
            cetak<<"Momen inersia bola terhadap sumbu AB adalah…"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<"      m = 0.1 Kg"<<pindah;
            cetak<<"      r = 0.3 Kg"<<pindah;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      I = m*r^2"<<pindah;
            cetak<<"        = [0.1]*[0.3]^2"<<pindah;
            cetak<<"        = 0.009 Kg/m^2"<<pindah;
            cetak<<"Jadi Momen Inersianya adalah 0.009 Kg/m^2"<<pindah;
            cetak<<pindah;
            cetak<<"Latihan Soal !"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<" -----------------------------------"<<pindah;
            cetak<<"|Nb :                               |"<<pindah;
            cetak<<"|  *Satuan Massa(m) harus dalam [Kg]|"<<pindah;
            cetak<<"|  *Satuan Jarak(r) Harus dalam [m] |"<<pindah;
            cetak<<" -----------------------------------"<<pindah;
            cetak<<"      Masukan Massa [m] : ";masuk>>m;
            cetak<<"      Masukan Jarak [r] : ";masuk>>r;
            I=m*(r*r);
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      I = m*r^2"<<pindah;
            cetak<<"        = "<<I<<" Kg/m^2"<<pindah;
            cetak<<pindah;
            cetak<<"Jadi Momen Inersianya adalah "<<I<<" Kg/m^2"<<pindah;
            tahan();
            hapus();
         }
      else if(kode[i]=='2')
      {
            cetak<<"*USAHA*"<<pindah;
            cetak<<pindah;
            cetak<<"CONTOH SOAL !"<<pindah;
            cetak<<"Sebuah balok dengan massa M berada pada bidang datar"<<pindah;
            cetak<<"balok tersebut ditarik oleh gaya sebesar 30 N ke kanan."<<pindah;
            cetak<<"Jika balok berpindah sejauh 50 cm maka hitunglah usaha"<<pindah;
            cetak<<"yang dilakukan oleh gaya tersebut!"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<"      F = 30 N"<<pindah;
            cetak<<"      s = 0,5 m"<<pindah;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      W = F*s"<<pindah;
            cetak<<"        = 30*0.5"<<pindah;
            cetak<<"        = 15 Joule"<<pindah;
            cetak<<"Jadi Usaha yang dihasilkan adalah 15 Joule"<<pindah;
            cetak<<pindah;
            cetak<<"Latihan Soal !"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<" ----------------------------------"<<pindah;
            cetak<<"|Nb :                              |"<<pindah;
            cetak<<"|  *Satuan gaya(F) harus dalam [N] |"<<pindah;
            cetak<<"|  *Satuan Jarak(s) Harus dalam [m]|"<<pindah;
            cetak<<" ----------------------------------"<<pindah;
            cetak<<"      Masukan Gaya[F] : ";masuk>>F;
            cetak<<"      Masukan Jarak[s]: ";masuk>>s;
            W = F*s;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      W = F*s"<<pindah;
            cetak<<"        = "<<W<<"Joule"<<pindah;
            cetak<<pindah;
            cetak<<"Jadi Usaha yang dihasilkan adalah "<<W<<" Joule"<<pindah;
            tahan();
            hapus();
         }
      else if(kode[i]=='3')
      {
          cetak<<"*DAYA*"<<pindah;
            cetak<<pindah;
            cetak<<"CONTOH SOAL !"<<pindah;
            cetak<<"Energi lampu pijar dalam waktu satu menit adalah "<<pindah;
            cetak<<"1200 joule. Berapakah daya pada lampu pijar tersebut?"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<"      W = 1200 Joule"<<pindah;
            cetak<<"      t = 60 sekon"<<pindah;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      p = W/t"<<pindah;
            cetak<<"        = 1200/60"<<pindah;
            cetak<<"        = 20 watt"<<pindah;
            cetak<<"Jadi daya lampu pijar selama 1 menit adalah 20 watt"<<pindah;
            cetak<<pindah;
            cetak<<"Latihan Soal !"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<" --------------------------------------"<<pindah;
            cetak<<"|Nb :                                  |"<<pindah;
            cetak<<"|  *Satuan Usaha(W) harus dalam [Joule]|"<<pindah;
            cetak<<"|  *Satuan Waktu(t) Harus dalam [sekon]|"<<pindah;
            cetak<<" --------------------------------------"<<pindah;
            cetak<<"      Masukan Usaha[W] : ";masuk>>W;
            cetak<<"      Masukan Waktu[t] : ";masuk>>t;
            p=W/t;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      p = W/t"<<pindah;
            cetak<<"        = "<<p<<" watt"<<pindah;
            cetak<<pindah;
            cetak<<"Jadi Daya yang dihasilkan adalah "<<p<<" Watt"<<pindah;
            tahan();
            hapus();
         }
      else if(kode[i]=='4')
      {
          cetak<<"*KECEPATAN*"<<pindah;
            cetak<<pindah;
            cetak<<"CONTOH SOAL !"<<pindah;
            cetak<<"Untuk menempuh jarak sepanjang 8 km waku yang diperlukan "<<pindah;
            cetak<<"adalah 30 menit. Berapa kecepatan yang harus digunakan?"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<"      s = 8000 m"<<pindah;
            cetak<<"      t = 1800 sekon"<<pindah;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      v = s/t"<<pindah;
            cetak<<"        = 8000/1800"<<pindah;
            cetak<<"        = 4.44 m/s"<<pindah;
            cetak<<"Jadi Kecepatannya adalah 4.44 m/s"<<pindah;
            cetak<<pindah;
            cetak<<"Latihan Soal !"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<" --------------------------------------"<<pindah;
            cetak<<"|Nb :                                  |"<<pindah;
            cetak<<"|  *Satuan Jarak(s) harus dalam [meter]|"<<pindah;
            cetak<<"|  *Satuan Waktu(t) Harus dalam [sekon]|"<<pindah;
            cetak<<" --------------------------------------"<<pindah;
            cetak<<"      Masukan jarak[s] : ";masuk>>s;
            cetak<<"      Masukan Waktu[t] : ";masuk>>t;
            v=s/t;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"       v= s/t"<<pindah;
            cetak<<"        = "<<v<<" m"<<pindah;
            cetak<<pindah;
            cetak<<"Jadi kecepatan yang dihasilkan adalah "<<v<<" m/s"<<pindah;
            tahan();
            hapus();
         }
      else if(kode[i]=='5')
      {
          cetak<<"*MOMENTUM*"<<pindah;
            cetak<<pindah;
            cetak<<"CONTOH SOAL !"<<pindah;
            cetak<<"Benda bermassa 1 kg bergerak dengan kecepatan 10 m/s."<<pindah;
            cetak<<"Momentum benda tersebut adalah?"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<"      m = 1 kg"<<pindah;
            cetak<<"      v = 10 meter/sekon"<<pindah;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      P = m*v"<<pindah;
            cetak<<"        = 1*10"<<pindah;
            cetak<<"        = 10 kg m/s^2"<<pindah;
            cetak<<"Jadi Kecepatannya adalah 10 kg m/s^2"<<pindah;
            cetak<<pindah;
            cetak<<"Latihan Soal !"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<" ----------------------------------------"<<pindah;
            cetak<<"|Nb :                                    |"<<pindah;
            cetak<<"|  *Satuan Massa(m) harus dalam [kg]     |"<<pindah;
            cetak<<"|  *Satuan Kecepatan(v) Harus dalam [m/s]|"<<pindah;
            cetak<<" ----------------------------------------"<<pindah;
            cetak<<"      Masukan massa[m]     : ";masuk>>m;
            cetak<<"      Masukan kecepatan[v] : ";masuk>>v;
            P=m*v;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"       P = m*v"<<pindah;
            cetak<<"         = "<<P<<" kg m/s^2"<<pindah;
            cetak<<pindah;
            cetak<<"Jadi momentum bendanya adalah "<<P<<" kg m/s^2"<<pindah;
            tahan();
            hapus();
         }
      else if(kode[i]=='6')
      {
          cetak<<"*ENERGI POTENSIAL*"<<pindah;
            cetak<<pindah;
            cetak<<"CONTOH SOAL !"<<pindah;
            cetak<<"Sebuah bola yang memiliki massa 2 kg, terletak di atas almari"<<pindah;
            cetak<<"dengan ketinggian 3 m. Berapakah energi potensial bola?"<<pindah;
            cetak<<"(percepatan gravitasi bumi = 10 m/s^2)"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<"      m = 2 kg"<<pindah;
            cetak<<"      h = 3 meter"<<pindah;
            cetak<<"      g = 10 meter/sekon^2"<<pindah;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      Ep = m*g*h"<<pindah;
            cetak<<"         = 1*10*3"<<pindah;
            cetak<<"         = 30 Joule"<<pindah;
            cetak<<"Jadi Energi Potensialnya adalah 30 Joule"<<pindah;
            cetak<<pindah;
            cetak<<"Latihan Soal !"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<" --------------------------------------"<<pindah;
            cetak<<"|Nb :                                      |"<<pindah;
            cetak<<"|  *Satuan Massa(m) harus dalam [kilogram] |"<<pindah;
            cetak<<"|  *Satuan Tinggi(h) Harus dalam [meter]   |"<<pindah;
            cetak<<"|  *Satuan Gravitasi(g) Harus dalam [m/s^2]|"<<pindah;
            cetak<<" --------------------------------------"<<pindah;
            cetak<<"      Masukan massa[m]     : ";masuk>>m;
            cetak<<"      Masukan gravitasi[g] : ";masuk>>g;
            cetak<<"      Masukan tinggi[h]    : ";masuk>>h;
            Ep=m*g*h;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"       Ep = m*g*h"<<pindah;
            cetak<<"          = "<<Ep<<" Joule"<<pindah;
            cetak<<pindah;
            cetak<<"Jadi Energi Potensialnya adalah "<<Ep<<" Joule"<<pindah;
            tahan();
            hapus();
         }
      else if(kode[i]=='7')
      {
          cetak<<"*ENERGI KINETIK*"<<pindah;
            cetak<<pindah;
            cetak<<"CONTOH SOAL !"<<pindah;
            cetak<<"Santo mengendarai sepeda ontel dengan kecepatan 2 m/s."<<pindah;
            cetak<<"Jika massa sepeda Santo 20 kg. Berapakah energi kinetiknya?"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<"      m = 20 kg"<<pindah;
            cetak<<"      v = 2 m/s"<<pindah;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      Ek = 0.5*m*(v^2)"<<pindah;
            cetak<<"         = 0.5*20*(2^2)"<<pindah;
            cetak<<"         = 40 Joule"<<pindah;
            cetak<<"Jadi Energi Kinetiknya adalah 40 Joule"<<pindah;
            cetak<<pindah;
            cetak<<"Latihan Soal !"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<" --------------------------------------"<<pindah;
            cetak<<"|Nb :                                      |"<<pindah;
            cetak<<"|  *Satuan Massa(m) harus dalam [kilogram] |"<<pindah;
            cetak<<"|  *Satuan kecepatan(v) Harus dalam [m/s]  |"<<pindah;
            cetak<<" --------------------------------------"<<pindah;
            cetak<<"      Masukan massa[m]     : ";masuk>>m;
            cetak<<"      Masukan kecepatan[v] : ";masuk>>v;
            Ek=0.5*m*(v*v);
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"       Ek = 0.5*m*(v^2)"<<pindah;
            cetak<<"          = "<<Ek<<" Joule"<<pindah;
            cetak<<pindah;
            cetak<<"Jadi Energi Kinetiknya adalah "<<Ek<<" Joule"<<pindah;
            tahan();
            hapus();
         }
      else if(kode[i]=='8')
      {
          cetak<<"*ENERGI MEKANIK*"<<pindah;
            cetak<<pindah;
            cetak<<"CONTOH SOAL !"<<pindah;
            cetak<<"Sebuah mangga yang massanya 100 gram dilempar secara vertikal"<<pindah;
            cetak<<"ke atas. Pada waktu ketinggiannya 10 meter dari permukaan"<<pindah;
            cetak<<"tanah memiliki kecepatan 4 m/s. Berapakah energi mekanik buah"<<pindah;
            cetak<<"mangga pada saat tersebut? Jika g =10 m/s2"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<"      m = 0.1 kg"<<pindah;
            cetak<<"      g = 10 m/s^2"<<pindah;
            cetak<<"      h = 10 m"<<pindah;
            cetak<<"      v = 4 m/s"<<pindah;
            cetak<<"Penyelesaian:"<<pindah;
            cetak<<"      Ep = m*g*h"<<pindah;
            cetak<<"         = 0.1*10*10"<<pindah;
            cetak<<"         = 10 joule"<<pindah;
            cetak<<"      Ek = 0.5*m*(v^2)"<<pindah;
            cetak<<"         = 0.5*0.1*(4^2)"<<pindah;
            cetak<<"         = 0.8 Joule"<<pindah;
            cetak<<"      Em = Ep+Ek"<<pindah;
            cetak<<"         = 10+0.8"<<pindah;
            cetak<<"         = 10.8"<<pindah;
            cetak<<"Jadi Energi Mekaniknya adalah 10.8 Joule"<<pindah;
            cetak<<pindah;
            cetak<<"Latihan Soal !"<<pindah;
            cetak<<"diketahui:"<<pindah;
            cetak<<" ------------------------------------------"<<pindah;
            cetak<<"|Nb :                                      |"<<pindah;
            cetak<<"|  *Satuan Massa(m) harus dalam [kilogram] |"<<pindah;
            cetak<<"|  *Satuan Gravitasi(g) Harus dalam [m/s^2]|"<<pindah;
            cetak<<"|  *Satuan Tinggi(h) Harus dalam [meter]   |"<<pindah;
            cetak<<"|  *Satuan kecepatan(v) Harus dalam [m/s]  |"<<pindah;
            cetak<<" ------------------------------------------"<<pindah;
            cetak<<"      Masukan massa[m]         : ";masuk>>m;
            cetak<<"      Masukan gaya garvitasi[g]: ";masuk>>g;
            cetak<<"      Masukan ketinggian[h]    : ";masuk>>h;
            cetak<<"      Masukan kecepatan[v]     : ";masuk>>v;
            cetak<<"Penyelesaian:"<<pindah;
            Ep=m*g*h;
            cetak<<"       Ep = m*g*h"<<pindah;
            cetak<<"          = "<<Ep<<" Joule"<<pindah;
            cetak<<pindah;
            Ek=0.5*m*(v*v);
            cetak<<"       Ek = 0.5*m*(v^2)"<<pindah;
            cetak<<"          = "<<Ek<<" Joule"<<pindah;
            cetak<<pindah;
            Em=Ep+Ek;
            cetak<<"       Em = Ep+Ek"<<pindah;
            cetak<<"          = "<<Em<<" Joule"<pindah;
            cetak<<pindah;
            cetak<<"Jadi Energi Mekaniknya adalah "<<Em<<" Joule"<<pindah;
            tahan();
            hapus();
         }
      else
      {
          cetak<<"ANDA SALAH MEMASUKAN KODE !"<<pindah;
         }
   }

cetak<<"Ingin Request Rumus Lagi[Y/T] : ";masuk>>lagi;
    if(lagi=='Y'||lagi=='y')
      {goto request;}

tahan();
}

yaa begitulah listing kode dari program c++ yang saya buat

sangat sederhana bukan hehee...

mohon kritik dan sarannya yaa...

untuk melihat outputnya silahkan di running di softwere c