*지* 스토어

*지*

개인

팔로워0 팔로우

소개

등록된 소개글이 없습니다.

전문분야 등록된 전문분야가 없습니다.

판매자 정보

학교정보

입력된 정보가 없습니다.

직장정보

입력된 정보가 없습니다.

자격증

입력된 정보가 없습니다.

판매지수

판매중 자료수

4개
전체 판매량

4개
최근 3개월 판매량

0개
자료후기 점수

-
자료문의 응답률

-

전체자료 4개

[자료구조] 자바로짠 해쉬탐색

// 해쉬 검색 프로그램// 만든이 컴퓨터 정보과학과 9800602 서지동// 참고 도서, 누드 JAVA// 참고 사이트, 자바누리import java.io.*; class hesy { static int num[][]=new int[10][10]; static int num2[]=new int[10]; static int num3[]=new int[10];static int xmp = 0 ; static int xmp1 = 0 ;public static void main(String[] args) throws IOException{for (int i=0;i<num2.length ; i++){ num2[i] = (int)(Math.random() * 99); //중복숫자 나올 수 있음, 처리 생략... }for (int i=0;i<num2.length ; i++){ System.out.print(num2[i] + ","); } for (int i=0;i<num3.length ; i++){ num3[i] = i;

공학/기술| 2004.04.19| 3페이지| 1,000원| 조회(547)

자료구조, 자바, 해쉬탐색

미리보기

닫기
[자료구조] 자바로 만든 이진검색과 해쉬검색

