Mengubah Ekspresi Matematika ke dalam Bahasa Delphi/ Pascal

Assalamu'alaikum Sweabyers !!!

Ketemu lagi dengan postingan~postingan aku seputar "Algoritma dan Pemrograman".
Postingan kali ini membahas tentang "Mengubah Ekspresi matematika ke dalam Bahasa Delphi/Pascal". Oh ya, sebelum aku bahas tentang postingan karena hari ini masuk pada bulan januari jadi aku mau ngucapin "HAPPY NEW YEARS 2015 GUYSSS" hehe
Semoga tahun ini menjadi tahun yang lebih baik dan lebih ini buat kita semua, aamiin :):):)
Oke langsung saja kembali pada topik. Sebelumnya udah aku kasih postingan tentang Ekspresi matematika yang lebih mudah tentang "Luas Persegi panjang dan Luas segitiga". Kalo kalian udah lupa, kalian bisa scroll down asrip blog aku disana pasti ada deh! Sekalian kita flashback gitu?? hehe :P


Kali ini kita akan merubah 7 Ekspresi matematika yang sedikit lebih sulit dari postingan sebelumnya ke dalam Bahasa Delphi. Berikut ini 7 Ekspresi matematika yang aku maksud, yakni:

a. Ekspresi Matematika Pertama  (E = mc² )

            E = mc² dalam ilmu fisika adalah sebuah rumus yang sering dikenal dan sangat penting dalam
      menjelaskan persamaan nilai antara energi (E) dan massa (m), yang disetarakan secara langsung
      melalui konstanta kuadrat laju cahaya dalam vakum ( c ² ).

,

      yang mana:

• E = energi (J)
• m = massa (kg)
• c = kecepatan cahaya (m.s^-1)

      Salin script berikut ini pada delphi kalian untuk membuat program ekspresi matematika diatas.
    

      uses

         SysUtils;

      var

         e:real;

         m,c:integer;

      begin

         writeln (' EKSPRESI MATEMATIKA 1 ');

         writeln (‘ E: m. (c.c )’);

         writeln;

         writeln (' masukkan nilai m= '); readln(m);

         writeln (' masukkan nilai c= '); readln(c);

         e:= m* SQR(c);

         writeln (' E: m x quadrat dari c = ', e:10:2);

     readln;

     end.

    Jika tersalin seperti pada gambar dibawa ini, jalankan programnya.

                            Keterangan Program:

                    e: real maksudnya ialah nilai e menggunakan type data bilangan desimal.

                    m,c :integer maksudnya ialah niali m dan c menggunakan type data bilangan bulat.

                    SQR(c) maksudnya ialah nilai c merupakan angka kuadrat.

                      e :10:2 , kedua variabel diatas bisa diisi sampai 10 digit angka di depan koma dan
                      memiliki ketilitian sampai 2 digit di belakang koma.

   

 Jika program sudah berjalan, maka tampilan program seperti berikut ini.

     Masukkan nilai m dan c sesuai keinginan kalian, tekan enter dan hasilnya akan muncul.

    Jika hasil yang kalian inginkan keluar, maka program kalian berhasil dan selesai.

b. Ekspresi Matematika Kedua (L=¼.πd²)

          Dalam geometri Euklid, sebuah lingkaran adalah himpunan semua titik pada bidang dalam

    jarak tertentu, yang disebut jari-jari, dari suatu titik tertentu, yang disebut pusat. Lingkaran adalah

    contoh dari kurva tertutup sederhana, membagi bidang menjadi bagian dalam dan bagian luar.

      
        Keterangan :

