Программа вычисления интеграла на Паскале

[Ver4a]

Программа вычисления интеграла на Паскале

ПОМОГИТЕ ПОЖАЛУЙСТА....мНЕ НУЖНО НАПИСАТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ интеграла функции F(x)=cosx на отрезке [a,b] Методом двойного пересчета с точностью до E=0,001

Посмотреть вложение ПОМОГИТЕ ПОЖАЛУЙСТА.doc вот полностью задача

 

[Vladimir_S]

ПОМОГИТЕ ПОЖАЛУЙСТА....мНЕ НУЖНО НАПИСАТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ интеграла функции F(x)=cosx на отрезке [a,b] Методом двойного пересчета с точностью до E=0,001

Посмотреть вложение 53693 вот полностью задача

Да пожалуйста - какие проблемы:

Const
 E=0.001;
Var
 h,a,b,Jn,J2n:real;
 N,i:Word;
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*Cos(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*Cos(a+h*i-h/2);
 Until Abs(Jn-J2n)<=E;
 Writeln('      Integral = ',J2n:0:6);
 Writeln('Accurate value = ',(Sin(b)-Sin(a)):0:6);
 Readln;
End.

 

[bleachbk]

ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ ПРИБЛИЖЕННОГО ВЫЧИСЛЕНИЯ ИНТЕГРАЛА ФУНКЦИИ f(x)=5x2-x+2 методом прямогульников
5х2 - это 5х квадрат

ОЧЕНЬ ПРОШУ!

 

[Vladimir_S]

ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ ПРИБЛИЖЕННОГО ВЫЧИСЛЕНИЯ ИНТЕГРАЛА ФУНКЦИИ f(x)=5x2-x+2 методом прямогульников
5х2 - это 5х квадрат

ОЧЕНЬ ПРОШУ!

А взять готовую программу (выше) да подставить свою функцию - религия не позволяет?

 

[bleachbk]

А взять готовую программу (выше) да подставить свою функцию - религия не позволяет?

я не шарю в этом(( а нужно на курсовую...помоги пожалуйстай!

 

[Vladimir_S]

я не шарю в этом

И очень скверно! Мой тебе совет - берись за ум, пока не поздно. А если решил всю учебу, если не жизнь, на таких вот, как я, "дурачках-ишачках" с форумов проездить - ничего не выйдет, уж поверь. Да и сейчас... ну выложу я листинг, ну тупо-бездумно перекатаешь ты его в свою курсовую - а если преподаватель поинтересуется, почему здесь сделано так, а не этак, то что услышит в ответ? "Му-у-ууу"? Но, впрочем, тебе жить.

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.

 

[bleachbk]

СПАСИБО ОГРОМНОЕ!!!!

 

[bleachbk]

друг ,когда пишу программу в паскале,то на
Until Abs(Jn-J2n)<=E; выдает ошибку,что это?

 

[Vladimir_S]

друг ,когда пишу программу в паскале,то на
Until Abs(Jn-J2n)<=E; выдает ошибку,что это?

Понятия не имею. Единственное, что писал не раз и повторю еще - я НЕ выкладываю неотлаженных и неоттестированных программ, а потому с моей стороны ошибки быть не может.
А что у тебя за Паскаль? Если АВС, то за бесконечные глюки этого изделия №2 я тем более не отвечаю.
Впрочем, выложи через copy-paste свой листинг, я посмотрю. И хорошо бы не просто "выдает ошибку", а полный текст сообщения, лучше, если скриншотом.
P.S. В качестве предположения - ты случайно "Е" не в русском регистре набил? Проверь.

 

[Vladimir_S]

2Kappa
У нас не принято лезть в чужие темы. Ваша задача перенесена в новую тему http://www.tehnari.ru/f43/t90875/
Эта ТЕМА ЗАКРЫТА.