Вопрос № 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;
--------- Спасём нашу хрупкую планету !