Вычислить значение числа pi методом Монте-Карло

@dimafarsh · Регистрация: 15.04.2012

Студворк — интернет-сервис помощи студентам

Вычислить значение числа pi методом Монте-Карло с точностью 0,0001
Вот что то нашёл но не работает ...помогите изменить условие под моё условие!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses Crt;
const
 n=10000000;
 r=46340;
 r2=46340*46340;
var
 i,pass : LongInt;
 x,y : real;
{$F+}
begin
 WriteLn('Поехали!');
 Randomize;
 pass:=0;
 for i:=1 to n do
  begin
   x:=Random(r+1);
   y:=Random(r+1);
   if ( x*x+y*y < r2 ) then INC(pass);
  end;
 TextColor(GREEN);
 WriteLn('Число ПИ получилось равным: ',(pass/i*4):0:5);
 ReadLn;
end.

Тут есть информация по этой теме http://program.rin.ru/razdel/html/711.html

@BumerangSP · 17.04.2012, 23:59

Прекрасно работает. Просто наверно ждать надоедает. В n можно убрать пару нулей. Быстрей ответ выдаст.

@dimafarsh · 18.04.2012, 00:00 **[ТС]**

так мне нужно именно под моё условие.. - 0,0001

@BumerangSP · 18.04.2012, 00:11

Сообщение от dimafarsh

Вот что то нашёл но не работает

Я вот на эту фразу ответил

Что касается точности - это количество знаков после запятой что ли имеется в виду? Хотя по идее точность вычисления - это до какого знака. В данном примере вычисляется до 10000000. А у Вас точность вообще дробь.

@dimafarsh · 18.04.2012, 00:19 **[ТС]**

=)) понятно)) спасибо..я просто нажимал на "плей") и оно ни чё не выводило)))) спасибо что подсказал стереть пару нулей )))) а я то думал не работает)

@ujif · 13.12.2013, 22:43

а с какой стати (pass/i) умножать на 4????
откуда такая цифра и что за цифры дикие r и r2
притянуто похоже за уши))

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@BumerangSP 4311 / 1423 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	17.04.2012, 23:59
	Прекрасно работает. Просто наверно ждать надоедает. В n можно убрать пару нулей. Быстрей ответ выдаст. 1

@dimafarsh 3 / 3 / 6 Регистрация: 15.04.2012 Сообщений: 74
	18.04.2012, 00:00 [ТС]
	так мне нужно именно под моё условие.. - 0,0001 0

@dimafarsh 3 / 3 / 6 Регистрация: 15.04.2012 Сообщений: 74
	18.04.2012, 00:19 [ТС]
	=)) понятно)) спасибо..я просто нажимал на "плей") и оно ни чё не выводило)))) спасибо что подсказал стереть пару нулей )))) а я то думал не работает) 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	13.12.2013, 22:43
	а с какой стати (pass/i) умножать на 4???? откуда такая цифра и что за цифры дикие r и r2 притянуто похоже за уши)) 0