Mengubah Ekspresi Matematika ke dalam Bahasa Delphi/ Pascal

Posted by : Unknown Minggu, 04 Januari 2015

Assalamu'alaikum

Ketemu lagi dengan postingan~postingan aku seputar "Algoritma dan Pemrograman".
Postingan kali ini membahas tentang "Mengubah Ekspresi matematika ke dalam Bahasa Delphi/Pascal".
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??

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 = mc2 )

            E = mc2 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 2 ).

yang mana:

· E = energi (J)

· m = massa (kg)

· c = kecepatan cahaya (m.s-1)

program exprsi_mtk_1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

e: real;

m,c: integer;

begin

writeln('NAMA: Syamsul Rizal');

writeln('KELAS: 1-B');

writeln('NIM: 114224071');

writeln('JURUSAN: S-1 Teknik Informatika STMIK YADIKA BANGIL');

writeln(' ');

writeln(' E: m.(c.c) ');

writeln;

write(' masukkannilai m = '); readln(m);

write(' masukkannilai c = '); readln(c);

e:= m* SQR(c);

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

readln;

end.

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

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=¼.πd2)

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=¼.πd2 , salin script
    dibawah ini.

program exprsi_mtk_2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

l: real;

d: integer;

begin

writeln('NAMA: Syamsul Rizal');

writeln('KELAS: 1-B');

writeln('NIM: 114224071');

writeln('JURUSAN: S-1 Teknik Informatika STMIK YADIKA BANGIL');

writeln(' ');

writeln(' L: 1/4.3,13.d ');

writeln;

write(' masukkan nilai d = '); readln(d);

l:= 1/4*3.14*d ;

writeln(' L: 1/4 x 3.14 x d = ',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,. tekan enter dan hasilnya akan muncul.

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

c. Ekspresi Matematika ketiga (c2= a 2 + b 2)

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

c2= a 2 + b 2

Rumus lainnya adalah :
a2= c 2 - b 2
b2= c 2 - a 2

Salin script dibawah ini pada delphi kalian.

§ Ketikkansepertiini :

program exprsi_mtk_3;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

c: real;

a,b: integer;

begin

writeln(' ');

writeln;

write(' masukkannilai a = '); readln(a);

write(' masukkannilai a = '); readln(b);

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

writeln(' c: akardari quadrat a + quadrat b = ',c:5: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 . t2)

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:

· v0 = kecepatan mula-mula (m/s)

· a = percepatan (m/s2)

· 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.

program exprsi_mtk_5;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

s: real;

v,t,a: integer;

begin

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

writeln;

write(' masukkannilai v = '); readln(v);

write(' masukkannilai t = '); readln(t);

write(' masukkannilai a= '); readln(a);

s:= v*t+1/2*a*SQR(t);

writeln(' s: v x t + 1/2 x a x quadrat dari t);= ',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=sec2x - tan2x)

program exprsi_mtk_6;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

y: real;

x: integer;

begin

writeln(' Y = Sec2x – Tan2x ');

writeln;

write(' masukkannilai x = '); readln(x);

Y:= SQR(1/cos(x))-SQR(sin(x)/cos(x));

writeln(' Y: Sec2x – Tan2x = ',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 angka 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.

SEKIAN……

G. Ekspresi Matematika KetujuhX =

program exprsi_mtk_7;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

X: real;

A,B,C: integer;

begin

writeln(' x:-b+(-b±√(b^2-4a.c))/2a ) ');

writeln;

write(' masukkannilai b = '); readln(b);

write(' masukkannilai a = '); readln(a);

write(' masukkannilai 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.

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 angka 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.

Kemudian masukan nilai yang diinginkan

Selesai ……..

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

Wassalamu'alaikum....