From c1147629f7aae2ee90ccd7c9f1ccbf106361d486 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sat, 13 Dec 2025 16:35:46 +0100 Subject: =?UTF-8?q?Add=20book=20"=D0=97=D0=B0=D0=BD=D0=B8=D0=BC=D0=B0?= =?UTF-8?q?=D1=82=D0=B5=D0=BB=D1=8C=D0=BD=D0=BE=D0=B5=20=D0=BF=D1=80=D0=BE?= =?UTF-8?q?=D0=B3=D1=80=D0=B0=D0=BC=D0=BC=D0=B8=D1=80=D0=BE=D0=B2=D0=B0?= =?UTF-8?q?=D0=BD=D0=B8=D0=B5"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../1/7_pi/project1.lpr" | 39 ++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 "\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/1/7_pi/project1.lpr" (limited to 'Занимательное программирование/1/7_pi/project1.lpr') diff --git "a/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/1/7_pi/project1.lpr" "b/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/1/7_pi/project1.lpr" new file mode 100644 index 0000000..b7ca5b5 --- /dev/null +++ "b/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/1/7_pi/project1.lpr" @@ -0,0 +1,39 @@ +program project1; + +uses Crt, Math, SysUtils; + +var N, NO: Integer; + x, y: Integer; + Sum: Real; + IsRunning: Boolean; + +const R: Integer = 20000; { Радиус круга } + +begin + IsRunning := true; + N := 0; + NO := 0; + Sum := 0; + Randomize; + ClrScr; + + while IsRunning do + begin + Inc(N); { Количество экспериментов } + x := RandomRange(-R, R); { Определяем случайную точку } + y := RandomRange(-R, R); + + if Sqrt(x * x + y * y) <= R then NO := NO + 1; { Если она лежит в круге } + + Sum := Sum + 4 * NO / N; + + GotoXY(1, 1); + WriteLn('Количество точек: ', IntToStr(N)); + WriteLn('Текущее значение PI: ', FloatToStr(4 * NO / N)); + WriteLn('Среднее значение PI: ', FloatToStr(Sum / N)); + + if KeyPressed and (ReadKey = ^C) then IsRunning := false; + end; + +end. + -- cgit v1.2.3