GINANJAR UDIARERA KRESNANANTA

Berpacu menjadi yang terbaik

SOEGI METHOD
diposting oleh diarera21-fst10 - 28 May 2013
kategori : Umum - 0 komentar

Pada pertemuan yang kedua kita akan membahas tentang metode biseksi dimana oleh dosen kami disebut SOEGI METHOD :D

Pada permuan kali ini akan membahas  tentang pengguan metode ini menggunakan Delphi. Yang pertama kali perlu disiapkan adalah button dan memo.

tampilannya adalaha seperti ditunjjukan link http://www.facebook.com/photo.php?fbid=4703573918984&l=47481a89f5

Selanjutnya adalah memasukkan listing kedalam button

aaa,berikut ini adalah listing yang dimasukkan kedalam button

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

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

i,j, jumlahlangkah : integer;

begin

jumlahlangkah := 100; //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 := 10*x+105; //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)); // print x

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

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

memo1.Lines.Add(' ylama =' + floattostr(ylama)); // print 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.

 

karena susah ngaplod gambar berikut ini adalah link untuk membuka print screen gambar :D 

http://www.facebook.com/photo.php?fbid=4703575399021&set=a.4699646740807.1073741827.1583327518&type=3&theater

berikut ini adalah privew dari hasil yang sudah ditampilkan :D

http://www.facebook.com/photo.php?fbid=4703574759005&set=a.4699646740807.1073741827.1583327518&type=3&theater



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

Kategori

Umum (19)

Pengunjung

5635