Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 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:=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;
Миниатюры
ozr7fheng6u.jpg  
Gasphord вне форума   Ответить с цитированием

Старый 18.02.2020, 23:04
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Давайте я вам помогу найти схожие с вашей темы

Вычисление интеграла на С++
Паскаль. Вычисление интеграла
Программа вычисления интеграла на Паскале
Помогите пожалуйста! C# вычисление интеграла двумя любыми способами
Вычисление интеграла. Паскаль

Старый 19.02.2020, 10:32   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,760
Сказал(а) спасибо: 339
Поблагодарили 579 раз(а) в 207 сообщениях
Репутация: 112176
По умолчанию

Так, ну ход программы, в общем-то, правилен, вот только НЕ СЛЕДУЕТ давать своим идентификаторам имена стандартных функций и констант. В частности, определять переменную "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);
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:00.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.