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

LIST ALL

Posted by 박재성 2019-06-12 21:57:46, Hit : 1553

이진읽어를 10진으로 바꾼다음에 1과 0만으로이로우진 이진수로 변환하는 코드인데요. Homepage : http://www.cyworld.com/0117614582 Post URL : http://cugz.sjworks.net/bbs/zboard.php?id=qna&no=2574

뭔가 간결하게 함수화 해주세요. ----------------------------------------------------- 실수:수; 문자:결; 수:=문을수(에디트0.문자,0); 만일(수>=2048) { 수:=수-2048; 결:=결+"1"; 만일(수>=1024) { 수:=수-1024; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=512) { 수:=수-512; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=256) { 수:=수-256; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=128)  { 수:=수-128; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=64) { 수:=수-64; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=32) { 수:=수-32; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=16) { 수:=수-16; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=8) { 수:=수-8; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=4) { 수:=수-4; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=1024) { 수:=수-1024; 결:=결+"1"; 만일(수>=512) { 수:=수-512; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=256) { 수:=수-256; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=128)  { 수:=수-128; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=64) { 수:=수-64; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=32) { 수:=수-32; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=16) { 수:=수-16; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=8) { 수:=수-8; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=4) { 수:=수-4; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=512) { 수:=수-512; 결:=결+"1"; 만일(수>=256) { 수:=수-256; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=128)  { 수:=수-128; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=64) { 수:=수-64; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=32) { 수:=수-32; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=16) { 수:=수-16; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=8) { 수:=수-8; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=4) { 수:=수-4; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=256) { 수:=수-256; 결:=결+"1"; 만일(수>=128)  { 수:=수-128; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=64) { 수:=수-64; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=32) { 수:=수-32; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=16) { 수:=수-16; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=8) { 수:=수-8; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=4) { 수:=수-4; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>128) { 수:=수-128; 결:=결+"1"; 만일(수>=64) { 수:=수-64; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=32) { 수:=수-32; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=16) { 수:=수-16; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=8) { 수:=수-8; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=4) { 수:=수-4; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=64) { 수:=수-64; 결:=결+"1"; 만일(수>=32) { 수:=수-32; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=16) { 수:=수-16; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=8) { 수:=수-8; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=4) { 수:=수-4; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=32) { 수:=수-32; 결:=결+"1"; 만일(수>=16) { 수:=수-16; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=8) { 수:=수-8; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=4) { 수:=수-4; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=16) { 수:=수-16; 결:=결+"1"; 만일(수>=8) { 수:=수-8; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=4) { 수:=수-4; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=8) { 수:=수-8; 결:=결+"1"; 만일(수>=4) { 수:=수-4; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=4) { 수:=수-4; 결:=결+"1"; 만일(수>=2) { 수:=수-2; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=2) { 수:=수-2; 결:=결+"1"; 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } } 아니면 만일(수>=1) { 수:=수-1; 결:=결+"1"; } 아니면 { 결:=결+"0"; } 에디트1.문자:=결;

성인e   2019-06-14 PM 7:46:55   인터넷에서 이진수 변환 찾아서 구현해보세요. 아마 다음과 같이 하면 될거예요: 문자: 결; 실수: 자리; 되풀이(자리 < 최대자리){ 결 := 수%2 + 결; 수 := 소반올림(수/2); 자리 := 자리 + 1; }

LIST ALL

GO TO THE TOP

	N Category    Subject Posted by Date H notice 창조   반드시 검색 후 질문을 올려주세요.<... 박종훈 2007/09/24  5871 notice 창조   단순 소스제작 부탁은 예고없이 삭제합니... [2] 손상진 2007/04/11  5695 notice 창조   답변소스 등록 관련 안내입니다. [7] 변혁수 2006/01/11  7550 2151 창조    문자창, 대화창 프로그램 가운데 출력하기 날아라KTX 2023/02/27  70 2150 창조    리스트박스 질문드려요. 날아라KTX 2022/10/25  148 2149 창조    메모내용 코마를 구분으로 리스트박스에 정렬... [3] 날아라KTX 2022/10/02  163 2148 창조    문자표 글꼴 색상 질문드려요 날아라KTX 2022/09/24  211 2147 창조    멀티버튼이 마우스 따라다니기 [1] 날아라KTX 2022/09/17  174 2146 창조    카카오톡 다중 접속기도 만들 수 있을까요? 김지훈 2022/04/19  397 2145 창조    레지스트리...문제점이 뭘까요???? [3] 날아라KTX 2022/04/14  336 2144 창조    자판을 뗄때 사건에서 띵띵소리 [1] 날아라KTX 2022/04/09  341 2143 창조    메모 상단줄 질문드려요. 날아라KTX 2022/04/05  323 2142 창조    폴더명추출 [1] 날아라KTX 2022/01/24  358 2141 창조    문자표 질문드려요. [1] 날아라KTX 2021/10/19  411 2140 창조    성인e님께서 도움주셨던 글자 찾아 색상바꾸... [5] 날아라KTX 2021/10/01  474 2139 창조    리스트박스에 파일명+파일내용 추가하기 [3] 날아라KTX 2020/07/26  1055 2138 창조    리스트박스 줄위치에 해당하는 버튼 클릭하기 [2] 날아라KTX 2020/03/11  1274 2137 창조    에디트0 영역에 문자추가 삭제하기 [2] 날아라KTX 2019/10/15  1370 창조    이진읽어를 10진으로 바꾼다음에 1과 0만으로... [1] 박재성 2019/06/12  1553 2135 창조    알파벳순서대로 정렬도 창조로 가능할까요? 날아라KTX 2019/05/12  1355 2134 창조      [re] 알파벳순서대로 정렬도 창조로 가능할까요? [2] 성인e 2019/05/12  1632 2133      리스트박스1 * 문자가 있는 이름을 리스트박... [3] 날아라KTX 2019/04/17  1551 2132 창조    메모에서 제일 아래로 이동하기 질문 [2] 날아라KTX 2018/11/15  1409 2131 창조    메모에서 특정 문자 색상바꾸기 날아라KTX 2018/09/02  1613 2130 창조      [re] 메모에서 특정 문자 색상바꾸기 [1] 성인e 2018/09/02  1766
	LIST ALL   1 [2][3][4][5][6][7][8][9][10]..[87] Next

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