Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.

ID: 13771, Buffon's Needles

by Earl F. Glynn Email:

Download Details
FTP  download also available
CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)
To download this, you must have registered:
A free membership

For Delphi, Version 3.0  to 4.0 365 downloads
Copyright: Commercial use requires permission

Size: 158,351 bytes
Updated on Sat, 14 Aug 1999 00:00:00 GMT
Originally uploaded on Sat, 14 Aug 1999 00:00:00 GMT
SHA1 Hash: DF9617C2ADFFDF08D747E26B04247D51FAE400C3
MD5 Hash: FCD8890573116527D090AC90C0905E98

    Explore the files in this upload

This project explores a Monte Carlo method of determining the value of pi, which was first discovered by Count Buffon in 1733.

Take a number of toothpicks and randomly throw them on a tablecloth, a hardwood floor, a brick sidewalk, or on anything that has a number of equally spaced parallel lines. The parallel lines must be at least as far apart as the length of a toothpick. Count the number of tosses and the number of toothpicks that cross the parallel lines. A simple formula can then be used to estimage pi. This project simulates this process.

For many additional details, including drawings and a detailed math description, see the "Lab Report" at

Keywords: pi, Monte Carlo method, Count Buffon, Random, Plural, TBitmap, TImage, Pixels, MoveTo, LineTo, FillRect, TextOut, TSimplePantograph, ShellExecute, Application.ProcessMessages, Cancel button, FormatFloat, ArcTan2, RGB, MessageBeep(MB_ICONEXCLAMATION), Procedure variable, Half-Angle Formula, Rotation Matrix

   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC03