Вычислить значение числа 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
притянуто похоже за уши))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@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