Технический форум - Программа вычисления интеграла на Паскале

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

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

Цитата:

Сообщение от Ver4a (Сообщение 608348)

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

Код:

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.

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

ОЧЕНЬ ПРОШУ!

Цитата:

Сообщение от bleachbk (Сообщение 682152)

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

Цитата:

Сообщение от Vladimir_S (Сообщение 682240)

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

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

Цитата:

Сообщение от bleachbk (Сообщение 682417)

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

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

Код:

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.

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

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

Цитата:

Сообщение от bleachbk (Сообщение 692293)

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

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

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