Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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