Проблема с вычислением интеграла, (переименовано) |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Проблема с вычислением интеграла, (переименовано) |
medievil |
10.09.2005 18:27
Сообщение
#1
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Так вот мучился я мучился над интегралом в результате сделал,а препод еще одну заподлянку подкинул :angry: :angry: да еще какую если кто может помогите.Мои мозги сварились после трех часов работы :( :(
Код unit integral; interface uses crt; var n,i:integer; a,b,shad,sum,itog:real; implementation function f(x:real):real; begin f:=x*x*x*x+2*x*x+4{¬Ґв®¤ Їаאַ㣮«мЁЄ } end; begin clrscr; textbackground(2); textcolor(blue); writeln('***************************'); writeln('* *'); writeln('*Њ е®ў ‚пзҐб« ў ЊЁе Ё«®ўЁз*'); writeln('* *'); writeln('ННННННННННННННННННННННННННН'); write('начало интегрирования a= ');readln(a); write('конец интегрирования b= ');readln(B); write('количество разбиения интервала n= ');readln(n); shad:=(b-a)/n; sum:=0; for i:=1 to n-1 do sum :=sum + f(shad*i+a); sum :=sum +(f(a) +f(B))/2; itog:=(b-a)/n * sum; writeln ('ЁвҐЈа « = ', itog:10:1); readln; end. Надо чтоб не я вводил количество разбиения интервал а он всегда разбивался до 0.01 Нужно срочно(до понедельника) 1. В следующий раз выбирай более подходящий раздел ... 2. ... и название темы. 3. И пользуйся тегами [CОDE] ... 4. ... и поиском (хотя бы в FAQ-е). Сообщение отредактировано: volvo - 10.09.2005 18:42 |
volvo |
10.09.2005 18:47
Сообщение
#2
|
Гость |
Скорее всего, все, что тебе надо сделать - подобрать обратное действие к
shad:=(b-a)/n;, то есть по заданному шагу найти N: write('начало интегрирования a= ');readln(a); |
medievil |
10.09.2005 21:01
Сообщение
#3
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
спасибо
|
medievil |
11.09.2005 17:04
Сообщение
#4
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Слушай а тьы проверял ее,а то у меня паскаль не работает
|
volvo |
11.09.2005 17:59
Сообщение
#5
|
Гость |
Все, что взято у нас из FAQ (а твоя программа взята именно оттуда: FAQ: Численное интегрирование) проверено неоднократно...
|
Текстовая версия | 5.05.2024 2:56 |