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
Medium Priority
160 Views

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
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

LVL 12

Expert Comment

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

ID: 7053556
btw .. whats the second function ? :)))
0

LVL 11

Expert Comment

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

Author Comment

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.

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

ID: 7053699
aaahhh ok :)
0

LVL 46

Accepted Solution

aikimark earned 800 total points
ID: 7053737
0

LVL 12

Expert Comment

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

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

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…