fkipmatematika

>SPL Segitiga Bawah

dzulfadhlispd — Tue, 02 Jun 2009 09:28:00 +0000

>Berikut adalah source code program menghitung sistem persamaan linier yang berbentuk segitiga bawah, silahkan edit program ini jika ada terjadi kesalahan

cls
input “berapa ukuran matrik= “;n
for j=1 to n
for i=j to n
print “a(“;i;” ,”;j;”) = ” ;: input a(i,j)

next
next
for i=1 to n
print “c(“;i;”)=” ;: input c(i)
next i

x(1)=c(1) / a(1,1)
for i=2 to n
jumlah =0
for j=1 to i-1
jumlah= jumlah + a(i,j)*x(j)
next
x(i)= (c(i)-jumlah)/ a(i,i)
next
‘ini cetakan hasilnya
for i=1 to n
print “x(“;i;”)=” ; x(i);”,”;
next
end

>E-Book Metode Numerik

dzulfadhlispd — Fri, 01 May 2009 09:57:00 +0000

>Silahkan download e-book Metode Numerik Sebagai Algoritma Komputasi

Mudah-mudahan dapat membantu anda…

>Buat Game dengan pascal

dzulfadhlispd — Thu, 29 Jan 2009 07:32:00 +0000

>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

>Dalil Sisa

dzulfadhlispd — Thu, 29 Jan 2009 07:24:00 +0000

>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

>SPL Segitiga Atas

dzulfadhlispd — Thu, 29 Jan 2009 07:18:00 +0000

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

>Metode Secant

dzulfadhlispd — Thu, 29 Jan 2009 07:14:00 +0000

>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

>Metode Newton Raphson

dzulfadhlispd — Thu, 29 Jan 2009 07:09:00 +0000

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

>Metode Bolzano

dzulfadhlispd — Thu, 29 Jan 2009 07:06:00 +0000

>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

dzulfadhlispd — Thu, 29 Jan 2009 07:02:00 +0000

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

>Program Galat

dzulfadhlispd — Thu, 29 Jan 2009 06:57:00 +0000

>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…