Program Mencari Akar Hampiran dengan Metode Secant Menggunakan Delphi 7

Pseudo Code:

var

  x0,x1,x2,y0,y1,y2,e,d,m,j:real;

  i,n:integer;

begin

  x0:=strtofloat(edit1.text);

  x1:=strtofloat(edit2.Text);

  e:=0.000001;

  d:=0.000001;

  i:=0;

  n:=strtoint(edit3.Text);

repeat

  i:=i+1;

  listbox1.Items.Add(inttostr(i));

  listbox2.Items.add(format('%8.4f',[x0]));

  listbox3.items.Add(format('%8.4f',[x1]));

  y0:=(cos(x0)-(x0*x0));

  y1:=(cos(x1)-(x1*x1));

  listbox5.Items.add(format('%8.4f',[y0]));

  listbox6.Items.add(format('%8.4f',[y1]));

  j:=abs(y1-y0);

  if j<d then showmessage ('terlalukecil');

  x2:=((x0*y1)-(x1*y0))/(y1-y0);

  listbox4.Items.add(format('%8.4f',[x2]));

  y2:=(cos(x2)-(x2*x2));

  m:=abs(y2);

  listbox7.Items.add(format('%8.6f',[y2]));

  x0:=x1;

  x1:=x2;

  if i=n then m:=e;

until

  m<e;

  edit4.Text:=format('%8.4f',[x2]);

end;

end.

Program Mencari Akar Hampiran dengan Metode Posisi Palsu Menggunakan Delphi 7

Pseudo Code:

var

a,b,e,x, c, fa, fb, fc : real;

i:integer;

begin

  a:= strtofloat (edit1.text);

  b:= strtofloat (edit2.Text);

  fa := cos(a) - (a*a);

  fb := cos(b) - (b*b);

    if fa*fb > 0 then  label1.Caption:='selang a dan b tidak memuat akar'

    else

    begin

    x:= strtofloat(edit3.Text);

    i:=-1;

    repeat

    i:= i+1;

    c:= (b- (((fb*b)-(fb*a))/(fb-fa)));

    listbox1.Items.add(floattostr(a));

    listbox2.Items.add(floattostr(b));

    listbox3.Items.add(floattostr(c));

    fa := cos(a) - (a*a);

    fb := cos(b) - (b*b);

    fc := cos(c) - (c*c);

    listbox4.Items.add(floattostr(fa));

    listbox5.Items.add(floattostr(fb));

    listbox6.Items.add(floattostr(fc));

    if fa*fc <= 0 then b:= c else a:=c;

    e:= abs ((b-a)/b);

    until e<= x;

    edit4.text:= floattostr(c);

    edit5.Text:= floattostr(i);

    end;

    end;

end.

Program Mencari Akar Hampiran dengan Metode Newton Raphson Menggunakan Delphi 7

Pseudo Code:

var

  x0,x1,y0,y1,d,e,m:Real;

  i,n:integer;

begin

  x0:=StrToFloat(edit1.text);

  e:=0.000001 ;

  d:=0.000001 ;

  n:=strtoint(edit2.text);

  i:=0;

repeat

  i:=i+1;

  listbox1.Items.add(inttostr(i));

  listbox2.Items.add(format('%8.4f',[x0]));

  y0:=(cos(x0)-(x0*x0));

  y1:=(-(sin(x0))-2*x0);

  listbox4.Items.add(format('%8.4f',[y0]));

  listbox5.Items.add(format('%8.4f',[y1]));

  if (abs(y1))<d then showmessage('kemiringan terlalu kecil');

  x1:=(x0)-(y0/y1);

  listbox3.Items.add(format('%8.4f',[x1]));

  m:=abs((x1-x0)/x1);

  listbox6.Items.add(format('%8.4f',[m]));

  if m>e then x0:=x1;

until

  i=n;

  edit4.Text:=format('%8.4f',[x1]);

end;

end.

Program Mencari Akar Hampiran dengan Metode Bagi Dua Menggunakan Delphi 7

Pseudo Code:

r

a,b,e,x, c, fa, fb, fc : real;

i:integer;

begin

  a:= strtofloat (edit1.text);

  b:= strtofloat (edit2.Text);

  fa := cos(a) - (a*a);

  fb := cos(b) - (b*b);

    if fa*fb > 0 then  label1.Caption:='selang a dan b tidak memuat akar'

    else

    begin

    x:= strtofloat(edit3.Text);

    i:=-1;

    repeat

    i:= i+1;

    c:=(a+b)/2;

    listbox1.Items.add(floattostr(a));

    listbox2.Items.add(floattostr(b));

    listbox3.Items.add(floattostr(c));

    fa := cos(a) - (a*a);

    fb := cos(b) - (b*b);

    fc := cos(c) - (c*c);

    listbox4.Items.add(floattostr(fa));

    listbox5.Items.add(floattostr(fb));

    listbox6.Items.add(floattostr(fc));

    if fa*fc <= 0 then b:= c else a:=c;

    e:= abs ((b-a)/b);

    until e<= x;

    edit4.text:= floattostr(c);

    edit5.Text:= floattostr(i);

    end;

    end;

end.

Program Newton-Gregory Mundur Menggunakan Delphi 7

Pseudo Code:

var

  x0,x1,x2,x3,x4,x5,x6 :real;

  f0,f1,f2,f3,f4,f5,f6 :real;

  d0,d1,d2,d3,d4,d5 :real;

  dd0,dd1,dd2,dd3,dd4 :real;

  ddd0,ddd1,ddd2,ddd3 :real;

  dddd0,dddd1,dddd2 :real;

  ddddd0,ddddd1 :real;

  dddddd0 :real;

  x,s,p6x :real;

begin

  x6:=StrToFloat(edit1.Text);

  x5:=StrToFloat(edit2.Text);

  x4:=StrToFloat(edit3.Text);

  x3:=StrToFloat(edit4.Text);

  x2:=StrToFloat(edit5.Text);

  x1:=StrToFloat(edit6.Text);

  x0:=StrToFloat(edit7.Text);

  f6:=StrToFloat(edit8.Text);

  f5:=StrToFloat(edit9.Text);

  f4:=StrToFloat(edit10.Text);

  f3:=StrToFloat(edit11.Text);

  f2:=StrToFloat(edit12.Text);

  f1:=StrToFloat(edit13.Text);

  f0:=StrToFloat(edit14.Text);

  x:=StrToFloat(edit15.Text);

  //Del f

  d0:=f1-f0;

  d1:=f2-f1;

  d2:=f3-f2;

  d3:=f4-f3;

  d4:=f5-f4;

  d5:=f6-f5;

  edit21.Text:=(format('%8.4f',[d0]));

  edit20.Text:=(format('%8.4f',[d1]));

  edit19.Text:=(format('%8.4f',[d2]));

  edit18.Text:=(format('%8.4f',[d3]));

  edit17.Text:=(format('%8.4f',[d4]));

  edit16.Text:=(format('%8.4f',[d5]));

  //Del^2 f

  dd0:=d1-d0;

  dd1:=d2-d1;

  dd2:=d3-d2;

  dd3:=d4-d3;

  dd4:=d5-d4;

  edit26.Text:=(format('%8.4f',[dd0]));

  edit25.Text:=(format('%8.4f',[dd1]));

  edit24.Text:=(format('%8.4f',[dd2]));

  edit23.Text:=(format('%8.4f',[dd3]));

  edit22.Text:=(format('%8.4f',[dd4]));

  //Del^3 f

  ddd0:=dd1-dd0;

  ddd1:=dd2-dd1;

  ddd2:=dd3-dd2;

  ddd3:=dd4-dd3;

  edit30.Text:=(format('%8.4f',[ddd0]));

  edit29.Text:=(format('%8.4f',[ddd1]));

  edit28.Text:=(format('%8.4f',[ddd2]));

  edit27.Text:=(format('%8.4f',[ddd3]));

  //Del^4 f

  dddd0:=ddd1-ddd0;

  dddd1:=ddd2-ddd1;

  dddd2:=ddd3-ddd2;

  edit33.Text:=(format('%8.4f',[dddd0]));

  edit32.Text:=(format('%8.4f',[dddd1]));

  edit31.Text:=(format('%8.4f',[dddd2]));

  //Del^5 f

  ddddd0:=dddd1-dddd0;

  ddddd1:=dddd2-dddd1;

  edit35.Text:=(format('%8.4f',[ddddd0]));

  edit34.Text:=(format('%8.4f',[ddddd1]));

  //Del^6 f

  dddddd0:=ddddd1-ddddd0;

  edit36.Text:=(format('%8.4f',[dddddd0]));

  //mencari S

  s:=(x-x0)/(x0-x1);

  edit37.Text:=(format('%8.4f',[s]));

  //mencari p6x

  p6x:=(f0)+(s/1)*d0+((s*(s+1))/2)*dd0+((s*(s+1)*(s+2))/6)*ddd0+((s*(s+1)*(s+2)*(s+3))/24)*dddd0+((s*(s+1)*(s+2)*(s+3)*(s+4))/120)*ddddd0+((s*(s+1)*(s+2)*(s+3)*(s+4)*(s+5))/720)*dddddd0;

  edit38.Text:=(format('%8.4f',[p6x]));

end;

end.