интегралы и метод монте-карло

[byte916]

Имеется задание - методом монте-карло решить определенный интеграл. Как решать интегралы я знаю, что такое метод монте-карло я тоже знаю, но как связать интегралы и монте-карло совершенно не понятно. Прошу помочь в данном вопросе.

[IT-man]

Насколько я помню интеграл определенный это площадь фигуры ограниченной функцией и осью х на определенном промежутке. Вот и представь что эта фигура мишень и бомби ее точками из этого промежутка взятыми по рандому чем больше точек рассмотришь тем больше вероятность найти точную площадьесли сам не справишься стучи в аську сделаю на паскале/делфи недорого

[ОДИНОЧЕСТВО В СЕТИ]

Program pmk;
Uses crt;
Var k,p,s,g,x,Integral : real;
       n,i,a,b : integer;
BEGIN
 randomize;
 writeln(‘Введите промежуток интегрирования (a;b):’);
 readln(a);
 readln(b);
 writeln(‘Введите количество случайных значений(число испытаний):’);
 readln(n);
 k:=b-a;{Переменной“k”присвоим значение длины промежутка интегрирования}
 writeln(‘k=’,k);
for i:= 1 to n do begin {проведем n испытаний}
 g:=random; {g – переменная вещественного типа,случайная величина из
  промежутка [0;1]}
 x:= a + g*(b-a);{По этой формуле получается произвольная величина из [a;b]
}
 s:=s + (1+x); {s:=s +(x*x)}{Вообще можно подставить любую функцию }
 delay(10000); {задержка,чтобы произвольные значения не повторялись}
end;{конец испытаний}
 writeln(‘s=’,s);{Сумма функции для n произвольных значений}
 Integral:=(1/n)*k*s ;
 writeln(‘Интеграл=’,Integral);
 readln;
END.

Требуется ввести промежуток интегрирования и количество
испытаний, интегрируемая функция уже задана в программе(но ее можно
поменять).