28.11.2016, 16:39 | #1 (permalink) |
Новичок
Регистрация: 28.11.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Интегрирование функций методом трапеций. Паскаль
|
28.11.2016, 16:39 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Список тем, которые схожи с вашей Интегрирование функций методом трапеций. Паскаль Интегрирование методом средних прямоугольников в Delphi Паскаль. Численное интегрирование Паскаль, подпрограммы функций Паскаль АВС, сортировка в одномерном массиве без функций и операций |
28.11.2016, 17:00 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
М-да... знакомая картина. Декабрь близится, а в нем - зачетная неделя и начало сессии (ну кто бы мог ожидать такой пакости?). Студенты начинают пробуждаться от осенней спячки.
Ладно, держите: Код:
Const a=1.0; b=4.0; N=40; Var AV:Real; Function F(x:Real):Real; begin F:=x*x*x/(x*x*x*x+1); end; Function Antiderivative(x:Real):Real; begin Antiderivative:=ln(x*x*x*x+1)/4; end; Function Trapezium:Real; var i:Byte; Sum,h:Real; begin h:=(b-a)/N; Sum:=(F(a)+F(b))/2*h; for i:=1 to N-1 do Sum:=Sum+h*F(a+h*i); Trapezium:=Sum; end; Begin Writeln('Result: ',Trapezium:0:8); AV:=Antiderivative(b)-Antiderivative(a); WriteLn('Accurate value: ', AV:0:8); Readln End. |
28.11.2016, 17:05 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
И сколько этой ерунды еще будет вывалено? Подозреваю, что за весь семестр... Ладно уж, давайте всё, посмотрю. Только не сию минуту.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
28.11.2016, 19:18 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Код:
Const x=1.75; e=0.001; Var S,a:Real; n:Integer; Begin a:=1; S:=a; n:=0; repeat n:=n+1; a:=a*Sqr(x)/((2*n-1)*(2*n)); S:=S+a; until a<e; Writeln('Result: ',S:0:8); WriteLn('Accurate value: ', (exp(x)+exp(-x))/2:0:8); Readln End. |
28.11.2016, 19:45 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Код:
Const a=2.0; Var x:Real; i:byte; function L_n(t:real):real; var n:byte; c,S:real; begin n:=0; c:=(t-1)/(t+1); S:=c; for n:=1 to 10 do begin c:=c*Sqr(t-1)/Sqr(t+1)*(2*n-1)/(2*n+1); S:=S+c; end; L_n:=S*2; end; function Z1(a1,x1:real):real; begin if x1>=a1 then Z1:=a1*L_n(x1) else Z1:=x1*L_n(a1); end; function Z2(a2,x2:real):real; begin if x2>=a2 then Z2:=a2*Ln(x2) else Z2:=x2*Ln(a2); end; Begin Writeln(' x Result Accurate'); for i:=0 to 6 do begin x:=3.0+0.5*i; writeln(x:3:1,Z1(a,x):15:5,Z2(a,x):15:5); end; Readln End. |
29.11.2016, 13:36 | #8 (permalink) |
Новичок
Регистрация: 28.11.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо вам больше , да всё возможно там скорее всего сам преподаватель изменял их
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|