창조유저그룹-커즈닷컴

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

LIST ALL

Posted by PENJi

2006-02-04 00:55:26, Hit : 3090

도와주세요.. 3n+1 프로그램에 관해서..

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

음 무슨 프로그램이냐면요

일단 창에는 에디트0, 버튼0, 리스트박스0이 있습니다.

그리고 에디트0에 숫자를 입력하고 버튼0을 누르면,
입력한 숫자 = n이라 할때

n이 홀수면 3n+1로 바꾸고
n이 짝수면 n/2로 바꾸는 것입니다.
이 과정을 n=1이 될때까지 반복하는 것이구요.
각 과정마다 변하는 n을 리스트박스0에 추가시켜가며 그 1로 변하는 모습을 보려고 합니다.

아시는분들은 알겠지만 수학의 난제중 하나로써, 1 초과의 모든 자연수에 의해 성립한다는 가정이 있지만 아직 아무도 증명한 사람이 없는 것으로 알고 있습니다.
뭐 여튼 아래는 소스입니다. 버튼0.클릭했을때입니다.

실수:숫자;
숫자:=문을수(에디트0.문자, 0);
만일(숫자 <= 1)
문자창보여("1 초과의 정수를 입력하라고 인간아");
아니면
반복
{
만일(홀수여부(숫자)=참)
숫자:=3*(숫자)+1;
리스트박스0.내용.추가(수를문(숫자));
아니면
숫자:= (숫자)/2;
리스트박스0.내용.추가(수를문(숫자));
}
까지(숫자=1);
만일(숫자=0);
아니면
문자창보여(수를문(숫자));

빨간색으로 된 부분에서 문법에러가 나옵니다.
아예 저 줄의 내용을 지워버리고 공백으로 냅둬도 여전히 저 줄에서 문법에러가 나더군요 --
추가로. 밑줄친 부분을 소스에서 지워버리면 문법검사가 합격됩니다-_-

아무리 생각해도 원인을 모르겠습니다.
도와주세요ㅠㅠ

강현구 2006-02-04 AM 11:21:12


만일(홀수여부(숫자) = 참) { 숫자:=3 * (숫자)+1; 리스트박스0.내용.추가(수를문(숫자)); } 아니면 { 숫자:= (숫자)/2; 리스트박스0.내용.추가(수를문(숫자)); } 위 코드와 같이 '만일' 문을 중괄호로 묶어주셔야 문법에러가 발생하지 않습니다.

강현구 2006-02-04 AM 11:24:19


그리고 사족입니다만, 버튼을 클릭했을 때 코드 맨 앞 부분에"리스트박스0.내용.지워;"를 넣으시면 더 좋을 것 같습니다.