Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 30.12.2010, 17:50   #1 (permalink)
jax
Технарёнок
 
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Lightbulb Метод прямоугольников

помогите пожалуйсто,я с математикой хромаю,и как раз попалась на практике такая задача:написать программу приблеженного вычисления интервала функции f(x)=5x-x+2 пояснение 5х в квадрате, решить в PascaleABC.
jax вне форума   Ответить с цитированием

Старый 30.12.2010, 17:50
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

По этим ссылкам содержится нужная вам информация

Метод шифрования Rot 66
Метод Ньютона
Быстрый метод сортировки(Делфи)
Метод выбора

Старый 30.12.2010, 21:31   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,357
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от jax Посмотреть сообщение
помогите пожалуйсто,я с математикой хромаю,и как раз попалась на практике такая задача:написать программу приблеженного вычисления интервала функции f(x)=5x-x+2 пояснение 5х в квадрате, решить в PascaleABC.
Уважаемый Jax, хромаете Вы, к сожалению, не только с математикой, но и с русским языком. Но это бы ладно, но хоть бы Вы с терминами поаккуратнее обращались: я вот далеко не сразу понял, о чем вообще речь. Потому что, знаете ли, "интервал" и "интеграл" - это сугубо разные вещи, в задаче же, как я понял, речь идет именно об интеграле. Ну пожалуйста:
Код:
CONST
 Npoints=100;
VAR
 X,Xbeg,Xfin,DX,S:Real;
 N:Word;
 i:Integer;

Function Fun(xf:Real):Real;
 begin
  Fun:=5.0*SQR(xf)-xf+2;
 end;

Function Int_Fun(Xl,Xh:Real):Real;
 begin
  Int_Fun:=(5.0*Xh*Xh*Xh/3-Xh*Xh/2+2.0*Xh)-
           (5.0*Xl*Xl*Xl/3-Xl*Xl/2+2.0*Xl);
 end;

BEGIN
 Write('Lower limit = ');
 ReadLn(Xbeg);
 Write('Upper limit = ');
 ReadLn(Xfin);
 DX:=(Xfin-Xbeg)/Npoints;
 S:=0;
 For i:=1 to Npoints do
  begin
   X:=Xbeg+Dx*(i-1);
   S:=S+Fun(X);
  end;
 WriteLn('Approximate value = ',S*Dx:10:5);
 WriteLn('Accurate value = ',Int_Fun(Xbeg,Xfin):10:5);
 Readln;
END.
В программе считается не только приближенное значение интеграла, но и (для сравнения) его точное значение, и выводятся на экран обе величины.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:24.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.