Regulasi False dengan Delphi

//bukan buat contekan ya... buat belajar. Belum tentu benar..

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
xl,xu,xr,xrnew,fxl,fxu,fxr,E:real;
i:integer;
begin
xl:=strtofloat(edit1.text);
xu:=strtofloat(edit2.text);
fxl:=exp(-xl)-xl;;
fxu:=exp(-xu)-xu;;
xr:=xu-(fxu*((xl-xu)/(fxl-fxu)));
fxr:=exp(-xr)-xr;
e:=0;

i:=1;

stringgrid1.cells[0,i]:=inttostr(i);
stringgrid1.cells[1,i]:=floattostr(xl);
stringgrid1.cells[2,i]:=floattostr(xu);
stringgrid1.cells[3,i]:=floattostr(xr);
stringgrid1.cells[4,i]:=floattostr(fxl);
stringgrid1.cells[5,i]:=floattostr(fxu);
stringgrid1.cells[6,i]:=floattostr(fxr);
stringgrid1.cells[7,i]:=floattostr(e);

if fxl*fxu<0 then
begin
repeat
fxr:=exp(-xr)-xr;
fxl:=exp(-xl)-xl;;
fxu:=exp(-xu)-xu;;

if fxl*fxr<0 then xu:=xr else xl:=xr;

xrnew:=xu-(fxu*((xl-xu)/(fxl-fxu)));
e:=abs((xrnew-xr)/xrnew);
xr:=xrnew;
i:=i+1;

stringgrid1.cells[0,i]:=inttostr(i);
stringgrid1.cells[1,i]:=floattostr(xl);
stringgrid1.cells[2,i]:=floattostr(xu);
stringgrid1.cells[3,i]:=floattostr(xr);
stringgrid1.cells[4,i]:=floattostr(fxl);
stringgrid1.cells[5,i]:=floattostr(fxu);
stringgrid1.cells[6,i]:=floattostr(fxr);
stringgrid1.cells[7,i]:=floattostr(e);

stringgrid1.RowCount:=i+1;

until e<0.0001;
end
else showmessage('Akar di luar interval');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.cells[0,0]:='No.';
stringgrid1.cells[1,0]:='xl';
stringgrid1.cells[2,0]:='xu';
stringgrid1.cells[3,0]:='xr';
stringgrid1.cells[4,0]:='fxl';
stringgrid1.cells[5,0]:='fxu';
stringgrid1.cells[6,0]:='fxr';
stringgrid1.cells[7,0]:='e';
end;

end.

Mengurus STNK dan BPKB Baru di Samsat Manyar Surabaya

Membeli sepeda motor atau pun mobil off the rood (istilah yang dipakai pedagangnya kalo bilang kosongan tanpa pengurusan STNK atau BPKB) adalah tindakan penghematan cost yang lumayan baik. Bisa mencapai 500ribu atau sampai 1juta. Tapi ada syarat yang harus dipenuhi. Yaitu andalkan keringat sendiri tanpa bantuan calo. Ingat calo itu selalu tukang tipu. Gak ada namanya calo jujur,

1. Ambil formulir diloket pengambilan dengan menunjukkan kartu identitas. Beli map juga di fotokopian.
Isi formulir/blanko pendaftaran (harus ketik manual).
a. Ini biasanya yang membuat kita bingung, jaman segini modern kok pakek ketik manual. Sulit juga nemukan orang yang punya mesin ketik. Jangan berlama-lama dengan kebingungan ini. Ada dua cara menanganinya. Pertama, cari usaha pengurusan stnk dekat samsat yang punya mesin ketik. Minta tolong diketikan dengan administrasi yang sewajarnya. Kedua, tanya kepetugas dimana bias pinjam mesin ketik. Kalo udah, gak usah takut. Nylonong aja kedalam, coba-coba ketik pakai kertas bekas. Kalo bisa/mahir, terusin keformulir asli. Kalo tidak, minta tolong kepetugas ketikkan (dengan wajah melas tentunya) atau tanya solusinya. Pasti dibantu.
2. Cek Fisik kendaraan. Biasanya yang gesek minta ongkos. Kasih aj lima ribu. Buat amal.
3. Masukkan formulir dan map ke loket cek fisik. Pastikan blangkoi cek fisik disahkan.
4. Setelah itu, bawa ke bamat. Lantai dua di samsat manyar. Minta stempel untuk fakturnya.
5. Bawa ke polda untuk mengurus Nopol dan BPKB. Kalo mau minta nomor bilang aja. Nanti dikasih.
6. Kembali ke samsat.
7. Pergi ke loket pendaftaran baru atau penul 5 tahun.
8. Akan dioper diloket sampingnya tunggu dipanggil.
9. Setelah dipanggil akan diberi tahu pembayaran diloket mana selanjutnya.
10. Bayar pajaknya dan administrasi yang lainnya.
11. Bawa bukti pendaftaran untuk pendaftaran STNK dan plat diloket pembayaran plat.
12. Setelah bayar stnk dan plat bawa ke loket penyerahan dan tunggu dipanggil.

