20Б!!!! СРОЧНО! нужно найти площадь этой фигуры. В паскале методом Монтекарло R=5 r=3
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
Не нашли ответ?
Похожие вопросы