Помогите пожалуйста полную программу итерационного процесса!

[KnighTeX]

Lab4.jpg
Помогите написать полную программу

[mitryz]

Я умею только на Си++

double factorial(unsigned x)
{
    double result = 1;
    for (unsigned i = 2; i <= x; i++)
        result *= i;
    return result;
}
double function(double x, int N) {
    double result = 1;
    for (int n = 1; n < N; n++)
        result += ((2n + 1) / factorial(n)) * pow(x, 2 * n);
    return result;
}

[KnighTeX]

А мне паскаль нужен))

[Мэс]

а вот и паскаль

function fact(x : integer): real;
var
  res : real;
  i : integer;
begin
  res := 1;
  for i := 2 to x do
    res := res * i;
  Result := res;
end;

function pow(x : real; N : integer) : real;
var
  i : integer;
  res : real;
begin
  res := 1;
  for i := 1 to N do
    res := res * x;
  Result := res;
end;

function func(x : real; N : integer) : real;
var
  res : real;
  i : integer;
begin
  res := 1;
  for i := 1 to N-1 do
    res := res + ((2*i+1)/fact(i)*pow(x,2*i));
  Result := res;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := FloatToStr(func(1, 10));
end;

Вместо 1 и 10 ставишь соответственно значение х и до какого члена считать

Я умею только на Си++
Код:


double factorial(unsigned x)
{
double result = 1;
for (unsigned i = 2; i <= x; i++)
result *= x;
return result;
}
double function(double x, int N) {
double result = 1;
for (int n = 1; n < N; n++)
result += ((2n + 1) / factorial(n)) * pow(x, 2 * n);
return result;
}

Функция factorial считает не факториал, а степень. Надо поправить:

double factorial(unsigned x)
{
    double result = 1;
    for (unsigned i = 2; i <= x; i++)
        result *= i;
    return result;
}

[KnighTeX]

Всем Спасибо))

а что значит res?

[mitryz]

res - название переменной

[Мэс]

а что значит res?

не до конца тебя понял. Если res описан в разделе var, значит это переменная, если за ним стоит слово real - значит переменная вещественного типа. Переменная - это такая штука, которая, хранит значение. Книг поболее читай, вопросов будет в 2 раза меньше