Question

20Б!!!! СРОЧНО! нужно найти площадь этой фигуры. В паскале методом Монтекарло R=5 r=3

Answer 1

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var n:=ReadInteger('Число точек:');
  var k:=0;
  for var i:=1 to n do begin
    var x:=10*Random-5; var y:=10*Random-5;
    var p:=sqr(x)+sqr(y);
    if (p>=9) and (p<=25) then Inc(k)
    end;
  Writeln('s=',100*k/n);
  Writeln('Точное значение: ',16*pi)
end.

Результаты нескольких запусков программы:
Число точек: 1000
s=50.5
Точное значение: 50.2654824574367

Число точек: 10000
s=50.81
Точное значение: 50.2654824574367

Число точек: 100000
s=50.103
Точное значение: 50.2654824574367

Число точек: 1000000
s=50.2551
Точное значение: 50.2654824574367

Число точек: 10000000
s=50.26618
Точное значение: 50.2654824574367