Celebrate National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Help with 2 functions

Posted on 2002-06-04
8
Medium Priority
?
160 Views
Last Modified: 2010-04-04

I need a function that can calculate decimal number n of pi. (for example n=1 gives 1 n=2 gives 4 ... (pi=3.1415....)


Can someone help me out?




0
Comment
Question by:hulken
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
8 Comments
 
LVL 12

Expert Comment

by:Lee_Nover
ID: 7053472
a very simple thing would be :

procedure TForm1.Button3Click(Sender: TObject);
var tmpStr: string;
begin
     tmpStr:=Format('%.16f', [Pi]);
     Delete(tmpStr, 1, 2);
     Caption:=tmpStr;
     Edit2.Text:=tmpStr[StrToIntDef(Edit1.Text, 1)];
end;


where Edit1.Text holds the decimal wich we want

:)
0
 
LVL 12

Expert Comment

by:Lee_Nover
ID: 7053556
btw .. whats the second function ? :)))
0
 
LVL 11

Expert Comment

by:robert_marquardt
ID: 7053607
I have a simple C program at home which gives 4 digits of Pi on each iteration. I will have a look if it still exists.
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 

Author Comment

by:hulken
ID: 7053660
Sorry  I think I was not clear here.

About the "Two functions" I changed my mind so I just need one... forgot to change the subject.

About your Answer Lee.

This does not calculate pi. Try to calculate the decimal number 1000 :-) with your example.

I need a mor correct solution that should be general.

Ii migt be possible to use some of the formulas number
76-8 on
http://mathworld.wolfram.com/PiFormulas.html


0
 
LVL 12

Expert Comment

by:Lee_Nover
ID: 7053699
aaahhh ok :)
0
 
LVL 12

Expert Comment

by:Lee_Nover
ID: 7059435
uhhh too late
and I just spent the whole night translating and optimizing some code I barely understood :)
ah well .. :)
0
 

Author Comment

by:hulken
ID: 7059815
Lee Nover.  I love things like this so if you share the code with me I will add some points for you.

One thing that I think would be nice is if it is possible to somhow save the current run (to a file) to be able to start over without restarting from the beginning.

Another nice thing that I don't know how to do is to take time of the current run so I know which method that is the fastgest.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This course is ideal for IT System Administrators working with VMware vSphere and its associated products in their company infrastructure. This course teaches you how to install and maintain this virtualization technology to store data, prevent vuln…
In this video, Percona Solutions Engineer Barrett Chambers discusses some of the basic syntax differences between MySQL and MongoDB. To learn more check out our webinar on MongoDB administration for MySQL DBA: https://www.percona.com/resources/we…
Suggested Courses

730 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question