Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  17000
Language: PASCAL
Code:
program monte_karlo;
var n,np,i:integer;
    x,y,p:real;
begin
  write('Введите число точек: ');readln(n);
  randomize;       // запускаем генератор случайных чисел
  np := 0;
  for i:=1 to n do
    begin
    x:=random*2-1; // формируем точку с координатами (-1; 1)
    y:=random*2-1;
    if(x*x+y*y<=1) then np:= np + 1;
    end;
  p:=4*np/n;
  writeln('pi=',p);
end.
          
Comments: