nersafer
|
|
1 | |
как решить интеграл в паскале?23.09.2008, 07:56. Показов 6212. Ответов 2
Метки нет Все метки)
(
задача:
методом Монте-Карло найти массу квадратной пластины [0,π/2; 0,π/2] с плотностью ρ(x,y)=2*sin(x+y) математически я ее решил(ответ: 4).. она свелась к нахождению двойного интеграла т.е.: интеграл от 0 до π/2 от интеграла от 0 до π/2 от 2*sin(x+y) по dx dy проблема в том что я незнаю как решить интеграл в паскале.. в хелпе я не нашел функции которая решает интегралы, и даже думаю что таких нет.. с паскалем я в принципе знаком, нормально решаю несложные задачи.. но вот с интегралами не разу не сталкивался.. Пожалуйста, подскажите метод как их решают!! |
23.09.2008, 07:56 | |
23.09.2008, 07:56 | |
Ответы с готовыми решениями:
2
как решить в паскале? Как решить систему в паскале?
|
Почетный модератор
![]() 64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
23.09.2008, 08:15 | 2 |
В зависимости от выбранного способа решения, по разному решают и на Паскале. Вот один из способов решения:
Код
[SIZE=3][COLOR=#465584][FONT=Courier]program integral;[/FONT][/COLOR][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]var[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]n,i : integer;[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]a,b,shag,sum,itog : real;[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]function F(x:real):real;[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]begin[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584] F:=[/COLOR][/FONT][FONT=Times New Roman][COLOR=#465584]ввести [/COLOR][COLOR=#465584]интегрируемую [/COLOR][COLOR=#465584]функцию[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]end;[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]{======================================}[/COLOR][/FONT][/SIZE] [SIZE=3][COLOR=#465584][FONT=Times New Roman]begin[/FONT][/COLOR][/SIZE] [FONT=Courier][COLOR=#465584][SIZE=3]write('[/SIZE][/COLOR][/FONT][SIZE=3][COLOR=#465584][FONT=Courier]Начало [/FONT][/COLOR][COLOR=#465584][FONT=Courier]интегрирования[/FONT][/COLOR][/SIZE][SIZE=3][COLOR=#465584][FONT=Courier] a = '); readln(a);[/FONT][/COLOR][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]write('[/COLOR][/FONT][COLOR=#465584][FONT=Courier]Конец [/FONT][/COLOR][COLOR=#465584][FONT=Courier]интегрирования[/FONT][/COLOR][/SIZE][SIZE=3][COLOR=#465584][FONT=Courier] b = '); readln(b);[/FONT][/COLOR][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]write('[/COLOR][/FONT][COLOR=#465584][FONT=Courier]Количество [/FONT][/COLOR][COLOR=#465584][FONT=Courier]разбиений [/FONT][/COLOR][COLOR=#465584][FONT=Courier]интервала[/FONT][/COLOR][/SIZE][SIZE=3][COLOR=#465584][FONT=Courier] n = '); readln(n);[/FONT][/COLOR][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]shag:=(b-a)/n;[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]sum:=0;[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]for i:=1 to n-1 do[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584] sum := sum + F(shag*i+a);[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]sum := sum + (F(a)+F(b))/2;[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]itog:=(b-a)/n * sum;[/COLOR][/FONT][/SIZE] [SIZE=3][FONT=Courier][COLOR=#465584]writeLn('[/COLOR][/FONT][COLOR=#465584][FONT=Courier]Интеграл[/FONT][/COLOR][COLOR=#465584][FONT=Courier] = ', itog:0:5);[/FONT][/COLOR][/SIZE] [COLOR=#465584][FONT=Courier][SIZE=3]readln[/SIZE][/FONT][/COLOR] [SIZE=3][COLOR=#465584][FONT=Courier]end[/FONT][/COLOR][COLOR=#465584][FONT=Courier].[/FONT][/COLOR][/SIZE]
1
|
nersafer
|
|
23.09.2008, 12:21 | 3 |
спасибо!!!!
![]() ![]() |
23.09.2008, 12:21 | |
23.09.2008, 12:21 | |
Помогаю со студенческими работами здесь
3
Как ето решить на паскале??!!! О_о Как решить уравнение с двойным факториалом в паскале?
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
![]() |
Опции темы | |
|
Новые блоги и статьи
![]() |
||||
Отключение отслеживания файла, занесенного в .gitignore в Git
hw_wired 10.02.2025
Git помогает следить за изменениями в проекте, но иногда требуется исключить определенные файлы из системы контроля версий. Это могут быть конфигурационные файлы с локальными настройками, временные. . .
|
Что такое use strict в JavaScript
hw_wired 10.02.2025
Директива use strict - способ перевода JavaScript-кода в строгий режим работы, который делает язык более безопасным и предсказуемым. Она появилась в ECMAScript 5 как ответ на многочисленные проблемы,. . .
|
Как в jQuery проверить, что элемент скрыт
hw_wired 10.02.2025
jQuery предоставляет несколько эффективных способов определить, скрыт элемент или отображается на странице. Самый простой метод использует специальные селекторы :hidden и :visible. Селектор :hidden. . .
|
Как проверить (check out) ветку Git в удаленном репозитории
hw_wired 10.02.2025
Проверка удаленной ветки в Git требует понимания нескольких базовых концепций и точного выполнения определенной последовательности действий. Для начала необходимо получить актуальную информацию о. . .
|
chucknorris в HTML и другие обозначения цветов
hw_wired 10.02.2025
HTML, как основной язык разметки веб-страниц, прошел длинный путь развития в плане работы с цветами. На заре развития веб-технологий разработчики могли использовать только базовый набор из 16. . .
|
Стек и куча: отличия и назначение
hw_wired 10.02.2025
Управление памятью - ключевой элемент работы любой программы. В современных языках программирования память делится на две основные области: стек и кучу. Каждая из них обладает уникальными. . .
|
Комментарии в JSON
hw_wired 10.02.2025
JSON - текстовый формат обмена данными, построенный на основе синтаксиса JavaScript. Этот формат отличается простотой, читаемостью и широкой поддержкой во всех современных языках программирования. . . .
|
Перезаписываем локальные файлы с помощью git pull
hw_wired 10.02.2025
Git pull - незаменимая команда для синхронизации локального репозитория с удаленным. При работе над проектом в команде разработчиков часто возникает необходимость получить актуальные изменения,. . .
|
Оператор --> в C++
hw_wired 10.02.2025
Оператор --> (называемый "spaceship operator" или оператор космического корабля) - важное нововведение в стандарте C++20, упрощающее реализацию операций сравнения в пользовательских типах данных. . . .
|
Отмена git add до коммита
hw_wired 10.02.2025
Git предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
|