adsl club

Справочник

Форум

Программы

Фильмы

Ресурсы

Файлообмен

Хостинг

Ростелеком
Метод трапеций и средних прямоугольников
Ответить на тему    Форум АДСЛ КлубаЦИФРОВОЙ ФЛЕЙМ :)ПРОГРАММИРОВАНИЕ
Автор Сообщение
Финансист
Форумчанин
СообщениеДобавлено: Ср 17-12-08 : 21-04    Заголовок сообщения: Метод трапеций и средних прямоугольников Ответить с цитатой

Ап стену друже! Помогите кто-нибудь брату младшему задали по информатике на Pascal написать проги интегрирующие по этим методам я сам додумался только до этого

средних прямоугольников
Код:
UNIT C_Rect;
INTERFACE
TYPE Func=Function(x:real):real;
FUNCTION Rectangles(a,b:Real; f:Func; n:word):Real;
FUNCTION RectanglesRunge(a,b:Real; f:Func; var n: word;eps:Real):Real;
IMPLEMENTATION
FUNCTION Rectangles(a,b:Real; f:Func; n:word):Real;
VAR
h,f1,sum,x,y:Real;
i:Integer;
BEGIN
h := (b-a) / n; sum := 0; x := a;
for i := 1 to n do
begin
y := x;     x := x + h;    f1 := f((x + y)/2);      sum := sum + f1;
end;
Rectangles:= sum*h;
END;
FUNCTION RectanglesRunge(a,b:Real; f:Func; var n: word; eps:Real):Real;
VAR
I1, I2: real;
BEGIN
I1 := Rectangles(a,b,f,n);       n := n+n;      I2 := Rectangles(a,b,f,n);
while abs(I1-I2) > 2*eps do
begin
if  n >= 16383 then break;
I1 := I2;
n := n+n;
I2 := Rectangles(a,b,f,n);
end;
RectanglesRunge := I2;
END; BEGIN END.


Метод трапеций
Код:
unit trapeziu;
interface
uses crt;
function IntegralTrapezium(const a : Double;
     const b : Double;
     const Epsilon : Double):Double;
implementation
function IntegralTrap(a:Real;b:Real;Epsilon:real):real;
function IntegralTrapezium(const a : Double;
     const b : Double;
     const Epsilon : Double):Double;
var
    i : Integer;
    n : Integer;
    h : Double;
    s1 : Double;
    s2 : Double;
begin
    n := 1;
    h := b-a;
    s2 := h*(F(a)+F(b))/2;
    repeat
        s1 := s2;
        s2 := 0;
        i := 1;
        repeat
            s2 := s2+F(a-h/2+h*i);
            i := i+1;
        until  not (i<=n);
        s2 := s1/2+s2*h/2;
        n := 2*n;
        h := h/2;
    until  not (AbsReal(s2-s1)>3*Epsilon);
    Result := s2;
end;
end.



pascal.rar
 Описание:  
Скачать
 Имя файла:  pascal.rar
 Размер файла:  810 Байт
 Скачано:  396 раз(а)
 Наверх
Посмотреть профиль / Отправить личное сообщение Отправить личное сообщение  
fish88
Эксперт
Предупреждений : 3
СообщениеДобавлено: Ср 17-12-08 : 22-28    Заголовок сообщения: Ответить с цитатой

offtop эт в школе щас такое задают? Shocked
 Наверх
Посмотреть профиль / Отправить личное сообщение Отправить личное сообщение  
Aprelle
Гуру
СообщениеДобавлено: Чт 18-12-08 : 00-19    Заголовок сообщения: Ответить с цитатой

Ну додумался, молодец, а в чем вопрос то?
Написать самостоятельно проги и сравнить с твоими или как?
Может проще у гугла спросить?
http://alglib.sources.ru/integral/trapezium.php
http://forum.vingrad.ru/forum/s/cea17eb6b587a96cb0c093b2ffa0f6a3/topic-135181/anchor-entry1022482/0.html
http://otvet.mail.ru/question/19999144/
http://festival.1september.ru/articles/508108/
http://window.edu.ru/window_catalog/redir?id=47027&file=mirea032.pdf
 Наверх
Посмотреть профиль / Отправить личное сообщение Отправить личное сообщение  
koshak13
Гуру
СообщениеДобавлено: Чт 18-12-08 : 00-59    Заголовок сообщения: Ответить с цитатой

fish88
школа в 20 лет?О_о
 Наверх
Посмотреть профиль / Отправить личное сообщение Отправить личное сообщение   Номер ICQ
Aprelle
Гуру
СообщениеДобавлено: Чт 18-12-08 : 01-16    Заголовок сообщения: Ответить с цитатой

koshak13 в своем репертуаре lol
 Наверх
Посмотреть профиль / Отправить личное сообщение Отправить личное сообщение  
Финансист
Форумчанин
СообщениеДобавлено: Чт 18-12-08 : 23-27    Заголовок сообщения: Ответить с цитатой

fish88 писал(а):
эт в школе щас такое задают?

Брат на 1 курсе в универе попросил для зачета помочь я раньше маленько програмированием занимался

Aprelle писал(а):
Ну додумался, молодец, а в чем вопрос то?

Написать самостоятельно проги и сравнить с твоими или как?

Может проще у гугла спросить?

http://alglib.sources.ru/integral/trapezium.php

http://forum.vingrad.ru/forum/s/cea17eb6b587a96cb0c093b2ffa0f6a3/topic-135181/anchor-entry1022482/0.html

http://otvet.mail.ru/question/19999144/

http://festival.1september.ru/articles/508108/

http://window.edu.ru/window_catalog/redir?id=47027&file=mirea032.pdf


проги не работают

у яндекса спрашивал помогло маленько трапеции работают Respect

помогите доделать средние прямоугольники Прошу Вас!!!
 Наверх
Посмотреть профиль / Отправить личное сообщение Отправить личное сообщение  
fish88
Эксперт
Предупреждений : 3
СообщениеДобавлено: Пт 19-12-08 : 01-21    Заголовок сообщения: Ответить с цитатой

koshak13
ну он же написал что брату... Very Happy
Финансист
понятно, а то я уже испугался за школьников Smile
 Наверх
Посмотреть профиль / Отправить личное сообщение Отправить личное сообщение  
Aprelle
Гуру
СообщениеДобавлено: Пт 19-12-08 : 01-38    Заголовок сообщения: Ответить с цитатой

Финансист
В pdf-ке ж треугольники, вроде на бэйсике, конвертни на паскаль, делов то.
 Наверх
Посмотреть профиль / Отправить личное сообщение Отправить личное сообщение  
Показать сообщения:   
Ответить на тему    Форум АДСЛ КлубаЦИФРОВОЙ ФЛЕЙМ :)ПРОГРАММИРОВАНИЕ Часовой пояс: GMT + 7
Страница 1 из 1

 

 
Аватары: Вкл|Выкл   ЮзерИнфо: Вкл|Выкл   Подписи: Вкл|Выкл
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете вкладывать файлы
Вы можете скачивать файлы