nersafer
1

как решить интеграл в паскале?

23.09.2008, 07:56. Показов 6212. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
задача:
методом Монте-Карло найти массу квадратной
пластины [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
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.09.2008, 07:56
Ответы с готовыми решениями:

как решить в паскале?
Дана последовательность n длины, сколько можно составить 4-х значных значений?

Как решить систему в паскале?
m=arcsin(1/3)*x =sin^2(x) =(3x^2)*(e^-x)

как решить систему в паскале?
y=система: tgx, x>0 и ctgx, x<=0.

2
Почетный модератор
 Аватар для Puporev
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.09.2008, 12:21
Помогаю со студенческими работами здесь

Как решить в паскале cosx/pi-2x+16xcos(xy)-2
как решить в паскале cosx/pi-2x+16xcos(xy)-2 ?? помогите пожалуйста

Как ето решить на паскале??!!! О_о
Срочно нужна помощь!!!!! Тема: Розробка алгоритму програми ведення метеожурнала Завдання Створити алгоритм та програму...

Как решить уравнение с двойным факториалом в паскале?
Вычислить n: (2n-1)!!=1*3*5*...*(2n-1), n>0

решить в паскале=)
1.Задание: Написать программу с использованием трех операторов цикла: арифметического, предусловием и постусловием. Программа должна...

решить в паскале
Дано вещественное число. Определить какое это число: положительное, отрицательное, ноль.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
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 предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru