Цитата:
Сообщение от bleachbk
я не шарю в этом
|
И очень скверно! Мой тебе совет - берись за ум, пока не поздно. А если решил всю учебу, если не жизнь, на таких вот, как я, "дурачках-ишачках" с форумов проездить - ничего не выйдет, уж поверь. Да и сейчас... ну выложу я листинг, ну тупо-бездумно перекатаешь ты его в свою курсовую - а если преподаватель поинтересуется, почему здесь сделано так, а не этак, то что услышит в ответ? "Му-у-ууу"? Но, впрочем, тебе жить.
Код:
Const
E=0.0001;
Var
h,a,b,Jn,J2n:real;
N,i:Word;
Function Fu(Xf:Real):Real;
Begin
Fu:=Sqr(Xf)*5-Xf+2;
End;
Function An(Xa:Real):Real;
Begin
An:=Xa*Xa*Xa*5/3-Sqr(Xa)/2+Xa*2;
End;
Begin
Write('a= ');
Readln(a);
Write('b= ');
Readln(b);
N:=2;
h:=(b-a)/N;
J2n:=0;
For i:=1 to N do
J2n:=J2n+h*Fu(a+h*i-h/2);
Repeat
Jn:=J2n;
N:=N*2;
h:=(b-a)/N;
J2n:=0;
For i:=1 to N do
J2n:=J2n+h*Fu(a+h*i-h/2);
Until Abs(Jn-J2n)<=E;
Writeln(' Integral = ',J2n:0:6);
Writeln('Accurate value = ',(An(b)-An(a)):0:6);
Readln;
End.