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

LIST ALL

Posted by 김대명 2011-05-26 17:11:53, Hit : 4140

원주율(파이) 구하기 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)/(2*n+1); n:=n+1; } 출력해(4*pii); 테스트는 안해봤지만 아마 동작할겁니다.

성인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룰 더 돌려보세요..

LIST ALL

GO TO THE TOP

	N Category    Subject Posted by Date H 1533 기타    마우스 스크롤 이벤트는 창조에서 구현 가능... [1] 김길남 2007/02/18  3349 1532 기타    파일에 테그만들기의 원리는 무엇인가요? [18] 김길남 2007/02/24  3780 1531 창조    서체에 관한 문제를 질문합니다. [4] 김길남 2007/03/02  2953 1530 창조    인사겸 질문 드립니다. [3] 김길남 2007/09/06  3618 1529 창조    API 질문 [1] 김대명 2010/10/28  4962 1528 창조    큰따옴표 안에 큰따옴표를 넣을 방법이 없을... [4] 김대명 2010/12/25  5217 1527 창조    문법검사 합격인데 왜 컴파일이 안되나요? [3] 김대명 2011/02/24  3806 1526 창조    도저히 안되서 여기에 질문합니다. 김대명 2011/05/20  3577 창조    원주율(파이) 구하기 [4] 김대명 2011/05/26  4140 1524 창조    비주얼 베이직 6에서 창조용 DLL 만들기 [2] 김대명 2011/06/21  6285 1523 창조    양력을 음력으로 변환하는 방법은 없나요? [3] 김대명 2011/07/12  3351 1522 창조      자바 양력->음력 변환 소스 [1] 김대명 2011/07/13  5554 1521 창조    창조로 전역후킹하기 [2] 김대명 2011/08/11  3483 1520 창조    미로 충돌 구현 [2] 김대명 2011/08/30  3316 1519 창조    [질문] 레지스트리 삭제와 파일 삭제... [1] 김대철 2003/02/19  3258 1518 창조    소아과 약용량 계산 프로그램 [2] 김동현 2006/07/15  3160 1517 창조    위자드님의 메신저소스 [1] 김레이 2007/06/19  3517 1516 창조    환경문 [7] 김레이 2007/07/05  3666 1515 창조    filetr32.dll 을 사용할 때 [2] 김레이 2007/08/02  3948 1514 창조    메모 [2] 김레이 2007/08/04  2898 1513 창조    창조 채팅프로그램에서 [5] 김레이 2007/10/08  3368 1512 창조    창조로 색품질 (16비트,32비트)를 바꿀수 있... [2] 김명준 2005/12/18  3047 1511 창조    콤보박스관련 [1] 김민석 2009/02/24  3244 1510 창조    다시질문 [6] 김민석 2009/02/26  3041 1509 창조      [re] 다시질문 [19] 김민석 2009/02/27  3342
	LIST ALL   Prev [1]..[21][22][23][24][25] 26 [27][28][29][30]..[87] Next

Copyright 1999-2024 Zeroboard / skin by reedyfox in miniwini style