창조유저그룹-커즈닷컴

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

LIST ALL

Posted by 박재성

2019-06-12 21:57:46, Hit : 2093

이진읽어를 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; }