Q&A
- 답이 엄써서 다시 올립니닷^^;
procedure TWindow.ButtonOutputClick(Sender: TObject);
var
n : integer;
a : integer;
b : integer;
temp : integer;
begin
a := 0;
b := 1;
for n := 2 to StrToInt(Input.text) do
begin
temp := a + b;
a := b;
b := temp;
end;
Output.text := IntToStr(b);
end;
피보나치 수열 구하는 플그램인데염..
0일때는 0이여야 하는데 이렇게 하니깐 1이 나오더군요..
어떻게 하믄 제대로 된 답이 나올까요??
딴 답은 다 제대로 되는데....
var
n : integer;
a : integer;
b : integer;
temp : integer;
begin
a := 0;
b := 1;
for n := 2 to StrToInt(Input.text) do
begin
temp := a + b;
a := b;
b := temp;
end;
Output.text := IntToStr(b);
end;
피보나치 수열 구하는 플그램인데염..
0일때는 0이여야 하는데 이렇게 하니깐 1이 나오더군요..
어떻게 하믄 제대로 된 답이 나올까요??
딴 답은 다 제대로 되는데....
2
COMMENTS
-
-
피보 나열을 찾아보니 웬 수학적 용어만 잔뜩 써 있더군요.
모르시는 분을 위한 참고 :
피보나열 수치 사이트 http://my.dreamwiz.com/piruks/ 에서
상단의 "토픽 수학사" 선택하면 중간에 "피보나열" 이라고 보임.
피보나열은 원래 a=0 과 b=1 에서 부터 시작하는데
b=0 부터 시작한다는 말씀인가요 ?
그렇다면 다음과 같이 해 보세요.
s = 새끼, e= 어미, t = 합계 입니다.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
s,e,t : integer ;
// s = 새끼 , e = 어미, t = 합계
begin
s := 0 ;
e := 0 ;
t := 0 ;
while e <= 1000 do
begin
showmessage(inttostr(s)+#13#10+
inttostr(e)+#13#10+
inttostr(t) ) ;
s := e ;
e := t ;
if e = 0 then
e := 1 ;
t := s + e ;
end ;
end;
해답이 되었나 모르겠군요. 덕분에 머리한번 굴려 보았습니다.
수고요......
해소슬 wrote:
> procedure TWindow.ButtonOutputClick(Sender: TObject);
> var
> n : integer;
> a : integer;
> b : integer;
> temp : integer;
> begin
> a := 0;
> b := 1;
> for n := 2 to StrToInt(Input.text) do
> begin
> temp := a + b;
> a := b;
> b := temp;
> end;
> Output.text := IntToStr(b);
>
> end;
>
>
> 피보나치 수열 구하는 플그램인데염..
> 0일때는 0이여야 하는데 이렇게 하니깐 1이 나오더군요..
> 어떻게 하믄 제대로 된 답이 나올까요??
> 딴 답은 다 제대로 되는데....
(NOTICE) You must be logged in to comment on this post.
-
- 궁금이..
- 2001.01.17 06:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 전기봉
- 2001.01.17 04:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성은
- •
- 2001.01.17 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.17 04:41일반소켓으로는 안해봐서 모르겠으나 아마도 이상이 없을듯 합니다.... 소켓. 잘 됩니다. 소스를 확인해보...
-
- 김재완
- •
- 2001.01.17 03:34
- 1 COMMENTS
- /
- 0 LIKES
-
JDHwang•2001.02.02 21:12김재완 wrote: > > 웹에서 넘겨주는 변수들(Get,Post나 Object 태그에서 쓰는 param태그)로 넘긴 변수의...
-
- 궁금이
- 2001.01.17 03:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 박치곤
- •
- 2001.01.17 03:24
- 2 COMMENTS
- /
- 0 LIKES
-
MIDAS•2001.01.17 03:45Too many actual parameters 란 말은 함수의 인자값이 너무 많다는 말입니다. AZvSetAppMode 가 어떤 함수...
-
^^•2001.01.17 05:07AZvSetAppMode에대한 함수또는 프로시져 선언문좀 볼 수 있을까여? MIDAS wrote: > Too many actual pa...
-
- 박치곤
- 2001.01.17 03:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 남자
- •
- 2001.01.17 03:18
- 2 COMMENTS
- /
- 0 LIKES
-
조덕진•2001.01.17 03:37남자 wrote: > 스트링그리드에 색을 넣고 싶어서 .. > 아래와 같이 DrawCell에 코딩을 하였습니다.. > ...
-
허덕이는이•2001.01.27 02:27내용없다니깐요
-
-
김상호•2001.01.17 04:47var Device, Name, Port: array[0..100] of char; DevMode : THandle; Begin ListBox1.Items :...
-
아이스티•2001.01.17 19:01김상호 wrote: > var > Device, Name, Port: array[0..100] of char; > DevMode : THandle; > Begi...
-
-
- 초보
- 2001.01.17 02:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성은
- 2001.01.17 02:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 푸른새
- •
- 2001.01.17 02:29
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.01.17 09:21푸른새 wrote: > 테이블이나 쿼리를 오픈할때 동적으로 하는 방법에 대해 알고 싶습니다. > > table1의...
-
- 해소슬
- •
- 2001.01.17 02:28
- 2 COMMENTS
- /
- 0 LIKES
procedure TWindow.ButtonOutputClick(Sender: TObject); var n : integer; a : integer; b : integer; temp : integer; begin a := 0; b := 1; for n := 2 to StrToInt(Input.text) do begin temp := a + b; a := b; b := temp; end; Out...-
jung hyun jin•2001.01.17 18:26해소슬 wrote: > procedure TWindow.ButtonOutputClick(Sender: TObject); > var > n : integer; > ...
-
MIDAS•2001.01.17 03:21피보 나열을 찾아보니 웬 수학적 용어만 잔뜩 써 있더군요. 모르시는 분을 위한 참고 : 피보나열 수치 ...
-
- 미남
- •
- 2001.01.17 02:22
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.01.17 02:36미남 wrote: > 스트링그리드의 임의의 row에 색을 넣고 싶은데 맘대루 안대네여 > 찾아봐두 확실히 나와...
-
- 박대규
- •
- 2001.01.17 01:54
- 2 COMMENTS
- /
- 0 LIKES
-
MIDAS•2001.01.17 02:19저 또한 에러가 나는데 이렇게 하니까 안나오는군요. procedure TForm1.Button2Click(Sender: TObject);...
-
Umpro•2001.01.17 02:00> > procedure TForm1.Button2Click(Sender: TObject); > var > SpaceNum: float; > begin > ...
-
- ^^
- •
- 2001.01.17 01:40
- 1 COMMENTS
- /
- 0 LIKES
-
브끄럼•2001.01.17 02:37^^ wrote: > query를 실행하고 나서..각각의 row의 데이타를 얻어 오는 과정에서.. > 스트링으로 변환한 ...
-
- 박치곤
- 2001.01.17 01:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 부탁맨
- 2001.01.17 01:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 박치곤
- •
- 2001.01.17 00:32
- 1 COMMENTS
- /
- 0 LIKES
-
병부잡이•2001.01.17 00:35컴포넌트의 패스가 안되있어서 그럽니다 도구-> 환경옵션에서 library에서 컴포넌트 소스나 DCU의...
-
- 조덕진
- •
- 2001.01.16 23:56
- 5 COMMENTS
- /
- 0 LIKES
-
^^•2001.01.17 03:24그 에러멧세지는 혹 스프래쉬 화면 을 감춘 후 커서의 위치가 갈곳이 없다는 그런 에러 아닐까요...또는 ...
-
지영일•2001.01.17 00:16우선 menu에서 project Option에서 auto-create forms과 available forms을 구별하셨나 확인하구요... >...
-
조덕진•2001.01.17 02:53지영일 wrote: > 우선 menu에서 project Option에서 > auto-create forms과 available forms을 구별하셨...
-
지영일•2001.01.17 03:20cannot focus a disable or invisible windows 이런 에러가 나온다구요.. 혹시 스플래쉬 폼이나 메인폼 C...
-
조덕진•2001.01.17 03:34정말 감사드립니다. 덕분에 쉽게 해결이 되었네요. > > > > Application.CreateForm(TFrmKPBPOST, Frm...
> procedure TWindow.ButtonOutputClick(Sender: TObject);
> var
> n : integer;
> a : integer;
> b : integer;
> temp : integer;
> begin
> a := 0;
> b := 1;
> for n := 2 to StrToInt(Input.text) do
> begin
> temp := a + b;
> a := b;
> b := temp;
> end;
> Output.text := IntToStr(b);
>
> end;
>
>
> 피보나치 수열 구하는 플그램인데염..
> 0일때는 0이여야 하는데 이렇게 하니깐 1이 나오더군요..
> 어떻게 하믄 제대로 된 답이 나올까요??
> 딴 답은 다 제대로 되는데....
a := -1
b := 1 로 한번 해보세요