[ttjkee]

Дано действительное число х. Безымянный2.JPG
Выполнить через Console Application.

[NIch]

Думай...
Вычисление факториала...

Код:

function factorial(n: integer): integer;
begin
if n > 1
then factorial := n * factorial(n-1) // функция вызывает сама себя
else factorial:= 1;  // факториал 1 равен 1
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer; // число, факториал которого надо вычислить
f:integer; // значение факториала числа a
begin
k := StrToInt(Edit1.Text);
b:= factorial(a);
label1.caption:='Факториал числа '+Edit1.Text+' равен '+IntToStr(b);
end;
end.

Возведение в степень...

Код:

//Функция быcтрого возведения в степень
function FastPower(a,b: integer): integer;
  var i, ai: integer;
begin
  ai := a;
  for I := Trunc(log2(b)) - 1 downto 0 do
   if Bit(b, i) then ai := sqr(ai) * a else ai := sqr(ai);
  result := ai;
end;

[Kapitoshka438]

Рекурсия и быстрое возведение в степень - это, конечно, хорошо. Но, по-моему, здесь нужно поступить так:

Код:

function F(X: Double): Double;
var
  I: Integer;
  A: Double;
begin
  A := X;
  Result := A;
  I := 3;
  while I <= 13 do
  begin
    A := A * X * X / (I - 1) / I;
    if I = 3 then
      Result := Result - A
    else
      Result := Result + A;
    Inc(I, 2);
  end;
end;

Ибо незачем, например, вычислять 7! с самого начала, зная 5!. Так же и со степенями X.

[NIch]

Ну да я чет не обратил внимание на последовательность 3 5 7 9 11 13...

[volo4itel]

y=a*x2(в квадрате)