Функция для суммы

[Vitalina69]

function summ(x,eps:real):real;
var
s: real;
begin
s:=1;
n:=1;
x:=0.1;

while (abs(s-fun(x))<=eps) do begin

s:= s + exp(ln(-1)*n)*((exp(ln(x)*(2*n+1)))/fuck(n));
n:=n+1;

summ:= s;
end;

end;

нужно, чтобы значение суммы совпадало со значением функции y=sinx
0.1<=x<=1

Подскажите где ошибка....
при х=0,1 выдает значение суммы: -3,65602648080598E164 а значение функции:0,0998334166468282

[alex_fcsm]

Полное задание можете написать?

P.S. fuck(n) - шедевр

[Mad_Cat]

fun(x) - эт чего?

while (abs(exp(ln(-1)*n)*((exp(ln(x)*(2*n+1)))/fuck(n)))<=eps) do begin

только имхо препод не примет вашу реализацию
вот сюда гляньте

[Vitalina69]

Составить программу для вычисления суммы ряда с заданной точность .eps и значения функции на заданном диапазоне изменения аргумента(Количество расчетных точек - не менее 10)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   z,y,c,x,s,eps:real;
   i,n:integer;

implementation

{$R *.dfm}
function fun(x:real):real;
begin
fun:=Sin(x);
end;

function fuck(n:integer):integer;
var
   i,f: integer;
begin
  f:=1;
  for i:=1 to n do f:=f*(2*i+1)*i;
  fuck:=f;
end;


function summ(x,eps:real):real;
var
s: real;
begin
s:=1;
n:=1;
x:=0.1;

while (abs(s-fun(x))<=eps) do begin

s:= s + exp(ln(-1)*n)*((exp(ln(x)*(2*n+1)))/fuck(n));
n:=n+1;

summ:= s;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin
  eps:=StrToFloat(Edit1.Text);
  {x:=StrToFloat(Edit4.Text)};
  { z:=StrToFloat(Edit5.Text);
   y:=StrToFloat(Edit6.Text);
   c:=StrToFloat(Edit7.Text);}
   x:=0.1;
   while x<=1 do begin

    memo2.Lines.Add(floattostr(summ(x,eps)));
    memo3.Lines.Add(floattostr(fun(x)));
    memo1.Lines.Add(floattostr(x));

    x:=x+0.1;


end;
         end;

end.

[alex_fcsm]

Поиском пользуйтесь

http://programmersforum.ru/showthrea...EE%F1%F2%FC%FE

http://programmersforum.ru/showthrea...EE%F1%F2%FC%FE

[Vitalina69]

Оххх, если б я там че-нить еще понимала(((((((

[alex_fcsm]

Итак нам нужно вычислять функцию, пока ее значение больше определенного значения

Получается что-то такое

sum:=0;
n:=1;
repeat
f:=[значение функции зависяще от n];
if f>eps then sum:=sum+f;
n:=n+1;
until f<eps;

Если вам нужна сумма ряда, то где собственно его формула?

[Vitalina69]

вот сумма ряда

[alex_fcsm]

f:=[значение функции зависяще от n];

f:=pos(x,2*n+1)/fact(2*n+1);

Реализуйте функции возведения в степень(pos) и факториал(fact) числа(на форуме 100500 раз обсуждались)

if n mod 2 = 0 then sum:=sum+f
   else sum:=sum -f

[Vitalina69]

Спасибо огромное за помощь!!! Ща попробую сделать)))) эх.... наверно не выйдет из меня хороего программиста(((((((((