Page 28 - 6263

a:=2;
end;

// розрахунок числа Pi методом Монте-Карло
// процедура виконується кожну Timer1.Interval мілісекунду
procedure TForm1.Timer1Timer(Sender: TObject);
var x,y: integer; // координати точки
begin
randomize; // ініціалізувати генератор випадкових чисел
x:=Random(100); // випадкова точка x,y
y:=Random(100);
if x*x+y*y<=10000 then // якщо точка в колі
begin
k:=k+1; // кількість точок в колі
PaintBox1.Canvas.Pixels[x,y]:=clBlack; // нарисувати
точку
end;
n:=n+1; // загальна кількість точок
label2.Caption:=FloatToStr(4*k/n); // розраховане
число Pi
end;

end. // кінець програми

28