| | | 제 목 | 급합니다. 낼 셤이거든요. | | | 글쓴이 | 궁금해요 | 작성일 | 2005-07-15 | 조회수 | 558 | | | 글공유 | |
| | | 회원별 예약관리문제 입니다.
1. 결재 금액이 5000000미만인 자료를 대상으로 (예약수량*예약금액)의 값에 따라 오름차순으로 정렬했을 경우 가장 마지막 자료의 결재금액을 출력하되, (예약수량*예약금액)의 값이 중복될 경우, 예약번호를 오름차순으로 정렬하여 처리하시오.
''필수변수 선언
''핵심변수 선언
dim 결재금액(1000), 예약수량, 예약금액, 합계(1000)예약번호(1000), t, temp, num as variant
''인수처리
''입력파일처리
for k=1 to 인수2
line input #1, 버퍼
if k>= 인수1 then
''변수저장
예약수량 = val(mid(버퍼, 어쩌고 , 저쩌고))
예약금액 = val(mid(버퍼, 어쩌고 , 저쩌고))
''배열변수처리
if 결재금액 < 5000000 then
num= num+1
합계 (num) = 예약수량 *예약금액
결재금액(num) = val(mid(어쩌고, 저쩌고))
예약번호(num) = val(mid(어쩌고, 저쩌고))
end if
end if
next k
''정렬
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
end if
next p
next k
''출력파일 처리
open 이하생략
print #2, 인수1, 인수2, 결재금액(num)
여기 비쥬얼 베이직이 없는 곳이라서 다른것은 빼고, 문제에 해당되는 것 위주로 적었는데, 뭐가 잘못된 지 모르겠어요.
결재금액에서 뭔가 잘못된것 같은데....
결재금액, 배열결재금액(1000)이라고 따로 선언도 해봤는데 안되요.
뭐가 잘못된거죠?ㅡ.ㅜ;;;;
| |
|
|
이전글
다음글
