Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Математика


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ НАУКА И ОБРАЗОВАНИЕ / Точные науки / Математика

Выпуск № 101
от 28.03.2006, 00:05

Администратор:Tigran K. Kalaidjian
В рассылке:Подписчиков: 93, Экспертов: 20
В номере:Вопросов: 1, Ответов: 1


Вопрос № 38261: Здраствуйте эксперты!! Подскажите пожалуйста, каким образом можно в среде DELPHI вычислить интеграл от нуля до бесконечности sin(x)/x с помошью формулы прямоугольников (метод Эйлера)?? С программёрами уже общался, но что то не совсем...

Вопрос № 38.261
Здраствуйте эксперты!!
Подскажите пожалуйста, каким образом
можно в среде DELPHI вычислить интеграл от нуля до бесконечности
sin(x)/x с помошью формулы прямоугольников (метод Эйлера)??
С программёрами уже общался, но что то не совсем понял, что они хотели мне сказать!!
P. S.
Помогите пожалуйста бедному студенту!!
В любом случае спасибо!!!!
Отправлен: 22.03.2006, 22:36
Вопрос задал: F Ruslan R (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Полховский Александр Владимирович
Здравствуйте, F Ruslan R!
Эхх, так и сказали бы, что "не понимаю код, поподробнее, пожалуйста".
var
integral, step1, deltax:real;
begin
deltax:=0.01;//шаг
step1:=deltax/2;//текущее положение
integral:=0;//интеграл
repeat
integral:=integral+deltax*(sin(step1)/step1);//добавляем к имеющемуся значению интеграла площадь очередного прямоугольника
step1:=step1+deltax;//увеличиваем текущее положение на величину шага
form1.Caption:=floattostr(round(integral*1000)/1000);//чисто для отображения
application.ProcessMessages;//чтоб не тормозило
until step1>1000;
end;
---------
Спасём нашу хрупкую планету !
Ответ отправил: Полховский Александр Владимирович (статус: Практикант)
Ответ отправлен: 23.03.2006, 07:57


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.20 (beta) от 17.03.2006
Яндекс Rambler's Top100

В избранное