Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
20
Добавлен:
29.03.2016
Размер:
272 б
Скачать
var y,n,x:real;
i,k,tos:integer;
begin
writeln('wwedi tochnost');
readln(tos);
for i:=1 to tos do
begin
x:=random;
y:=random;
if y>=0 then
if y<=1 then
if y<=sqrt(1-x*x)
then k:=k+1
else k:=k+0
else k:=k+0
else k:=k+0
end;
n:=4*k/tos;
writeln(n);
end.
Соседние файлы в папке Beta