Процедура

[Petyu]

ребят помогите y:=-ln(abs(sin(x))); решить через процедуру в данном коде программы

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,j: integer;

implementation

{$R *.dfm}

function Sum(xn: real): real;
begin
for j:=1 to 40 do Result := result+ cos(2*j*xn)/j;
result:=result+ln(2);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
x,y,s :real;
begin
for I:=0 to 9 do
                 begin
                 stringgrid1.cells[i,0]:=inttostr(i+1);
                 x:=pi/6+((i+1)*(pi)/30);
                 stringgrid1.cells[i,1]:=floattostr(x);
                 y:=-ln(abs(sin(x)));
                 stringgrid1.cells[i,2]:=floattostr(y);
                 s:=sum(x);
                 stringgrid1.cells[i,3]:=floattostr(s);
                 end ;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
for j:=0 to 3 do
                for I:=0 to 9 do
                                stringgrid1.cells[i,j]:='';
end;

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

end.

[Человек_Борща]

И в чем проблема? Вроде же решил.

[Petyu]

Сообщение от Человек_Борща

И в чем проблема? Вроде же решил.

проблема в том что у тоже через процедуру нужно, но ни чего не выходит

[Аватар]

function MyY(x: real): real;
begin
  Result:=-ln(abs(sin(x)));
end;
...
 y:=MyY(x);

В функции Sum Result вначале обнулить

add

Да, забыл, для sin(x)=0 поимеете большие проблемы

[Petyu]

Сообщение от Аватар

function MyY(x: real): real;
begin
  Result:=-ln(abs(sin(x)));
end;
...
 y:=MyY(x);

В функции Sum Result вначале обнулить

add

Да, забыл, для sin(x)=0 поимеете большие проблемы

а что именно за проблемы???

[Человек_Борща]

а что именно за проблемы???

В математике, 0 - это тоже весомый результат.