>Sedikit Refresing buat kamu yang lagi belajar pemrograman, dari pada kamu bosan buat program-program matematika yang membingungkan mending kamu belajar buat game pake bahasa pascal, lumanyan kan buat ngecas otak kamu, Ney ada tutorial pembuatan Game Tetris kalo mau kamo boleh download filenya, gak pake bayar alias GRATIS!
Klick Link berikut untuk download
>yang lagi belajar numerik semuanya pasti dah pada tau apa itu Dalil Sisa, nah ney ada Coding Programnya dalam bahasa Quick Basic, silahkan coba juga dengan menggunakan bahasa turbo pascal, mudah-mudahan bermanfaat . . .
CLS
‘DALIL SISA
ULANG:
CLS
PRINT “DERAJAT TERTINGGI :”;:INPUT N
PRINT “NILAI X : “;:INPUT Z
FOR I = 0 TO N
PRINT “MASUKKAN A”;: INPUT A(I)
NEXT
B(N) = A(N)
FOR I = N-1 TO 0 STEP -1
B(I) = A(I)+B(I+1)*Z
NEXT
S = B(0)
PRINT “SISA =”;S
INPUT D
IF D = 1 GOTO ULANG
END
Thank’s by Joel
>Ada lagi cara yang lain untuk menyelesaikan/mencari akar-akar pada permasalahan numerik antara lain Sistem persamaan linear segitiga atas, berikut adalah coding programnya dengan menggunakan bahasa Quick Basic.
CLS
‘SPL SEGITIGA ATAS
PRINT “UKURAN MATRIK =”;: INPUT N
FOR I = 1 TO N
FOR J = I TO N
PRINT “A(“;I;”,”;J;”)=”;:INPUT A(I,J)
NEXT J
NEXT I
FOR I = 1 TO N
PRINT “C(“;I;”)=”;:INPUT C(I)
NEXT I
X(N)=C(N)/A(N,N)
FOR I = N-1 TO 1 STEP -1
JUMLAH=0
FOR J = I+1 TO N
JUMLAH = JUMLAH + A(I,J)*X(J)
NEXT
X(I) = (C(I)-JUMLAH)/A(N,N)
NEXT
PRINT
FOR I = 1 TO N
PRINT “X(“;I;”)=”;X(I);”, “;
NEXT
END
Silahkan edit kode di atas agar menjadi program sistem persamaan linear segitiga bawah. Terima kasih, Semoga bermanfaat. . .
>Yang mao tau Coding program mencari akar dengan metode secant berikut ada sidikit contoh yang sangat sederhana, silahkan di coba semoga bermanfaat. . .
CLS
‘METODE SECANT
DEF FNF(X)=EXP(X) – 4*X
PRINT “MASUKKAN X0 = “;: INPUT XO
PRINT “MASUKKAN X1 = “;: INPUT X1
E=.001
ULANG:
X2 = X1-(FNF(X1)*((X1-X0)/FNF(X1)-FNF(X0))))
IF ABS((X2-X1)/X2) < E GOTO CETAK
X0 = X1
X1 = X2
PRINT X2 GOTO ULANG
CETAK: PRINT “AKAR YANG DICARI ADALAH”;X2
END
>Ada cara lain untuk menghitung/mencari akar-akar pada persamaan numerik, salah satunya adalah dengan menggunakan metode Newton Raphson, beikut adalah coding program metode newton Raphson dengan bahasa Quick Basic
CLS
‘METODE NEWTON RAPHSON
DEF FNF (X) = EXP(X) – 4*X
DEF FNG (X) = EXP(X) – 4
PRINT “MASUKKAN XL = “;:INPUT XL
E = .001
ULANG :
XB = XL-(FNF(XL)/FNG(XL))
IF ABS((XB-XL)/XB) < E GOTO CETAK
XL = XB
PRINT XB
GOTO ULANG
CETAK:
PRINT “AKAR YANG DICARI ADALAH “;XB
END
Semoga bermanfaat . . .
>Program mencari akar-akar persamaan numerik dengan metode bolzano dalam bahasa Quick Basic, ubahlah fungsi sesuai dengan kebutuhan masing-masing..
CLS
‘METODE BOLZANO
DEF FNF(X) = EXP(X)-4*X
PRINT “MASUKKAN BATAS INTERVAL KIRI A = “: INPUT A
PRINT “MASUKKAN BATAS INTERVAL KANAN B = “: INPUT B
E = .00001
ULANG:
T = (A+B)/2
IF FNF(A)*FNF(T)
Semoga bermanfaat. . .
>Program lokalisasi akar adalah program yang digunakan untuk mengklasifikasikan akar-akar pada permasalahan numerik, ubahlah fungsi sesuai dengan kebutuhan masing-masing..
CLS
PRINT “PROGRAM LOKALISASI AKAR”
DEF FNF (X) = EXP(-X)-X
PRINT ” X”,”F(X)”
PRINT “____________”
FOR X = .5669 TO .5679 STEP .0001
PRINT X, FNF(X)
NEXT X
END
Semoga bermanfaat. . .
>Buat yang lagi belajar metode numerik ini ada coding program perhitungan galat dalam bahasa Quick Basic, program ini masih sangat sederhana silahkan kembangkan untuk mendapatkan hasil yang lebih sempurna
CLS
‘Program Galat
PRINT “Masukkan Nilai a = “:INPUT a
PRINT “Masukkan Nilai a1 = “:INPUT a1
e = a1 – a
PRINT e
e1 = e/a
PEINT e1
end
semoga bermanfaat…
>
Pada artikel ini akan dibahas tentang bagaimana membuat program Pascal untuk menghitung pangkat bilangan.
Seperti yang kita ketahui bahwa dalam Pascal tidak ada suatu function atau perintah tertentu untuk menghitung pangkat bilangan secara langsung. Dengan demikian kita harus membuat function sendiri untuk menghitung pangkat bilangan tersebut.
Dalam pembahasan ini akan dibedakan dua jenis pangkat a^b, yaitu untuk b berupa bilangan bulat non negatif dan a berupa bilangan riil.
Untuk a^b dengan b bilangan bulat non negatif, tentu saja berlaku: a^b = a x a x … x a dengan jumlah perkalian a sebanyak b kali. Apabila untuk kasus pertama ini diimplementasikan dengan program Pascal, maka kasus ini dapat teratasi dengan perulangan. Berikut ini adalah function untuk menghitung pangkat berupa bilangan bulat non negatif dengan Pascal: Jika Anda perhatikan pada function di atas, maka terdapat perintah temp := temp * a; Proses ini dilakukan b kali, dengan nilai awal temp adalah 1. Mengapa demikian? Untuk menjawab ini kita ambil contoh kasus. Sebagai contoh misalkan akan dicari 3^4 (a = 3 dan b = 4). Hasil perpangkatan ini akan diperoleh dari perkalian 3 x 3 x 3 x 3. Berikut ini adalah proses perhitungannya dengan menggunakan algoritma yang diambil dari program di atas: Nah.. dari hasil di atas benar bahwa hasil perhitungan 3^4 = 81. Dengan algoritma ini, bisa diimplementasikan pada sebarang nilai a dan b (a riil dan b bulat non negatif). Selanjutnya bagaimana dengan b yang berbentuk bilangan riil? misalnya 4^1.5? Hmmm… kalau yang ini gak bisa pakai algoritma sebelumnya karena kesulitan mengimplementasikan ke bentuk perulangan. Lantas bagaimana? OK… untuk menjawab ini mari kita ingat kembali pelajaran di SMA mengenai konsep Ln atau Log dan juga eksponen. Sekarang kita gunakan konsep Ln ini ke masalah kita. Dalam hal ini kita akan mencari nilai y = a^b. Perhatikan: y = a^b Dari langkah di atas, kita sudah dapatkan formulasi baru untuk mencari y = a^b dengan b adalah riil. Dalam Pascal telah tersedia function exp() untuk mencari nilai eksponensial, serta function Ln() untuk mencari nilai logaritma bilangan natural. Sehingga implementasinya ke Pascal adalah: Selanjutnya akan kita implementasikan function-function di atas di program Pascal: OK… mudah-mudahan penjelasan di atas dapat bermanfaat.function pangkatBulat(a : real, b : integer) : real;
var i : integer; temp : real;
begin
temp := 1;
for i := 1 to b do
begin
temp := temp * a;
end;
pangkat := temp;
end;temp = 1
perulangan pertama (i = 1)
temp = temp x a = 1 x 3 = 3
perulangan kedua (i = 2)
temp = temp x a = 3 x 3 = 9
perulangan ketiga (i = 3)
temp = temp x a = 9 x 3 = 27
perulangan keempat (i = 4)
temp = temp x a = 27 x 3 = 81
Ln y = Ln (a^b)
Ln y = b Ln(a)
e^(Ln y) = e^(b Ln(a))
y = e^(b Ln(a))function pangkatRiil(a : real, b : real) : real;
begin
pangkatRiil := exp(b * ln(a));
end;Program MencariPangkat;
Var x : real; y : integer; z : real;
function pangkatBulat(a : real, b : integer) : real;
var i : integer; temp : real;
begin
temp := 1;
for i := 1 to b do
begin
temp := temp * a;
end;
pangkat := temp;
end;
function pangkatRiil(a : real, b : real) : real;
begin
pangkatRiil := exp(b * ln(a));
end;
Begin
x := 5;
y := 3;
z := 3.5;
Write(’Nilai ‘,x,’ pangkat ‘,y,’ adalah ‘,
pangkatBulat(x,y):3:0);
Write(’Nilai ‘,x,’ pangkat ‘,z,’ adalah ‘,
pangkatRiil(x,z):3:4);
End.
>Berikut ini adalah coding program mencari akar dengan metode Newton Raphson dengan menggunakan bahasa Turbo Pascal…
PROGRAM NEWTONRAPHSON;
USES CRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-4*X;
END;
FUNCTION G(X:REAL):REAL;
BEGIN
G:=EXP(X)-4;
END;
VAR XL,XB,E,M : REAL;
X : INTEGER;
BEGIN
CLRSCR;
WRITELN(‘PROGRAM METODE NEWTON RAPHSON’);
WRITELN(‘=============================’);
E:=0.0001;
WRITE(‘MASUKKAN X : ‘);READLN(XL);WRITELN;
X:=0;
REPEAT
XB:=XL-(F(XL)/G(XL));
M:= ABS(XL-XB);
XL:=XB;
X:=X+1;
WRITELN (‘ITERASI KE ‘,X,’= ‘,XB:0:8);
UNTIL M
WRITELN;
WRITELN (‘AKARNYA ADALAH = ‘,XB:0:6);
READLN;
END.
Ubahlah fungsi sesuai dengan kebutuhan anda…
Thank’s By Joel
