C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[25126] Re:로또 추첨 프로그램인데요 5번을 세트로 추첨하는 프로그램좀 ;;
이호진 [likeall] 793 읽음    2003-04-09 09:32

님의 소스 조금 고쳤습니다. 출력은 플렉스 그리드에 해봤는데
텍스트 모드로 출력해야한다면 printf나 cout쓰시면 되겠죠?
그리고 고민을 많이 해봐야 실력이 늘더라구요. ^^;
그럼 즐프하세요.

===============================================================
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int a;
    time_t t;

    int num[5][6];
    int check, temp;
    int i;
    int j;
    int k;

    srand((unsigned) time(&t));

    for (k=0; k< 5; k++)
    {
        a=0;
        do{
            temp = (rand()%45)+1; //난수 발생

            check = 0;

            for(i=0; i<6; i++) // 같은수 있는지 비교
            {
                if(temp == num[k][i]) check = 1;
            }

            if(!check) // 같은 수가 없으면
            {
                num[k][a] = temp; // 난수 저장
                a++;           // 다음으로...
            }

        }while(a<6);

        // 숫자 정렬
        for(i=0; i<5; i++)
        {
            for(j=i+1; j<6; j++)
            {
                if(num[k][i]>num[k][j]) // 앞의 숫자가 크면 바꾼다.
                {
                    temp = num[k][i];
                    num[k][i] = num[k][j];
                    num[k][j] = temp;
                }
            }
        }
    }

    // 화면 출력부분(플렉스 그리드 사용)
    for(i=0; i<5; i++)
    {
        for(j=0; j<6; j++)
            fg->TextMatrix[j+1][i+1] = WideString(IntToStr(num[i][j])) ;
    }

}

+ -

관련 글 리스트
25009 로또 추첨 프로그램인데요 5번을 세트로 추첨하는 프로그램좀 ;; 박정현 899 2003/04/01
32216     Re:로또 추첨 프로그램인데요 5번을 세트로 추첨하는 프로그램좀 ;; 서비 842 2003/04/01
25126     Re:로또 추첨 프로그램인데요 5번을 세트로 추첨하는 프로그램좀 ;; 이호진 793 2003/04/09
25018     [답변] 언능 숙제하고.... 공부하셈... 정성훈.해미 788 2003/04/01
25014     힌트만 드리져. 둘리 706 2003/04/01
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.