интеграл..., метод вычисления |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
интеграл..., метод вычисления |
-kvaga- |
Сообщение
#1
|
Гость |
В общем нужно программу вычесление интеграла... d(x) на промежутка a и b.
препод на листке объяснил что то..но я мало понял...вот чтов общем он мне написал на листке Program p; .............. ............... function int(a,b,eps:real,f:func):real begin реализация метода вычисления интеграла для ф-ии вид которой а end; function fi(x:real):real; begin fi:=x*x;end; begin readln(a,b,eps); writeln(int(a,b,eps,fi); Sстарое = ((f(a)+f(b))* (b-a))/2 S новое =S1+S2 abs(S ст -S н) < eps все ОК!!! дальше чет не понял...толи какой то цикл идет ..то ли S новое переходит в S старое... или ещё что о он написал в общем помогите разобраться... |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Гость |
Сообщение
#3
|
Гость |
вот код нам давали на лекции..метод средних треугольников..только препод дал программу не работающую..я показал по практике преподавателю(думал доделаем) он сказал что программа очень неграммотна...и вообще зачем нам знать число деления n. и что нужно использовать эпсилан
Код Program integral; uses crt; type func=function(x:real):real; Var x,S,h:real; i:integer; Function Int(a,b:real;f:func;n:integer):real; Begin writeln(' BBeduTe a,b ==> '); readln(a,b); write(' Bbedute 4uclo deleniy otrezka n'); read(n); h:=(b-a)/n; S:=0; for i:=0 to n-1 do begin x:=a+h*0.5; S:=S+f(x); x:=x+h; Int:=h*S; end; writeln('s=',s); readln End, Begin Int(a,b;f;n); End. |
-kvaga- |
Сообщение
#4
|
Гость |
вот нашёл похожее..только сделанно ка кто слишком заумно..возможно ли переделать по проще..чтобы не было никаких модулей
UNIT C_Rect; |
Текстовая версия | 24.04.2024 4:40 |