AHSANUNNIDHOM

Berpacu menjadi yang terbaik

trapezoida

diposting oleh ahsanunnidhom---fst10 pada 03 June 2013
di Umum - 0 komentar

Integral numerik digunakan dalam aplikasi mencari luasan daerah yang ada dalam sebuah bidang 2 dimensi, delphi dapat digunakan untuk membuat aplikasi ini yaitu menggunakan trapezoida. Trapezoida merupakan cara mencari luasan dalam sebuah kurva persamaam kuadrat. Metode ini membagi luasan menjadi pias-pias kecil. Semakin kecil pias maka luasan yang akan didapatkan akan semakin bagus dan akurat.

Oke baiklah tak usah berlama lagi untuk membuat program dalam delphinya kita harus menyusun tampilan yang ingin dibuat terlebh dahulu. Seperti Button yang digunakan sebagai trigger menjalankan program serta disitulah program akan dituliskan, yang kedua memo.lines digunakan sebagai pemanpil nilai hitung yang sudah dilakukan dala delphi atau sebagai displaynya.

gambar 1. susunan memo & button

Mengisikan programnya Klik dua kali Button 1, berikut merupakan listing progranya dimana penulisan berada dibawa procedure....

var

awal, akhir, delta, x, y, totalintegral,ylama: real;

i, langkah,jalan,j,Pengali :integer;

 

begin

awal:=-99;

akhir:=33;

langkah:=131;

 

pengali:=1;

    for j:=1 to 10 do

    begin

    x:=awal;

    delta:=(akhir-awal)/langkah;  //lebar daerah pias

    totalintegral:=0;

    jalan:=langkah*j;

    memo1.Lines.Add('langkah    '  + floattostr(jalan));

 

      for i:=0 to langkah do

      begin

      x:=x+delta;

      y:=4*x*x+8*x+32; // fungsi kuadrat

      totalintegral := totalintegral + (ylama * delta + (1/2 * delta * (y - ylama))); // rumus trapezoida

      ylama:=y; //tinggi darah pias

      End; 

    Memo1.Lines.Add(floattostr(j) + '       ' + floattostr(totalintegral));

    End;

End;

End.

Setelah selesai menuliskan program diatas menjalankan program dapat menekan F9 atau dengan cara menekan tombol Run yang ada dimenu atas delphi.

sekian yang dapat disampaikan dan dijelaskan jika terjadi kesalahan mohon kritik dan saran supaya menjadi sempurana, silahkan isikan dala komentar......... thanks

Tinggalkan Komentar

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