상담문의

ㆍ HOME > 상담문의 > 정보처리기사 실기
제 목 기사 기출문제 질문입니다...(5월 4일 오후)
글쓴이  이명휘작성일 2005-07-03조회수 506
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기

기사 5월 4일 오후 기출 문제 보시면

※ 일련번호는 중복되어 있지 않으며 일련번호에 대해 오름차순 정렬되어 있다..

라고 되어있고 문제가 주어집니다...

 문제1번과 문제2번에 조건에서 "동일값 발생시 일련번호 오름차순으로 정렬하시오"

 라고 되어 있습니다...

 저는 지문에서 일련번호 오름차순 정렬되어 있다고 해서 동일값 발생시의 일련번호

 오름차순 정렬은 무시하고 코딩을 하였습니다...답은 똑같이 나오는데 무시해도 괜찮은건지 아니면 코딩을 해주어야 하는지 알고 싶습니다...

Sub main()



    ''필수 변수 선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 지불금액, 예약수량, 예약금액, 합계(1000), 지불금액배열(1000), 일련번호(1000), P, Temp, Num As Variant
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력 파일 처리
    Open "c:\c_it\data\san0105.txt" For Input As #1
   
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
                ''변수 저장
                지불금액 = Val(Mid(버퍼, 48, 10))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
               
                ''배열변수 구하기
                If 지불금액 < 5000000 Then
                    Num = Num + 1
                    합계(Num) = 예약수량 * 예약금액
                    지불금액배열(Num) = 지불금액
                    일련번호(Num) = Trim(Mid(버퍼, 1, 7))
                End If
               
            End If
        Next K
               
        ''정렬(합계 오름차순 or (합계 같음 and 일련번호 오름차순))
        For K = 1 To Num
            For P = K To Num
           
                If 합계(K) > 합계(P) Or _
                    (합계(K) = 합계(P) And 일련번호(K) > 일련번호(P)) Then
                   
                    Temp = 합계(K)
                    합계(K) = 합계(P)
                    합계(P) = Temp
                   
                    Temp = 지불금액배열(K)
                    지불금액배열(K) = 지불금액배열(P)
                    지불금액배열(P) = Temp
                   
                    Temp = 일련번호(K)
                    일련번호(K) = 일련번호(P)
                    일련번호(P) = Temp

                   
                End If
               
            Next P
        Next K
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans2.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 지불금액배열(Num)
       
    Close #2
   
End Sub
 
 글씨 색들어간 부분 생략해도 상관없는지요? 

댓글쓰기 :
이전글 기사 기출문제 질문입니다...(5월 4일 오후)
다음글 문제가 안 풀려여..ㅠ.ㅠ
고객지원센터

02-556-3650

평일 9:00~18:00

일요일 공휴일 휴무

계좌번호안내

농협은행 724-01-173541

국민은행 633601-04-044665

예금주 (주)조은캠프

상호명 : (주)조은캠프 ㅣ 대표이사 : 이유락 ㅣ 대구광역시 북구 대학로80 경북대학교 IT융합산업빌딩 11층
사업자번호 : 504-81-62507 ㅣ 본사 : 053-954-0030 ㅣ 기술지원 : 070-7019-1144 ㅣ 팩스 : 050-7711-2200 ㅣ 
원격평생교육시설13호 ㅣ 출판사 : 345-2005-00013 ㅣ 통신판매업 : 2005-대구북구-00158 ㅣ 정보보호책임자 : 김창연  
기사친구는 SSL보안방식의 암호화구간을 적용하여 사이트를 안전하게 이용하실 수 있습니다.
COPYRIGHT 2005 (주)조은캠프 ALL RIGHTS RESERVED.관리자에게 메일보내기