Poligon Integral
function fungsi(x,y:real):real;
begin
//result:=4*exp(0.8*x)-0.5*y;
result:=(500-4*y)/(300-2*x)
end;
//BUTTON BERISI METODE POLIGON MODIFIKASI
procedure TForm1.Button1Click(Sender: TObject);
var
x0,xt,n,i:integer;
x,y,xstngah,ystngah,xYstngah:array [1..100] of real;
h:real;
begin
x0:=strtoint(edit1.text);
xt:=strtoint(edit2.text);
x[1]:=strtofloat(edit3.text);
x[2]:=0;
y[1]:=strtofloat(edit4.text);
n:=strtoint(edit5.text);
h:=(xt-x0)/n;
for i:=1 to n do
begin
ystngah[i]:=y[i]+(fungsi(x[i],y[i])*h)/2;
xstngah[i]:=(x[i+1]+x[i])/2;
xYstngah[i]:=fungsi(xstngah[i],ystngah[i]); //Yi+stngah aksen
y[i+1]:=y[i]+xYstngah[i]*h;
x[i+1]:=x[i]+h;
//mengeluarkan pada stringgrid
stringgrid1.cells[0,i]:=inttostr(i);
stringgrid1.cells[1,i]:=floattostr(x[i]);
stringgrid1.cells[2,i]:=floattostr(y[i]);
stringgrid1.Cells[3,i]:=floattostr(fungsi(x[i],y[i]));
stringgrid1.cells[4,i]:=floattostr(ystngah[i]);
stringgrid1.cells[5,i]:=floattostr(xYstngah[i]);
stringgrid1.cells[6,i]:=floattostr(y[i+1]);
label8.caption:='nilai h sebesar '+floattostr(h)+
' dan hasil integral sebesar = ' + floattostr(y[i+1]);
end;
stringgrid1.cells[0,n+1]:=inttostr(n+1);
stringgrid1.cells[1,n+1]:=floattostr(x[n]+h);
stringgrid1.cells[2,n+1]:=floattostr(y[n+1]);
stringgrid1.rowcount:= n+2;
end;
No comments: