Нахождение интеграла

Gasphord · 18.02.2020, 23:04

Нужна помощь с решением задачи по интегралам с использованием рекурсии.

Код:

Function step (x,n):real;
  Var i:integer;
      q:real;
  Begin
    q:=1;
    for i := 1 to n do
    q:=q*x;
  end;


Function Integral(x:real; n:integer):real;
  Var cos:real;
  Begin
    if n>=2 then
      begin
        cos:=Step(cos(x),n-1);
        Integral:=(1/n-1)*(sin(x)/cos)+(n-2/n-1)*Integral(x,n-1);
      end
    else
      if n=1 then
      integral:= ln(tan((pi/4)+(x/2))
    else
    Integral:=x;
    end;

Vladimir_S · 19.02.2020, 10:32

Так, ну ход программы, в общем-то, правилен, вот только НЕ СЛЕДУЕТ давать своим идентификаторам имена стандартных функций и констант. В частности, определять переменную "cos". Обзовите её как-нибудь иначе. Ну и добавьте ввод n и x, а также, если нужно, останов по завершении счёта, чтобы можно было увидеть результат.
И да, ввод алгебраических дробей сделан абсолютно безграмотно. Вот здесь:
Integral:=(1/n-1)*(sin(x)/cos)+(n-2/n-1)*Integral(x,n-1);
Нужно так:
Integral:=(1/(n-1))*(sin(x)/cos)+((n-2)/(n-1))*Integral(x,n-1);

18.02.2020, 23:04	#1 (permalink)
Gasphord Новичок Регистрация: 15.10.2019 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Нахождение интеграла Нужна помощь с решением задачи по интегралам с использованием рекурсии. Код: Function step (x,n):real; Var i:integer; q:real; Begin q:=1; for i := 1 to n do q:=qx; end; Function Integral(x:real; n:integer):real; Var cos:real; Begin if n>=2 then begin cos:=Step(cos(x),n-1); Integral:=(1/n-1)(sin(x)/cos)+(n-2/n-1)*Integral(x,n-1); end else if n=1 then integral:= ln(tan((pi/4)+(x/2)) else Integral:=x; end; Миниатюры

19.02.2020, 10:32	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Так, ну ход программы, в общем-то, правилен, вот только НЕ СЛЕДУЕТ давать своим идентификаторам имена стандартных функций и констант. В частности, определять переменную "cos". Обзовите её как-нибудь иначе. Ну и добавьте ввод n и x, а также, если нужно, останов по завершении счёта, чтобы можно было увидеть результат. И да, ввод алгебраических дробей сделан абсолютно безграмотно. Вот здесь: Integral:=(1/n-1)(sin(x)/cos)+(n-2/n-1)Integral(x,n-1); Нужно так: Integral:=(1/(n-1))(sin(x)/cos)+((n-2)/(n-1))Integral(x,n-1);

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070