VPF::[Pascal] Численное интегрирование методом трапеций

IceTi

Дата 2.2.2007, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.12.2006
Где: Казахстан

Репутация: 0
Всего: 1

Привет всем!! Кто может, помогите решить задачу на метод средних прямоугольников и метод трапеции. smile

f(x)= x/e*st(x) - в знаменателе е в степени x.
a=-1 b=3
Заранее спасибо!!!!

Это сообщение отредактировал(а) IceTi - 2.2.2007, 21:37

avectoi

Дата 2.2.2007, 22:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 5.6.2006
Где: Великий Новгород

Репутация: нет
Всего: нет

А число промежутков разбиения чему равно?

Voventus

Дата 3.2.2007, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 7.12.2004
Где: г. Владивосток

Репутация: нет
Всего: нет

Метод трапеций

Программная реализация.......
Чем больше "n", тем точнее интеграл.....

Код


#include <iostream>
#include <conio>
#include <math>

float f(float x)
  {
    return x/exp(x);
  }

int main()
  {
    float a = -1, b = 3, n = 4, S = 0, h, integ;

    h = (b-a)/n;

    for(int i=1; i<=(n-1); i++)
      S += f(a + h*i);

    integ = h * ( ( f(a) + f(b) )/2 + S );

    cout << integ;

    getch();

    return(0);
  }

С методом прямоугольников аналогично...смотришь в формулу и шпаришь...

ЗЫ Странно, что такие простые интегралы дают считать численными методами...(f(x) = x/exp(x) в реале интегрируется по частям)

Присоединённый файл ( Кол-во скачиваний: 34 )

integ.GIF 66,08 Kb

IceTi

Дата 4.2.2007, 20:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.12.2006
Где: Казахстан

Репутация: 0
Всего: 1

Вы меня не поняли, мне нужно на паскаль решить эту программу. smile

Пожалуйста, можешь до понедельника решить на Паскаль....?

Voventus

Дата 5.2.2007, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 7.12.2004
Где: г. Владивосток

Репутация: нет
Всего: нет

Цитата

Вы меня не поняли, мне нужно на паскаль решить эту программу.

Гы...вот человек, понимаешь...а как тебя можно понять, если ты об этом и не говорил...я, вроде как, телепатией не обладаю... smile

Вот же правила!

Цитата

# Первым делом в квадратных скобках укажи область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++]. Для нескольких языков для краткости используй: [C++|Delphi] -- "или", [C++&Delphi] -- "и", [C++->Delphi] -- "в".

Ща перепишу код под Pascal...

Voventus

Дата 5.2.2007, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 7.12.2004
Где: г. Владивосток

Репутация: нет
Всего: нет

[Pascal] Численное интегрирование методом трапеций

Со скрипом...забываю синтаксис Паскаля smile

Хы...я был так уверен, что Паскаль мне в этой жизне не понадобится, что удалил IDE...

Код


program fromCtoPascal;

var
  S, h, integ : real;
  i, n, a, b  : integer;

function f(x:real):real;
  begin
    f := x/exp(x);
  end;

BEGIN

  a := -1;
  b := 3;
  S := 0;
  n := 4;

  h := (b - a) / n;

  for i := 1 to n-1 do
    begin
      S := S + f(a + h * i);
    end;

  integ := h * ( ( f(a) + f(b) ) / 2 + S);

  writeln(integ:0:4);
  readln;

END.

ЗЫ ААА!!!! Люди я и не думал, что год/полтора работы с СИ-подобными языками пожет так пагубно сказаться на восприятии синтаксиса, например, Паскаля...код аж на глаза режет...тыкал(именно тыкал) пол часа...

IceTi

Дата 5.2.2007, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.12.2006
Где: Казахстан

Репутация: 0
Всего: 1

Хотя еще не смотрел на работуспособность программы smile

но все равно Большое спасибо за помощь smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »