1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

PROGRAMM Pi_Monte_Carlo:
USES crt;
VAR x,y: real;
       k,n,t: longint;
BEGIN
 clrscr;
 writeln('Pi nach Monte-Carlo');
 write('Wie viele Punkte?');
 readln(n);
 t:=0;
 randomize;
 FOR k:=1 TO n DO
  BEGINx:= random; y:=random;
           IF x*x+y*y<=1 THEN t:=t+1;
  END;
 writeln('Pi=',4* t/n:8:7);
 readln;
END					

1:

USES crt;					

1:

clrscr;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

//   Name         : PI
//   Author       : BungeeBug
//   Description  : Programm zur Errechnung von PI
//   Date         : 20. September 2003 @ 15:00 Uhr
PROGRAM Pi_Monte_Carlo;
USES crt;
VAR x,y: real;
    k,n,t: longint;
BEGIN
 clrscr;
 writeln('+-------------------------------------+');      // Bildschirm leeren
 writeln('|         Pi nach Monte-Carlo         |');      // Einleitung zeigen
 writeln('|0 eingeben um das Programm zubeenden.|');
 writeln('+-------------------------------------+');
 REPEAT                                                   // WIEDERHOLEN
 writeln('Wie viele Punkte?');                            // Noch mehr Einleitung
 readln(n);                                               // Anzahl der "Punkte" eingeben
 t:=0;
 randomize;                                               // Zufallsgenerator an machen
 FOR k:=1 TO n DO
  BEGIN
   x:= random; y:=random;                                 // Zufallswerte zuweisen
  IF x*x+y*y<=1 THEN
   BEGIN
    t:=t+1;
   END;
  END;
 writeln('Pi=',(4* t) div n);                             // Ergebniss ausgeben
 UNTIL n = 0;                                             // Wiederholen bis 0 eigegeben wird
 readln;                                                  // Verhindern das das Fenster zugeht.
END.