Demikian yang bisa diinformasikan. Anda menjadi warga yang baik dengan mengurus yang baik. GAK BAYAR PAJAK. APA KATA DUNIA?

Integral dengan Metode Trapesium dan Simson

//ingat ini hanya berbagi kode dan belum tentu benar. Saran & kritik sangat dibutuhkan.

unit integral;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit4: TEdit;
Edit5: TEdit;
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit6: TEdit;
Label6: TLabel;
Label8: TLabel;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n,a,b,i,j:integer;
fx:array [0..100] of real;
h,c,en,jum,f1x,x,integral:real;
begin
label8.caption:='fx:=exp(-x*x)';
n:=strtoint(edit3.text);
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
h:=(b-a)/n;
fx[0]:=exp(-a*a);
jum:=fx[0];
x:=a;
stringgrid1.Cells[1,1]:=floattostr(x);
stringgrid1.Cells[2,1]:=floattostr(fx[0]);
for i:=1 to n-1 do
begin
x:=h+x;
fx[i]:=exp(-x*x);
jum:=jum+(2*fx[i]);
stringgrid1.Cells[1,i+1]:=floattostr(x);
stringgrid1.Cells[2,i+1]:=floattostr(fx[i]);
end;
x:=x+h;
fx[n]:=exp(-x*x);
stringgrid1.Cells[1,n+1]:=floattostr(x);
stringgrid1.Cells[2,n+1]:=floattostr(fx[n]);
c:=(b-a)/2;
f1x:=-2*c*exp(-c*c);
en:=(-(b-a)*(b-a)*(b-a)*f1x)/(12*n*n);
integral:=(h/2)*(jum+fx[n]);
edit4.Text:=floattostr(h);
edit5.Text:=floattostr(integral);
edit6.Text:=floattostr(en);
stringgrid1.RowCount:=n+2;
stringgrid1.colCount:=3;

for j:=0 to i+2 do
stringgrid1.Cells[0,j+1]:=inttostr(j);
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='No.';
stringgrid1.Cells[1,0]:='x';
stringgrid1.Cells[2,0]:='fx';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
a,b,n,i,j:integer;
fx,x:array [0..100] of real;
jum,h,integral,c,f4x,en:real;
begin
label8.caption:='fx:=exp(-x*x)';
n:=strtoint(edit3.text);
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
h:=(b-a)/n;
fx[0]:=exp(-a*a);
jum:=fx[0];
x[0]:=a;
for i:=1 to n-1 do
begin
x[i]:=h+x[i-1];
if i mod 2 =1 then
begin
fx[i]:=exp(-x[i]*x[i]);
jum:=jum+4*fx[i];
end
else
begin
fx[i]:=exp(-x[i]*x[i]);
jum:=jum+2*fx[i];
end
end;
x[n]:=h+x[n-1];
fx[n]:=exp(-x[n]*x[n]);
jum:=jum+fx[n];
integral:=(h/3)*(jum);
c:=(b-a)/2;
f4x:=-16*c*exp(-c*c);
en:=-((b-a)*(b-a)*(b-a)*(b-a)*(b-a)* f4x)/(180*n*n*n*n);

