GINANJAR UDIARERA KRESNANANTA

Berpacu menjadi yang terbaik

trapezoid
diposting oleh diarera21-fst10 - 03 June 2013
kategori : Umum - 0 komentar

Pada pertemuan yang kedua kita akan membahas tentang metode trapezoid :DD

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

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

Selanjutnya adalah memasukkan listing kedalam button

unit Unit2;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;
type  TForm2 = class(TForm)    Button1: TButton;    Memo1: TMemo;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;
var  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
VarAwal, akhir, delta, x, y, totalintegral,ylama: real;I, langkah,j,pengali:integer;
BeginAwal:=-100;Akhir:=100;Langkah:=1000;
Pengali:=1;For j:=1 to 10 doBeginX:=awal;//For k:=1 to j do pengali:=pengali*10;//Langkah:=langkah*pengali;Langkah:=1000*j;Memo1.lines.add(inttostr(langkah));Delta:=(akhir-awal)/langkah;Totalintegral:=0;For i:=0 to langkah doBeginX:=x+delta;Y:=20*x*x+20*x+20;totalintegral:=totalintegral+(ylama*delta+(1/2*delta*(y-ylama)));
Ylama:=y;End;
Memo1.lines.add(floattostr(j)+'>>>'+floattostr(totalintegral));End;End;
end.
end;
end.

end;
end.

 

RUN dan program anda akan sesuai dengan print screen berikut :DD

 

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



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

Kategori

Umum (19)

Pengunjung

5472