• Titik pusat (P) merupakan titik tengah lingkaran, dimana jarak titik tersebut dengan titik manapun pada lingkaran selalu tetap. 
•  Jari-jari (R) merupakan garis lurus yang menghubungkan titik pusat dengan lingkaran.
• Tali busur (TB) merupakan garis lurus di dalam lingkaran yang memotong lingkaran pada dua titik yang berbeda. 
• Busur (B) merupakan garis lengkung baik terbuka, maupun tertutup yang berimpit dengan lingkaran. 
• Diameter (D) merupakan tali busur terbesar yang panjangnya adalah dua kali dari jari-jarinya. Diameter ini membagi lingkaran sama luas.

    Untuk membuat program menghitung Luas lingkaran dengan rumus L=¼.πd² , salin script
    dibawah ini.
    
     uses
        SysUtils;
     var
        L:real;
       d:integer;
    begin
        writeln ('EKSPRESI MATEMATIKA 2');
        writeln ('L= 1/4xphi x 3.14 x (d.d) ');
        writeln;
        writeln ('masukkan nilai d= '); readln(d);
       L:=1/4*3.14*SQR(d);
      writeln ('Luas = ', L:10:2);
  readln;
  end.


  Jika sudah tersalin seperti berikut, jalankan programnya.
 

                  Keterangan Program:

                      L: real maksudnya ialah nilai L menggunakan type data bilangan desimal.

                      d :integer maksudnya ialah niali d menggunakan type data bilangan bulat.

                      SQR(d) maksudnya ialah nilai d merupakan angka pangkat kuadrat.

                        L :10:2 , kedua variabel diatas bisa diisi sampai 10 digit angka di depan koma dan
                        memiliki ketilitian sampai 2 digit di belakang koma.

 

    Jika program berjalan, tampilannya akan seperti berikut ini.

    Masukkan nilai d, misal 10. tekan enter dan hasilnya akan muncul.
   

    Jika hasil yang kalian inginkan muncul, maka program dikatakn berhasil.
    Dan selesai...

c. Ekspresi Matematika ketiga (c²= a ² + b ²)

    Ekspresi matematika ketiga membahas tentang Phytagoras. Rumus phytagoras di gunakan untuk menghitung panjang sisi dari segitiga siku~siku yang mana rumus dasar dari phytagoras ini adalah:

 "Dalam segitiga siku~siku, kuadrat sisi miring sama dengan jumlah dari dua kuadrat sisi lainnya."

Mencari Rumus Phytagoras

 Perhatikan segitiga diatas !
       Kuadrat sisi miring = Kuadrat sisi A + Kuadrat sisi B

Rumus yang lain :
^{A2  =  C2 –  B2
B2  =  C2 –  A2}
- See more at: http://gurules.org/cara-cepat-menghitung-rumus-phytagoras/#sthash.TfjqB6kh.dpuf

 c²= a ² + b ²