//untuk tampilan
for j:=0 to n do
begin
stringgrid1.Cells[0,j+1]:=inttostr(j);
stringgrid1.Cells[1,j+1]:=floattostr(x[j]);
stringgrid1.Cells[2,j+1]:=floattostr(fx[j]);
end;
edit4.Text:=floattostr(h);
edit5.Text:=floattostr(integral);
edit6.Text:=floattostr(en);
stringgrid1.rowCount:=n+2;
stringgrid1.ColCount:=3;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
a,b,n,i,j,k:integer;
fx,x:array [0..100] of real;
jum1,jum2,h,integral,integral1,integral2,c,f4x,en,
en1,en2:real;
begin
label8.caption:='fx:=exp(-x*x)';
n:=strtoint(edit3.text);
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
h:=(b-a)/n;

//untuk bagian simson 1/3
fx[0]:=exp(-a*a);
jum1:=fx[0];
x[0]:=a;
x[1]:=h+x[0];
fx[1]:=exp(-x[1]*x[1]);
jum1:=jum1+4*fx[1];
x[2]:=h+x[1];
fx[2]:=exp(-x[2]*x[2]);
jum1:=jum1+fx[2];
c:=(b-a)/2;
f4x:=-16*c*exp(-c*c);
en1:=-((b-a)*(b-a)*(b-a)*(b-a)*(b-a)* f4x)/(180*n*n*n*n);
integral1:=(h/3)*(jum1)+ en1;

//bagian simson 3/8
jum2:=fx[2];
for k:=3 to n-1 do
begin
x[k]:=h+x[k-1];
fx[k]:=exp(-x[k]*x[k]);
jum2:=jum2+3*fx[k];
end;
x[n]:=h+x[n-1];
fx[n]:=exp(-x[n]*x[n]);
jum2:=jum2+fx[n];
c:=(b-a)/2;
f4x:=-16*c*exp(-c*c);
en2:=-((b-a)*(b-a)*(b-a)*(b-a)*(b-a)* f4x)/(6480);
integral2:=(b-a)*(jum2)/8 +en2;



integral:=integral1+integral2;
en:=en2;

//untuk tampilan
for j:=0 to n do
begin
stringgrid1.Cells[0,j+1]:=inttostr(j);
stringgrid1.Cells[1,j+1]:=floattostr(x[j]);
stringgrid1.Cells[2,j+1]:=floattostr(fx[j]);
end;
edit4.Text:=floattostr(h);
edit5.Text:=floattostr(integral);
edit6.Text:=floattostr(en);
stringgrid1.rowCount:=n+2;
stringgrid1.ColCount:=3;
end;


procedure TForm1.Button4Click(Sender: TObject);
var
a,b,n,i,j:integer;
fx,x:array [0..100] of real;
jum,h,integral,c,f4x,en:real;
begin
label8.caption:='fx:=exp(-x*x)';
n:=strtoint(edit3.text);
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
h:=(b-a)/n;
fx[0]:=exp(-a*a);
jum:=fx[0];
x[0]:=a;
for i:=1 to n-1 do
begin
x[i]:=h+x[i-1];
if i mod 2 =1 then
begin
fx[i]:=exp(-x[i]*x[i]);
jum:=jum+3*fx[i];
end
else
begin
fx[i]:=exp(-x[i]*x[i]);
jum:=jum+3*fx[i];
end
end;
x[n]:=h+x[n-1];
fx[n]:=exp(-x[n]*x[n]);
jum:=jum+fx[n];
integral:=(b-a)*(jum)/8;
c:=(b-a)/2;
f4x:=-16*c*exp(-c*c);
en:=-((b-a)*(b-a)*(b-a)*(b-a)*(b-a)* f4x)/(180*n*n*n*n);

//untuk tampilan
for j:=0 to n do
begin
stringgrid1.Cells[0,j+1]:=inttostr(j);
stringgrid1.Cells[1,j+1]:=floattostr(x[j]);
stringgrid1.Cells[2,j+1]:=floattostr(fx[j]);
end;
edit4.Text:=floattostr(h);
edit5.Text:=floattostr(integral);
edit6.Text:=floattostr(en);
stringgrid1.rowCount:=n+2;
stringgrid1.ColCount:=3;
end;


end.