18.02.2020, 23:04 | #1 (permalink) |
Новичок
Регистрация: 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; |
18.02.2020, 23:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Давайте я вам помогу найти схожие с вашей темы Вычисление интеграла на С++ Паскаль. Вычисление интеграла Программа вычисления интеграла на Паскале Помогите пожалуйста! C# вычисление интеграла двумя любыми способами Вычисление интеграла. Паскаль |
19.02.2020, 10:32 | #2 (permalink) |
Специалист
Регистрация: 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
|
|
|