array.asp

=====================================================

<%
'array.asp저장하시오
Option Explicit
'등수 구하기
Dim nm,kor,eng,mat
nm=Array("홍길동","민들레","라일락","봉선화","진달래")
kor=Array(90,50,60,75,80)
eng=Array(60,90,20,85,95)
mat=Array(70,30,40,50,70)
Dim aver(4)
'aver변수에 각각의 평균값을 구하시오(소수점은 반올림할것)
Dim n,cnt
cnt=UBound(nm) '4
For n=0 To cnt
 aver(n)=CInt((kor(n)+eng(n)+mat(n))/3)
Next

For n=0 To cnt
 Response.write nm(n) & " "
 Response.write kor(n) & " "
 Response.write eng(n) & " "
 Response.write mat(n) & " "
 Response.write aver(n) & " "
 Response.write "<br>"
Next

'문) aver(2)가 몇등인지 구하시오
Dim r : r=1
For n=0 To cnt
 If aver(2) < aver(n) Then r=r+1
next

response.write "aver(2)=" & r & "등 입니다<br>"

'문)전체 등수를 구하시오
Dim rank
rank=Array(1,1,1,1,1)

dim i,j
For i=0 To cnt
 For j=0 To cnt
  If aver(i) < aver(j) Then rank(i)=rank(i)+1
 Next
Next
'입력->가공,편집->출력
For n=0 To cnt
 Response.write nm(n) & " "
 Response.write kor(n) & " "
 Response.write eng(n) & " "
 Response.write mat(n) & " "
 Response.write aver(n) & " "
 Response.write rank(n) & " "
 Response.write "<br>"
Next

 

 

 

 


'배열 int[3] a / var a=new Array(3)
'a[0] a[1] a[2]

Dim a(2) '배열의 마지막 인덱스 번호
a(0)=10
a(1)=20
a(2)=30
Response.write UBound(a) '배열의 마지막 인덱스 번호

'Dim n
For n=0 To UBound(a)
 Response.write a(n)
 Response.write "<br>"
Next

Dim b
b=Array(40,50,60)
For n=0 To UBound(b)
 Response.write b(n)
 Response.write "<br>"
Next

%>

'..열심히 공부하세.. > ASP' 카테고리의 다른 글

요일구하기  (0) 2009.07.16
프로시저 연습  (0) 2009.07.16
성적구하기  (0) 2009.07.16
ASP 준비  (0) 2009.07.07
요일 구하기  (0) 2009.07.07

+ Recent posts