Автор Тема: Прошу помочь с составлением программ в Паскаль (см. внутри)  (Прочитано 4289 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн BratStigmat

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
Все просто, нужно составить программы для нахождения определенного интеграла способами прямоугольников, трапеций и симпсона. Функция: ((lg(x))^2)/2 в пределам от 1 до 4, кол-во частей разбиения 52. Убедительная просьба помочь кто чем может, от этого многое зависит)))

Оффлайн lu

  • Модератор
  • *****
  • Сообщений: 3126
  • ~~~~^_^~~~~
    • Просмотр профиля
а вы хотя бы половину написали?
Мы помогаем, а не решаем за Вас !!!

Полезные обозначения:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ∂ ℮ ∩ ≡  ≠ ≤ ≥ ≈ ∩   α β γ δ ε ζ η θ λ μ ξ π ρ σ φ ψ

Оффлайн Asix

  • Администратор
  • *****
  • Сообщений: 7257
  • Математик
    • Просмотр профиля
На нашем сайте есть классная программа - решение интегралов, просмотрите ее код, в ней реализованы все ваши методы. Думаю вам не составит труда переделать программу под Паскаль =))
Математика онлайн - онлайн калькуляторы по математике, геометрии и теории вероятности!
Решение задач | Примеры решения задач | Рефераты | Заказать решениеШпаргалки | Теоретический материал

Выполнение студенческих работ на заказ!
Выполняем - Контрольные работы | Курсовые работы | Рефераты | Решение задач

За советы можете мне плюсики в репутацию ставить =)) Разрешаю =))

Оффлайн BratStigmat

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
Увы..исходный код программы  найти не удалось..

Оффлайн BratStigmat

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
вот мой код для метода прямоугольников:

program Integral;
var
a,b,h,s,int:real;
i,n:integer;

function F(x:real):real;
begin
F:=sqr(ln(x))/2;
end;
begin
a:=1;
b:=4;
n:=52;
h:=(b-a)/n;
s:=0;
for i:=1 to n-1 do
begin
s:=s+(F(a)+F(b))/2;
end;
int:=(b-a)/n*s;
writeln('Int=',int:3:3);
readln;
end.

Оффлайн BratStigmat

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
для трапеций:
program inttrap;
function F(x:real):real;
begin
F:=sqr(ln(x))/2;
end;
var
a,b,n,h,si,x:real;
i:integer;
begin

n:=52;
a:=1;
b:=4;
h:=(b-a)/n;
i:=0;
si:=0;
x:=a;
repeat
si:=si+(F(x)+F(x+h))/2*h;
x:=x+h;
i:=i+1;
until i>=n;
writeln ('Int=',si:3:3);
readln;
end.


Оффлайн BratStigmat

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
и наконец для симпсона:

program Simpson;
function F(x:real):real;
begin
F:=sqr(ln(x))/x;
end;
var
a,b,h,x:real;
n,i:integer;
int:real;

begin
a:=1;
b:=4;
n:=52;
h:=(b-a)/n;
int:=F(a)+F(b)+4*F(x+h);
for i:=1 to (n div 2)-1 do
begin
x:=a+2*h*i;
int:=int+2*F(x)*4*F(x+h);
end;
int:=h*int/3;
writeln ('Int=',int:2:3);
end.

Оффлайн lu

  • Модератор
  • *****
  • Сообщений: 3126
  • ~~~~^_^~~~~
    • Просмотр профиля
Мы помогаем, а не решаем за Вас !!!

Полезные обозначения:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ∂ ℮ ∩ ≡  ≠ ≤ ≥ ≈ ∩   α β γ δ ε ζ η θ λ μ ξ π ρ σ φ ψ

Оффлайн BratStigmat

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
это то что надо проверить и указать на ошибки, см. выше

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
есть такая замечательная вещь как дебаг...юзайте ее и сами смотрите в каком месте вычисления идут не туда и правьте
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн Asix

  • Администратор
  • *****
  • Сообщений: 7257
  • Математик
    • Просмотр профиля
Наш главный программер вернулся =))
Ура =))
Математика онлайн - онлайн калькуляторы по математике, геометрии и теории вероятности!
Решение задач | Примеры решения задач | Рефераты | Заказать решениеШпаргалки | Теоретический материал

Выполнение студенческих работ на заказ!
Выполняем - Контрольные работы | Курсовые работы | Рефераты | Решение задач

За советы можете мне плюсики в репутацию ставить =)) Разрешаю =))

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
дада) я снова тут)
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

 

Помогите пожалуйста решить задачи на С++... очень вас прошу....

Автор Дусяшка

Ответов: 0
Просмотров: 1197
Последний ответ 23 Апреля 2011, 16:15:39
от Дусяшка
Delphi. Нужно помочь ввести одну формулу.

Автор privatnebank

Ответов: 3
Просмотров: 1664
Последний ответ 27 Мая 2010, 20:53:07
от privatnebank
Найти ошибки в программе, составить блок-схему алгоритма, Паскаль

Автор Murmansk

Ответов: 27
Просмотров: 8136
Последний ответ 22 Февраля 2010, 18:52:06
от InfStudent
Задача паскаль. Составить программу для построения таблицы значений

Автор Rydon

Ответов: 1
Просмотров: 4318
Последний ответ 21 Декабря 2009, 15:49:38
от Rydon
Турбо паскаль, программа для нахождения НОД трех чисел, помогите

Автор Иринки

Ответов: 1
Просмотров: 8898
Последний ответ 23 Ноября 2010, 22:29:53
от testtest