Программа табулирования функции...так ли!?

[gree]

Всем привет.. Задача такого типа.. (см. ниже) Вопрос такой, правильно ли и всё литак!? хотя в принципе прога идет, и расчитывает..
(задача 4)

procedure TForm1.Button1Click(Sender: TObject);
var a,S,e,xn,xk,x,dx,z: real;
    n:integer;
begin
  xn:=-0.3;
  xk:=0.3;
  e:=0.001;
  dx:=0.1;
  x:=xn;
  while x<=xk do
    begin
      a:=x;
      S:=0;
      n:=1;
      repeat      
    S:=S+a;
      a:=a*x*x*sin(n*pi/4);
      n:=n+1;

      until abs(a)<e;
      z:=x*sin(pi/4)/(1-2*x*cos(pi/4)+x*x);
       memo1.lines.add(floattostrf(x,fffixed,3,1)+'    '+
       floattostrf(S,fffixed,8,3)+'   '+
       floattostrf(z,fffixed,8,3)+'   '+inttostr(n));
       x:=x+dx;
    end;

   end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

[gree]

Люди, ну помогите, а!? завтра зачёт(((

[alex_fcsm]

procedure TForm1.Button1Click(Sender: TObject);
var a,S,e,xn,xk,x,dx,z: real;
    n:integer;
begin
  xn:=-0.3;
  xk:=0.3;
  e:=0.001;
  dx:=0.1;
  x:=xn;
  while x<=xk do
    begin
      a:=x;
      S:=0;
      n:=1;
      repeat
      a:=power(x,n)*sin(n*pi/4);
      S:=S+a;
      n:=n+1;
      until abs(a)<e;
      z:=x*sin(pi/4)/(1-2*x*cos(pi/4)+sqr(x));
       memo1.lines.add(floattostrf(x,fffixed,3,1)+'    '+
       floattostrf(S,fffixed,8,3)+'   '+
       floattostrf(z,fffixed,8,3)+'   '+inttostr(n));
       x:=x+dx;
    end;
  end;

Подключите модуль Math

[gree]

можно по подробней? О_о и что значит "a:=a*power(x,n)*sin(n*pi/4);"

[alex_fcsm]

Сообщение от gree

можно по подробней? О_о и что значит "a:=a*power(x,n)*sin(n*pi/4);"

Щас исправил(хотя у Вас было так) действительно ненужно

a:=power(x,n)*sin(n*pi/4)

power - возведение в степень x- основание n- степень

[gree]

а модуль Math как подключить?

[gree]

блин... ругается матом на строчке

a:=power(x,n)*sin(n*pi/4);

решил заменить на

a:=exp(n*ln(x))*sin(n*pi/4);

чё делать???

[gree]

Тему можно удалить..