uses crt;
const epsilon=0.00001;
var
a,b,c,fa,fb,fc : real;
begin
writeln('Mencari akar dari persamaan f(x)=(x^3 + 1)/3');
writeln(' Dengan Metode Bagi Dua');
writeln('============================================');
write('Masukkan batas awal(a) : '); readln(a);
fa:=(a*a + 1)/3;
writeln('f(a) = ',fa:0:5);
repeat
write('Masukkan batas akhir(b) : '); readln(b);
fb:=(b*b +1)/3;
writeln('f(b) = ',fb:0:5);
if fa*fb < 0 then
begin
writeln('Syarat OK (f(a)*f(b)<0)');
writeln('f(a)*f(b) = ',(fa*fb):0:5);
end
else
Download di sini untuk source code lengkap nya..
Komen yaw..
Label
- Adekdik Software (1)
- Aplikasi Iseng (16)
- C++ (7)
- Download (2)
- Excel (1)
- Google Map (1)
- Iseng (1)
- Nambah ilmu (32)
- Pascal (20)
- Super Iseng (2)
- VB .Net (21)
- VB 6 (1)
Jumat, 03 Oktober 2008
Metode Bagi dua
Label: Pascal
Langganan:
Posting Komentar (Atom)
6 komentar:
thank banget boss diks tentang metode bagi duanya,yahud,aku lg belajar metode numeric.makasih atas bantuannya,btw kalo ane ada kesulitan mohon dibantunya.
boss kalo soalnya seperti ini batas bawahnya (-1,0)bisa ga pake program diatas
sama2 bro...
klo ada pertanyaan, mw k email,ato komen dsni jg bole..
Cobak aja bro, syaratnya kan f(a) * f(b) < 0 aja..
bro kalo persamaanya seperty ini gmana fx=x +cos X gmana bro.trus hasil(outputnya) iterasinya kalo dijabarin satu satu seperty
iterasi yang pertama pada slang (-1,0)
iterasi kedua pada slang (-1,05)
dst sampai lebih besar dari epsilonnya.
makasih atas bantuanya ya bro ditunggu listring prognya ya
sabar yaw....
thank yea kak, blog kakak membantu saya dalam ujian algoritma. dan metode numerik.jangan pelit bagi ilmu yea..........
ok sama2.. wah kalo saya pelit gak mungkin saya bikin blog kyk gni, he2...
sering2 berkunjung y..
Posting Komentar