이진 탐색1.입력값입력값은 정해진 값이 아니라 제가 소스 안에서 자체적으로 1부터100까지의 수중랜덤으로 아무 숫자나 10개정도 추출하여 배열에 집어 넣습니다.즉 이러한 형식으로 제가 결과 값을 일부러 유도 할 수는 없게 하였습니다.static int num[]=new int[10]; e){System.out.println("찾을수가 없습니다. !!!");return ;}if(num[mid] > key) {System.out.println("중간값의 위치는" + (mid+1) +"입니다.");search(key, s, mid-1);} else if(num[mid] < key) {System.out.println("중간값의 위치는" + (mid+1) +"입니다.");search(key, mid+1, e);} else if(num[mid] == key) {System.out.println("왼쪽에서 오른쪽으로" + (mid+1) + "번째에 있습니다. !!!!");System.out.println("검색한 값은 "+num[mid] +"입니다.");}}위의 소스는 이진 검색 메소드입니다.while ( (str2 =br.readLine()) != null){if (str2.equalsIgnoreCase("q")) break;search(Integer.parseInt(str2), 0, num.length-1); //검색 호출System.out.println("검색정수를 입력하세요");}}메인에서 위의 소스를 이용하여 검색 메소드를 호출하여키라는 변수에 검색하려는 정수를 입력후중간값과 비교하여 중간값이 키 값보다 클을 경우 원하는 정수는 중간값 위치에서왼쪽에 있다는 말이므로 왼쪽에서 다시 중간값을 구하여서 그 중간값과 키 값을 다시 비교하여 중간값과 키 값이 같아질때 까지 반복을 합니다.중간값이 키 값보다 작을 경우도 위와 마찬가지이지만 다른점은 오른쪽에 키 값이 위치한다는 이야기이므로 오른쪽에서 작업을 반복합니다.옆의 그림과 같이 3이라는 정수를검색하려구 입력 하였을때 중간값의위치 5에 있는 48보다 작으므로 왼쪽에서 다시 중간값의 위치2에 있는 28보다 작기 때문에 다시 돌리고 이러한형식으로 더 이상 중간값을 구할수 없을 때 까지 돌린 후 없다면찾을수가 없습니다.라는 문장이 그림과 같이 출력합니다.옆의 그림은 결과 값을 출력한 것으로써 60이라는 정수를 찾았을때중간값 위치5에 있는 48보다 크므로오른쪽에서 검색하고 다시 중간값을구하였을때 구하는 값이 중간값과같으므로 원하는 값의 위치와 함께검색한 값은 60입니다 라는 문장을출력하였습니다.왼쪽에서 값을 구할 경우입니다.해쉬 검색1.입력값입력값은 위의 이진 검색과 동일하며 랜덤형식으로 1부터 99까지 아무 값이나 10개를추출하게 되어있습니다.2.입력값 정리입력값을 가지고 일의 자리수에 맞추어 각각의 자리수의 집합을 만들었습니다.static int num[][]=new int[10][10];static int num2[]=new int[10];static int num3[]=new int[10];static int xmp =0;static int xmp1 = 0;위의 소스중 num은 다차원 배열로서 앞은 자리수 0부터 9까지 키 값을 가지게 됩니다.그리고 뒤는 10까지 빈 배열의 공간을 가지고 나중에 주어지는 값을 여기에 저장하게 됩니다.num2는 임의의 값 10개가 들어갈 저장 장소입니다. 즉 위의 이진 탐색에서 num과 같은역할을 하게 되는 것입니다.num3는 0부터 9까지 값을 가지고 num2와 나중에 들어오는 검색할 정수의 일의 자리수와 비교하여 num의 배열에 각각의 위치에 저장하게 해주기 위한 배열입니다.또한 xmp와 xmp1은 나중에 결과 값을 넣기 위한 변수입니다.for (int i=0;i

공학/기술| 2004.04.19| 6페이지| 1,000원| 조회(955)

자료구조, 이진검색, 해쉬검색

미리보기

닫기
[프로그램] 세이프와 스크롤바를 이용한 그래픽뷰

스크롤바와 세이프를 이용한 그래픽 뷰 프로그램 이프로그램은 dir리스트 박스,File리스트 박스,드라이브리스트박스,콤보박스,스크롤바,세이프,이미지를 이용한 프로그램입니다실행전에는 이미지가 실선으로 보이나 실행후에는 보이지 않고 세이프만 보입니다.세이프는 스크롤바에 의해 이동이 가능합니다. 또한 읽을수 없는 파일(이미지파일이 아닌 파일)을 선택하였을 경우 오류창이 뜨게되어있습니다.이미지 출력후 이미지파일이 픽쳐박스보다 클 경우 스크롤바를 사용하여 이미지의보이지 않는 부분까지 볼수 있으며 이미지가 픽쳐박스보다 작을경우에는 스크롤바를사용하지 못하게 하였습니다. 마지막으로 콤보박스를 사용하여 이미지 파일을 종류별로 간단히 찾을수 있게 하였습니다.다음은 소스 코드입니다.Private Sub Combo1_Click()' 콤보박스에서 선택하면 그에 따른 패턴을 변경한다.Select Case Combo1.ListIndexCase 0:File1.Pattern = "*.BMP;*.DIB;*.GIF;*.JPG;*.WMF;*.EMF;*.ICO;*CUR"Case 1:File1.Pattern = "*.BMP;*.DIB"Case 2:File1.Pattern = "*.GIF"Case 3:File1.Pattern = "*.JPG"Case 4:File1.Pattern = "*.WMF;*EMF"Case 5:File1.Pattern = "*.ICO;*.CUR"Case 6:File1.Pattern = "*.*"End SelectEnd SubPrivate Sub Command1_Click()' 프로그램을 종료한다.EndEnd SubPrivate Sub Dir1_Change()' 디렉토리 패스와 파일의 패스를 동일하게 한다.File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()On Error GoTo ERR' 드라이브와 패스를 동일하게 한다.Dir1.Path = Drive1.DriveExit Sub' 드라이브를 정상적으로 읽지 못하면 수행한다.ERR:MsgBox "드라이브정보를 읽을 수 없습니다."End SubPrivate Sub File1_Click()Dim Dir_File As StringOn Error GoTo ERRDim ADim BDim CC = File1.Path & "" & File1.FileName ' 패스와 파일명을 붙여준다.Image1.Picture = LoadPicture(C) '그림을 가져온다.A = Image1.Width - Picture1.ScaleWidth'그림이 큰 경우에만 스크롤바를 보이게 한다.If A > 0 ThenHScroll1.Max = AHScroll1.LargeChange = HScroll1.Max / 10HScroll1.SmallChange = HScroll1.Max / 20HScroll1.Enabled = TrueElseHScroll1.Enabled = FalseEnd IfB = Image1.Height - Picture1.ScaleHeight'그림이 큰 경우에만 스크롤바를 보이게 한다.If B > 0 ThenVScroll1.Max = BVScroll1.LargeChange = HScroll1.Max / 10VScroll1.SmallChange = HScroll1.Max / 20VScroll1.Enabled = TrueElseVScroll1.Enabled = FalseEnd IfPicture1.Picture = LoadPicture()Call PaintpicExit Sub' 그림을 정상적으로 읽지 못하면 수행한다.ERR:MsgBox "읽을 수 없는 파일 입니다."End SubPublic Sub Paintpic()On Error GoTo ErrHandlerPicture1.PaintPicture Image1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, HScroll1.Value, VScroll1.Value, Picture1.ScaleWidth, Picture1.ScaleHeightErrHandler:End SubPrivate Sub Form_Load()' 폼이 화면 중심에 출력한다.Left = (Screen.Width - Width) / 2Top = (Screen.Height - Height) / 2' 이미지 크기를 설정한다.Picture1.Height = 3645Picture1.Width = 3615Picture1.AutoSize = FalseHScroll1.Max = Picture1.HeightVScroll1.Max = Picture1.Width' 콤보박스에 리스트를 넣는다.Combo1.Text = "모든그림파일"Combo1.AddItem ("모든그림파일")Combo1.AddItem ("비트맵(*.BMP;*.DIB)")Combo1.AddItem ("GIF이미지(*.GIF)")Combo1.AddItem ("JPEG이미지(*.JPG)")

공학/기술| 2003.05.14| 4페이지| 1,000원| 조회(366)

프로그램, 비주얼베이직, 스크롤바, 세이프

미리보기

닫기
[컴퓨터] VB를 이용한 성적관리프로그램

성적 관리 프로그램 미디어 폼을 사용하여 미디어 폼 안에 각반의 폼들을 출력하게 하였습니다.그리고 모듈을 사용하여 각 반의 학생들의 성적을 각 레코드에 입력하여전체보기에서 출력할수 있게끔 하였습니다. 또한 각 과목의 점수를 100점 이상 입력할 경우 에러 창이 뜨게 되며텍스트박스안의 잘못된 입력값은 삭제되고 다시 입력하게 되어 있습니다. 각 반마다 정원은 10명으로 하였으며 10명이상 입력하려구하면 맨위에 초과라는 글씨가뜨면서 입력이 되지 않게 하였습니다. 또한 등수를 클릭할 경우 평균값을 가지고 석차를 메기게 되며 성적순으로 소트가 되게 하였습니다.그리고 평균값이 같은 학생이 나왔을 경우등수는 같게 하였으며 대신 그다음 사람은 뒤로 밀려난 등수로 하였습니다.평균이 100점인사람이 2명일때 그 2명은 1등이며 그다음으로 높은 사람은 2등이 아니라 3등이 되게 하였습니다.각 총점과 평균은 과목점수 입력시 곧바로 계산되어 입력되게 하였습니다.마지막으로 각반의 학생들의 정보는 모두 레코드에 입력되는데 각 정보는text.txt파일에 순차적으로 입력되게 하였고 이것은 전체보기에서 순차적으로 입력된 정보를불러온다음 그 정보를 다시 석차순으로 재 정렬 하게 하였습니다. 다음은 이 프로그램의 소스입니다.모듈Type My_sungnum As String * 10name As String * 10kor As String * 3eng As String * 3mat As String * 3cha As String * 3la As String * 3su2 As String * 4va2 As String * 3cr_lf As String * 2End Type미디어 폼Private Sub A_Click()Form1.ShowUnload Form2Unload Form3Unload Form4Unload Form5Unload Form6End SubPrivate Sub b_Click()Form2.ShowUnload Form1Unload Form3Unload Form4Unload Form5U10) As IntegerDim hap(10) As IntegerDim X As IntegerDim y As IntegerDim suk As IntegerDim temp As IntegerFor X = 1 To 10 '입력받은 데이터값 배열에 할당.For y = 1 To 9hak(X, y) = MSFG1.TextMatrix(X, y)Next yNext XFor X = 1 To 10 '정열하기위한 간단한 평균 배열hap(X) = Val(MSFG1.TextMatrix(X, 9))no(X) = XNext X'정열For X = 9 To 1 Step -1For y = 1 To X Step 1If hap(y) < hap(y + 1) Thentemp = hap(y) '바로 위의 레코드와 비교하여 자리바꾸기hap(y) = hap(y + 1)hap(y + 1) = temptemp = no(y) '바로 위의 레코드와 비교하여 자리바꾸기no(y) = no(y + 1)no(y + 1) = tempEnd IfNext yNext X'정열후 재배치For X = 1 To 10For y = 1 To 9MSFG1.TextMatrix(X, y) = hak(no(X), y) 'no()배열에 정열된 순서대로 재정열Next yNext X'동점자y = 1MSFG1.TextMatrix(1, 0) = 1For X = 2 To 10If (MSFG1.TextMatrix(X - 1, 9) = MSFG1.TextMatrix(X, 9)) ThenMSFG1.TextMatrix(X, 0) = yElseMSFG1.TextMatrix(X, 0) = Xy = XEnd IfNext XEnd Sub'세이브 버튼 프로시저Private Sub Com1_Click()Static i As IntegerDim sum As IntegerDim avg As Integeri = i + 1 '저장을 한번 누를때마다 1씩 더해준다.sum = Val(Text1(2).Text) + Val(Text1(3).Text) + Val(Text1(4).Te IntegerDim sung(1 To 10) As My_sung'첫번째 구조체에 넣는다.sung(1).num = MSFG1.TextMatrix(1, 1)sung(1).name = MSFG1.TextMatrix(1, 2)sung(1).kor = MSFG1.TextMatrix(1, 3)sung(1).eng = MSFG1.TextMatrix(1, 4)sung(1).mat = MSFG1.TextMatrix(1, 5)sung(1).cha = MSFG1.TextMatrix(1, 6)sung(1).la = MSFG1.TextMatrix(1, 7)sung(1).su2 = MSFG1.TextMatrix(1, 8)sung(1).va2 = MSFG1.TextMatrix(1, 9)sung(1).cr_lf = vbCrLf'두번째 구조체에 넣는다.sung(2).num = MSFG1.TextMatrix(2, 1)sung(2).name = MSFG1.TextMatrix(2, 2)sung(2).kor = MSFG1.TextMatrix(2, 3)sung(2).eng = MSFG1.TextMatrix(2, 4)sung(2).mat = MSFG1.TextMatrix(2, 5)sung(2).cha = MSFG1.TextMatrix(2, 6)sung(2).la = MSFG1.TextMatrix(2, 7)sung(2).su2 = MSFG1.TextMatrix(2, 8)sung(2).va2 = MSFG1.TextMatrix(2, 9)sung(2).cr_lf = vbCrLf'3번째 구조체에 넣는다.sung(3).num = MSFG1.TextMatrix(3, 1)sung(3).name = MSFG1.TextMatrix(3, 2)sung(3).kor = MSFG1.TextMatrix(3, 3)sung(3).eng = MSFG1.TextMatrix(3, 4)sung(3).mat = MSFG1.TextMatrix(3, 5)sung(3).cha = MSFG1.TextMatrix(3, 6)sung(3).la = Matrix(5, 7)sung(5).su2 = MSFG1.TextMatrix(5, 8)sung(5).va2 = MSFG1.TextMatrix(5, 9)sung(5).cr_lf = vbCrLf'6번째 구조체에 넣는다.sung(6).num = MSFG1.TextMatrix(6, 1)sung(6).name = MSFG1.TextMatrix(6, 2)sung(6).kor = MSFG1.TextMatrix(6, 3)sung(6).eng = MSFG1.TextMatrix(6, 4)sung(6).mat = MSFG1.TextMatrix(6, 5)sung(6).cha = MSFG1.TextMatrix(6, 6)sung(6).la = MSFG1.TextMatrix(6, 7)sung(6).su2 = MSFG1.TextMatrix(6, 8)sung(6).va2 = MSFG1.TextMatrix(6, 9)sung(6).cr_lf = vbCrLf'7번째 구조체에 넣는다.sung(7).num = MSFG1.TextMatrix(7, 1)sung(7).name = MSFG1.TextMatrix(7, 2)sung(7).kor = MSFG1.TextMatrix(7, 3)sung(7).eng = MSFG1.TextMatrix(7, 4)sung(7).mat = MSFG1.TextMatrix(7, 5)sung(7).cha = MSFG1.TextMatrix(7, 6)sung(7).la = MSFG1.TextMatrix(7, 7)sung(7).su2 = MSFG1.TextMatrix(7, 8)sung(7).va2 = MSFG1.TextMatrix(7, 9)sung(7).cr_lf = vbCrLf'8번째 구조체에 넣는다.sung(8).num = MSFG1.TextMatrix(8, 1)sung(8).name = MSFG1.TextMatrix(8, 2)sung(8).kor = MSFG1.TextMatrix(8, 3)sung(8).eng = MSFG1.TextMatrix(8, 4)sung(8).mat = MSFG1.TextMatrix(10, 5)sung(10).cha = MSFG1.TextMatrix(10, 6)sung(10).la = MSFG1.TextMatrix(10, 7)sung(10).su2 = MSFG1.TextMatrix(10, 8)sung(10).va2 = MSFG1.TextMatrix(10, 9)sung(10).cr_lf = vbCrLf'파일을 열어준다.Open "c:text.txt" For Random As #1 Len = Len(sung(1))For b = 1 To 10'구조체의 데이터를 파일에 넣는다.Put #1, b, sung(b)Next bClose #1End Sub'나가기 버튼 프로시저Private Sub Com5_Click()Unload Form1End SubPrivate Sub Command2_Click()Dim i As Integermy = my - 1If my < 2 Then'my가 2행보다 작으면 내용만 비워준다.For i = 0 To 6MSFG1.TextMatrix(1, i) = ""NextElse'현재 셀위치의 행을 삭제하기 위해 위치를 옮겨준다.For i = MSFG1.Row To my - 1MSFG1.TextMatrix(i, 0) = MSFG1.TextMatrix(i + 1, 0)MSFG1.TextMatrix(i, 1) = MSFG1.TextMatrix(i + 1, 1)MSFG1.TextMatrix(i, 2) = MSFG1.TextMatrix(i + 1, 2)MSFG1.TextMatrix(i, 3) = MSFG1.TextMatrix(i + 1, 3)MSFG1.TextMatrix(i, 4) = MSFG1.TextMatrix(i + 1, 4)MSFG1.TextMatrix(i, 5) = MSFG1.TextMatrix(i + 1, 5)MSFG1.TextMatrix(i, 6) = MSFG1.TextMatrix(i + 1, 6)MSFG1.TextMatrix(i, 7) = MSFG1.TextMatrix(i + 1, 7)MSFG1.Tex

자연과학| 2003.05.14| 13페이지| 1,000원| 조회(1,229)

비주얼베이직, vb, 성적관리

미리보기

닫기