Метод Монте-Карло

[LiptonICE]

Здраствуйте. Помогите написать программу на языке Паскаля, метод Монте-Карло.

[[CODER]]

var
  a:array[1..10000]of integer;
  i, n, searsh, z:integer;
begin
  Randomize;
  n:=100;
  for i:=1 to n do
      a[i]:=random(100);
  readln(searsh);
  z:=0;
  while a[i]<>searsh do  begin
     i:=random(n);
     inc(z);
     if z=1000000 then begin
        writeln('Navernoe takogo net :(',z);
        break;
     end;
  end;
  if z<1000000 then
    write('A[',i,']=',searsh,'     Sdelano shagov =',z);
  readln;
end.

[LiptonICE]

Скажите,какой сдесь алгоритм решения,и если не сложно прокоментируйте строки.

[Grag]

Сущность метода Монте-Карло состоит в следующем: требуется найти значение а некоторой изучаемой величины. Для этого выбирают такую случайную величину Х, математическое ожидание которой равно а: М(Х)=а.

Практически же поступают так: производят n испытаний, в результате которых получают n возможных значений Х; вычисляют их среднее арифметическое и принимают x в качестве оценки (приближённого значения) a* искомого числа a.

Это не комментарий к приведенному примеру...

[Carbon]

Что может быть проще, чем метод Монте-Карло???

[LiptonICE]

а хз,

[LiptonICE]

что такое Searsh?=) и z?