уже голову сломал. помогите!

@voiaka2008 · Регистрация: 20.09.2011

Студворк — интернет-сервис помощи студентам

Условие задачи:
Вычислить arctg(x) с точностью ε = 0.0001, воспользовавшись разложением в ряд:
arctg(x)= пи/2-1/x+1/(3*x^3)-1/5x^5+...+((-1)^(n+1)/(2n+1)*x^(2n+1)+...)
Сравнить результат со значением, полученным с помощью соответствующей встроенной функции при x=1.5.
Код программы:

Delphi

function MyArcTan(aX: extended): extended;
var
  Epsilon: Extended;
  vResult: Extended;
  n: Integer;
begin
  Result := 0;
  n := 0;
  Epsilon := (Power(-1, n) * Power(aX, 2 * n + 1)) / (2 * n + 1);
  while Abs(Epsilon) > 0.0001 do
  begin
    try
      Result := Result + Epsilon;
      Inc(N);
      Epsilon := (Power(-1, n) * Power(aX, 2 * n + 1)) / (2 * n + 1);
    except
      //ShowMessage(IntToStr(N));
      Break;
    end;
  end;
  Result :=  Pi/2 - Result;
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
  Edit1.Text := FloatToStr(MyArcTan(0.1));
  Edit2.Text := FloatToStr(Pi/2 - ArcTan(0.1));
end;

как это правильно переделать для Console Application в Delphi???

@Puporev · 04.11.2011, 18:27

Это убрать.

Delphi

procedure TForm3.Button1Click(Sender: TObject);
begin
  Edit1.Text := FloatToStr(MyArcTan(0.1));
  Edit2.Text := FloatToStr(Pi/2 - ArcTan(0.1));
end;

Это дописать.

Delphi

var x:extended;
begin
x:=1.5;
writeln('Summa ryada=', MyArcTan(x):0:5);
writeln('Analiticheski=',ArcTan(x):0:5);
readln;
end.

@voiaka2008 · 04.11.2011, 21:46 **[ТС]**

че то не сильно помогло((((

@Puporev · 04.11.2011, 22:02

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

че то не сильно помогло((((

Попробуй водку с перцем....

@*~<`PIK`>~* · 04.11.2011, 22:37

Как-то так=)

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Math;
 
var x:extended;
 
function MyArcTan(aX: extended): extended;
var
  Epsilon: Extended;
  vResult: Extended;
  n: Integer;
begin
  Result := 0;
  n := 0;
  Epsilon := (Power(-1, n) * Power(aX, 2 * n + 1)) / (2 * n + 1);
  while Abs(Epsilon) > 0.0001 do
  begin
    try
      Result := Result + Epsilon;
      Inc(N);
      Epsilon := (Power(-1, n) * Power(aX, 2 * n + 1)) / (2 * n + 1);
    except
      //ShowMessage(IntToStr(N));
      Break;
    end;
  end;
  Result :=  Pi/2 - Result;
end;
 
begin
x:=1.5;
writeln('Summa ryada=', MyArcTan(x):0:5);
writeln('Analiticheski=',ArcTan(x):0:5);
readln;
end.

@voiaka2008 0 / 0 / 0 Регистрация: 20.09.2011 Сообщений: 21
	04.11.2011, 21:46 [ТС]	3
	че то не сильно помогло(((( 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	04.11.2011, 22:02	4
	Сообщение от voiaka2008 че то не сильно помогло(((( Попробуй водку с перцем.... 0

Опции темы