Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
24
Task/Monte-Carlo-methods/ERRE/monte-carlo-methods.erre
Normal file
24
Task/Monte-Carlo-methods/ERRE/monte-carlo-methods.erre
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
PROGRAM RANDOM_PI
|
||||
|
||||
!
|
||||
! for rosettacode.org
|
||||
!
|
||||
|
||||
!$DOUBLE
|
||||
|
||||
PROCEDURE MONTECARLO(T->RES)
|
||||
LOCAL I,N
|
||||
FOR I=1 TO T DO
|
||||
IF RND(1)^2+RND(1)^2<1 THEN N+=1 END IF
|
||||
END FOR
|
||||
RES=4*N/T
|
||||
END PROCEDURE
|
||||
|
||||
BEGIN
|
||||
RANDOMIZE(TIMER) ! init rnd number generator
|
||||
MONTECARLO(1000->RES) PRINT(RES)
|
||||
MONTECARLO(10000->RES) PRINT(RES)
|
||||
MONTECARLO(100000->RES) PRINT(RES)
|
||||
MONTECARLO(1000000->RES) PRINT(RES)
|
||||
MONTECARLO(10000000->RES) PRINT(RES)
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue