AHSANUNNIDHOM

Berpacu menjadi yang terbaik

Soegi Methode

diposting oleh ahsanunnidhom---fst10 pada 29 May 2013
di Umum - 0 komentar

Penentuan akar-akar dari suatu persamaan linier dalam hal komputasi dapat menggunakan banyak metode seperti yang umum adalah regula falsi dan biseksi, saat perkuliahan yang diberikan oleh bapak Soegiyanto beliau memberikan metode sendiri dalam memecahkan akar persamaan linier, yang diberikan nama Soegi methode.

Baiklah untuk itu saya akan menjelaskan cara metode ini, perlu dipastikan adalah kita harus paham logika dari pemrograman ini. Pertama membuka aplikasi delphi setelah itu ambil beberapa tools yang ada dalam tool pallet yang ada di sebelah kanan pojok untuk delphi 2010.

Setelah itu membuat tampilan sesuka anda, ini tampilan yang saya buat :

Kemudian double klick ke button untuk memberikan pemrogramannya berikut merupakan listing dari program yang telah saya buat dari penjelasan yang sudah diberikan dalam kuliah :

procedure TForm1.Button1Click(Sender: TObject);

var x,y, ylama,xlama,xtemuan, delta, awal, akhir : real;

i,j, jumlahlangkah : integer;

 

begin

jumlahlangkah := 125; //jumlah langkah

awal := -100; // nilai awal

akhir := 100; // nilai akhir

memo1.Clear; // memo clear

 

for j := 1 to 3 do // jumlah iterasi

begin

x:= awal; // nilai x sm dengan nilai awal

delta := (akhir-awal)/jumlahlangkah; // nilai delta

for i := 0 to jumlahlangkah - 1 do

begin

x := x+delta; // x baru = x lama di tambah delta ( langkah perubahan )

y := 13*x+112; //persamaan yang akan di cari

 

if (i>0) then

begin

if (ylama <> 0) and (y*ylama <= 0) then // jika y lama tidak sama dengan 0 dan y *ylama kurang dari sama dengn 0

begin

memo1.Lines.Add(' x = '  + floattostr(x)); // menampilkan x

memo1.Lines.Add(' y = '  + floattostr(y)); // menampilkan y

memo1.Lines.Add(' x lama = '  + floattostr(x-delta)); // menampilkan  x lama

memo1.Lines.Add(' y lama = '  + floattostr(ylama)); // menampilkan  y lama

xtemuan := x; //x temuan sama dengan x

end;

end;

ylama := y; // update nilai ylama

end;

awal := xtemuan-delta; // perubahan nilai awal dari nilai x yang ditemukan

akhir := xtemuan; // perubahan nilai akhir dari nilai x yang ditentukan

memo1.Lines.Add(floattostr(awal)); // cek nilai awal

memo1.Lines.Add(floattostr(akhir)); // cek nilai akhir

memo1.Lines.Add(floattostr(delta)); // cek delta

memo1.Lines.Add('***************************');

end;

end;

end.

Jika telah menuliskan program diatas anda dapat menyimpan(save)nya terlebih dahulu atau menge-run langsung jika menggunakan delphi 2010. Berikut merupakan tampilan dari programnya :

Terimakasih atas kunjungan ke blog saya semoga bermanfaat......

Tinggalkan Komentar

Nama :
E-mail :
Web : tanpa http://
Komentar :
Verification Code :