창조유저그룹-커즈닷컴
Window close
ID :
PASS :
처음으로
창조
창조 소개
창조 다운로드
CUGz.com 소개
온라인 도움말
커뮤니티
가입인사
자유게시판
Q/A게시판
TIP/TECH
열린강좌
자주하는질문
아이디어게시판
자료실
소스자료실
프로그램자료실
기타자료실
명예의 전당
이미지 자료실
지원/기타
표준용어재정
구글 웹서치
관리자 전용
목록에서 글자 제한 23이였음 ?>
질문게시판
- 반드시 검색을 하신 후 원하는 답변을 찾을 수 없을 때, 질문을 올려주세요.
LIST ALL
Posted by
김대명
2011-05-26 17:11:53, Hit :
4068
원주율(파이) 구하기
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
2056
창조
미로 충돌 구현
[2]
김대명
2011/08/30
3244
2055
창조
미로 생성
[1]
성인e
2011/08/18
7928
2054
창조
창조로 전역후킹하기
[2]
김대명
2011/08/11
3404
2053
창조
하노이의 탑 원리와... 프로그래밍
[2]
신용주
2011/07/30
4153
2052
창조
mdb 일련번호 초기화 방법좀 부탁드립니다..
[2]
권선중
2011/07/13
7625
2051
창조
[re] mdb 일련번호 초기화 방법좀 부탁드립니다..
[2]
권선중
2011/07/14
5000
2050
창조
질의 명령 실행후 테이블이 내용이 변경이 되...
권선중
2011/07/15
4526
2049
창조
[re] 질의 명령 실행후 테이블이 내용이 변경이 ...
[1]
지상현
2011/07/15
3723
2048
창조
양력을 음력으로 변환하는 방법은 없나요?
[3]
김대명
2011/07/12
3276
2047
창조
자바 양력->음력 변환 소스
[1]
김대명
2011/07/13
5477
2046
창조
비주얼 베이직 6에서 창조용 DLL 만들기
[2]
김대명
2011/06/21
6213
2045
창조
...
..
2011/06/12
4313
2044
창조
[re] 그림판 깜빡임 문제 질문드립니다
[3]
지상현
2011/06/13
5048
창조
원주율(파이) 구하기
[4]
김대명
2011/05/26
4068
2042
창조
다른프로그램입력내용받기
만물
2011/05/24
3553
2041
창조
도저히 안되서 여기에 질문합니다.
김대명
2011/05/20
3506
2040
창조
[re] 도저히 안되서 여기에 질문합니다.
[3]
성인e
2011/05/20
3575
2039
기타
도와주세요..
이민수
2011/05/13
3575
2038
창조
백신프로그램이 바이러스르 오진하는데 해결...
[4]
이희창
2011/04/28
3034
2037
창조
도움말파일이 윈7에서 열리지 않습니다.
[2]
이희창
2011/04/10
3677
2036
창조
SQL 연결시 비번을 물어보는데..
[1]
권선중
2011/03/31
4839
2035
창조
파일찾아 의 한계..
[2]
박재성
2011/03/25
4691
2034
창조
filetr32.dll 포트수정
[1]
유형종
2011/02/28
6135
2033
창조
문법검사 합격인데 왜 컴파일이 안되나요?
[3]
김대명
2011/02/24
3738
2032
창조
윈도우 종료시... 또는 시작시...
[3]
신용주
2011/02/06
4323
LIST ALL
Prev
[1]
[2]
[3]
[4]
5
[6]
[7]
[8]
[9]
[10]
..
[87]
Next
Copyright 1999-2024
Zeroboard
/ skin by
reedyfox
in
miniwini
style
지우개 Expert 3.0
제작자 : 천호성 님 [
LINK
]
대박로또2005
제작자 : 최재일 님 [
LINK
]
1
박종훈
님
15292 점
2
지상현
님
8809 점
3
손상진
님
7388 점
4
권선중
님
6060 점
5
이진백
님
5174 점
가입일
닉네임
05/31
김동률
03/31
홍형기
09/01
o00pp99oo
12/27
이재민
11/20
이희철
.
.
.