창조유저그룹-커즈닷컴

질문게시판
- 반드시 검색을 하신 후 원하는 답변을 찾을 수 없을 때, 질문을 올려주세요.

LIST ALL

Posted by 김대명

2011-05-26 17:11:53, Hit : 4145

원주율(파이) 구하기

Post URL : http://cugz.sjworks.net/bbs/zboard.php?id=qna&no=2465

창조로 원주율을 구하려는데 대충 이렇게 소스를 짜봤습니다.

실수:수,수2,수3,값,연산자;
연산자:=0;
수2:=1;
반복
{
수2:=수2+2;
만일(수=0)
{
수3:=(1/1);
}
아니면 만일(연산자=0)
{
수3:=수3-(1/수2);
연산자:=1;
}
아니면 만일(연산자=1)
{
수3:=수3+(1/수2);
연산자:=0;
}
수:=수+1;
}
까지(수=500);
값:=4*수3;
문자창보여(수를문(값));

그런데 값이 3.1415926535.......... 이렇게 나와야 하는데

3.5로 시작하는 이유는 어디에서 문제일까요???

성인e 2011-05-27 AM 1:09:59


이 식은 매우 느리게 수렴합니다. 본 식 : pi/4 = 1-1/5+1/7-1/9+... 옳은 식 : pi/4 = 1-1/3+1/5-1/7+... 간단한 코드 : 실수:n,pii; 되풀이 { pii:=pii+제곱(-1,n)/(2n+1); n:=n+1; } 출력해(4pii); 테스트는 안해봤지만 아마 동작할겁니다.

성인e 2011-05-27 AM 1:28:21


10000번 연산 했더니 3.14149265359026 로 나오네요. 소수점 세자리 까지밖에 맞지 않습니다.

김대명 2011-05-27 PM 5:33:17


감사합니다.

고훈 2011-06-03 PM 7:24:54


'Public Overloads Function PI() As Single ' Dim newaa As Double ' Dim newbb As Double ' Dim aa As Double ' Dim bb As Double ' Dim Sum As Double ' Dim i As Short ' newaa = (Math.Sqrt(2) + 1) / 2 / System.Math.Sqrt(2) ' newbb = System.Math.Sqrt(1 / System.Math.Sqrt(2)) ' Sum = 3 / 2 - System.Math.Sqrt(2) ' For i = 2 To 3 ' aa = (newaa + newbb) / 2 ' bb = System.Math.Sqrt(newaa * newbb) ' Sum = Sum + 2 ^ (i + 1) * (aa * aa - bb * bb) ' newaa = aa ' newbb = bb ' Next i ' PI = CSng(4 * aa * bb / (1 - Sum)) 'End Function 제가 사용하는 비주얼베이직용 파이 계산 프로그램입니다. 굉장히 빠릅니다. 자리수가 더 필요하면 loop룰 더 돌려보세요..