Rumus lainnya adalah : 
a²= c ² - b ² 
b²= c ² - a ²

 Salin script dibawah ini pada delphi kalian.

    uses

      SysUtils;

    var

      c:real;

      a,b:integer;

    writeln ('EKSPRESI MATEMATIKA 3');

    writeln ('akar(a.a) +(b.b)');

    writeln;

    writeln ('masukkan nilai a= '); readln(a);

    writeln ('masukkan nilai b= '); readln(b);

    c:= SQRT(SQR(a) +SQR(b) );

    writeln ('Nilai c= ', c:10:2);

    readln;

    end.

                  Keterangan Program:

                       c: real maksudnya ialah nilai Lcmenggunakan type data bilangan desimal.

                       a,b :integer maksudnya ialah niali a dan b menggunakan type data bilangan
                       bulat.

                       SQRT(SQR(a)+SQR(b)) maksudnya ialah SQRT merupakan rumus akar
                        kuadrat,

                       (SQR(a)+SQR(b) yang berarti nilai a dan b bernilai pangkat kuadrat.

                          c :10:2 , kedua variabel diatas bisa diisi sampai 10 digit angka di depan koma
                          dan memiliki ketilitian sampai 2 digit di belakang koma.

    Setelah tersalin, jalankan programnya. Program yang berjalan tampilannya seperti berikut ini. 

 

     Masukkan nilai a dan b, tekan enter dan hasilnya yang berupa nilai c akan keluar. seperti pada

     gambar berikut ini.

    Jika nilai c muncul, maka program dikatakan berhasil. Selesai.

d. Ekspresi Matematika Keempat (½.a.b.sinθ)

        Ekspresi matematika ketika membahas tentang trigonometri dengan rumus ½.a.b.sinθ .

   Salin script berikut ini.

  

uses

  SysUtils;

var

  L:real;

  a,b,teta:integer;

begin

writeln ('EKSPRESI MATEMATIKA 4');

 writeln ('L: 1/2 .a.b. sin(teta) ’);

 writeln;

 writeln ('masukkan nilai a= '); readln(a);

 writeln ('masukkan nilai b= '); readln(b);

 writeln ('masukkan nilai sin= '); readln(teta);

L:= 1/2*a*b*sin(teta);

writeln ('Luas = ', L:10:2);

 readln;

end.

                  Keterangan Program:

                      L: real maksudnya ialah nilai L menggunakan type data bilangan desimal.

                      a,b,teta:integer maksudnya ialah nilai a, b dan teta menggunakan type data bilangan
                      bulat.

                      L :10:2 , kedua variabel diatas bisa diisi sampai 10 digit angka di depan koma dan

                      memiliki ketilitian sampai 2 digit di belakang koma.

         Ketika program berhasil dijalankan, maka tampilannya seperti berikut ini.

        Masukkan nilai a,b dan teta sesuai keinginan. Tekan enter, maka hasilnya akan muncul

       Seperti berikut ini.

          Program pun selesai.

e. Ekspresi Matematika Kelima (S = V.t + ½a . t²)

            Gerak lurus berubah beraturan (GLBB) adalah gerak lurus suatu obyek, di mana

     kecepatannya berubah terhadap waktu akibat adanya percepatan yang tetap. Akibat adanya

     percepatan, rumus jarak yang ditempuh tidak lagi linier melainkan kuadratik.

   dengan arti dan satuan dalam SI:

• v₀ = kecepatan mula-mula (m/s)
• a = percepatan (m/s²)
• t = waktu (s)
• s = Jarak tempuh/perpindahan (m)

Rumus phytagoras di gunakan untuk menghitung panjang sisi dari segitiga siku-siku yang mana rumus dasar dari phytagoras ini adalah : - See more at: http://gurules.org/cara-cepat-menghitung-rumus-phytagoras/#sthash.TfjqB6kh.dpuf

Rumus phytagoras di gunakan untuk menghitung panjang sisi dari segitiga siku-siku yang mana rumus dasar dari phytagoras ini adalah :

 Dalam segitiga siku siku kuadrat sisi miring sama dengan jumlah dari dua kuadrat sisi lainnya

- See more at: http://gurules.org/cara-cepat-menghitung-rumus-phytagoras/#sthash.TfjqB6kh.dpuf

Rumus phytagoras di gunakan untuk menghitung panjang sisi dari segitiga siku-siku yang mana rumus dasar dari phytagoras ini adalah :

 Dalam segitiga siku siku kuadrat sisi miring sama dengan jumlah dari dua kuadrat sisi lainnya

- See more at: http://gurules.org/cara-cepat-menghitung-rumus-phytagoras/#sthash.TfjqB6kh.dpuf

      Berikut ini script untuk GLBB.

             uses

                 SysUtils;

             var

                 S:real;

                 V,t,a:integer;

             begin

                   writeln ('EKSPRESI MATEMATIKA 5');

                   writeln ('S : V.t + 1/2.a.(t.t)');

                   writeln;

                   writeln ('masukkan nilai V= '); readln(V);

                   writeln ('masukkan nilai t= '); readln(t);

                   writeln ('masukkan nilai a= '); readln(a);

                   S:= V*t+ 1/2 *SQR(t);

                   writeln ('S= ', S:10:2);

            readln;

            end. 

       Salin script diatas pada Delphi kalian.

                  Keterangan Program:

                       S: real maksudnya ialah nilai S menggunakan type data bilangan desimal.

                       V,t,a :integer maksudnya ialah niali V,t dan a menggunakan type data bilangan
                       bulat.

                       SQR(t) maksudnya ialah nilai t bernilai pangkat kuadrat.

                       S :10:2 , kedua variabel diatas bisa diisi sampai 10 digit angka di depan koma dan

                       memiliki ketilitian sampai 2 digit di belakang koma.

      Jalankan programnya. Jika benar, maka tampilan program akan seperti berikut ini.

     Masukkan nilai V, t dan a sesuai keinginan kalian. Tekan Enter, dan hasilnya akan muncul.

     Selesai.....

f. Ekspresi Matematika Keenam (y=sec²x - tan²x)

     uses

         SysUtils;

     var

         y:real;

         x:integer;

     begin

          writeln ('EKSPRESI MATEMATIKA 6');

          writeln ('y : (sec.sec)x – (tan.tan )x ');

          writeln;

          writeln ('masukkan nilai x= '); readln(x);

           y:= SQR (1/cos(x)) – SQR(sin(x) /cos(x));

           writeln ('y = ', y:10:2);

     readln;

     end.

      Salin script diatas pada Delphi kalian.

                        
                             Keterangan Program:

                       y: real maksudnya ialah nilai y menggunakan type data bilangan desimal.

                       m,c :integer maksudnya ialah niali m dan c menggunakan type data bilangan bulat.

                       SQR maksudnya ialah nilai tersebut merupakan pangkat kuadrat.

                       y :10:2 , kedua variabel diatas bisa diisi sampai 10 digit angka di depan koma dapat
                       memiliki ketilitian sampai 2 digit di belakang koma.

        Setelah tersalin, jalankan programnya.

        Ketika program berjalan, tampilannya akan seperti berikut ini.

       Masukkan nilai x, kemudian tekan enter. maka hasilnya akan muncul seperti berikut ini.

         Tarraaaaa.... Selesai deh :D

g. Ekspresi Matematika Ketujuh ()

 

 Untuk menghitung ekspresi matematika diatas, masukkan script di bawah ini pada Delphi kalian.

uses
  SysUtils;
var
  X: real;
 a,b,c: integer;
begin
writeln ('EKSPRESI MATEMATIKA 7');
writeln(' x:-b+(-b±√(b^2-4a.c))/2a ) ');
writeln;
write(' masukkan nilai a = '); readln(a);
write(' masukkan nilai b = '); readln(b);
write(' masukkan nilai c = '); readln(c);
   x:=(-b+SQRT(SQR(b))-4*a*c)/2*a;
writeln(' x x:-b+(-b±√(b^2-4a.c))/2a);= ',x:10:2);
readln;
end.

            Keterangan Program:

                       X: real maksudnya ialah nilai x menggunakan type data bilangan desimal.

                       a,b,c :integer maksudnya ialah niali a,b dan c menggunakan type data bilangan bulat.

                       SQRT maksudnya ialah nilai tersebut merupakan akar kuadrat
                       SQR maksudnya ialah nilai tersebut merupakan pangkat kuadrat.

                       x :10:2 , kedua variabel diatas bisa diisi sampai 10 digit angka di depan koma dapat
                       memiliki ketilitian sampai 2 digit di belakang koma.

 Setelah tersalin, jalankan program tersebut. Maka, hasilnya akan seperti berikut ini.

 Masukkan nilai yang diminta sesuai keinginan kalian, kemudian tekan enter. Maka hasil yang kalian minta akan muncul. Seperti berikut ini.

Jika hasil yang diminta muncul, maka program dinyatakan berhasil :D
Selesaaaaaiii.........

Itu tadi 7 program yang ekspresi matematik yang bisa aku berikan kepada kalian. semoga bermanfaat. Sekian dulu untuk postingan kali ini. Salam belajar :D:D 

Wassalamu'alaikum....