디시인사이드 갤러리

갤러리 이슈박스, 최근방문 갤러리

갤러리 본문 영역

삽입 정렬 왜 이따구로 되지?

컴공볍진갤로그로 이동합니다. 2009.11.19 23:29:40
조회 85 추천 0 댓글 2


뭐가 불만일까.

c23456789

     
      integer m(100)
      integer min,change,num
      open(2,file=\'re1.dat\')
      read(2,10, End = 15) m
   10 format(10i2)
   15 write(*,20)
   20 format(/,9x,\'INSERTION SORT\',
     -/,9x,\'ORIGINAL DATA\',/,9x,12(\'-\'))
      write(*,40)(m(i),i=1,20)

   30 do 200 j=1,19
      min=m(j)
      do 100 i=2,20
        if(min.gt.m(i))then
          min=m(i)
          num=i
        endif
  100 continue
      change=m(j)
      m(j)=min
      m(num)=change
      write(*,40)(m(k),k=1,20)
  200 continue
      write(*,35)
   35 format(/,9x,\'SORTED DATA\',/,9x,12(\'-\'))
      write(*,40)(m(i),i=1,20)
   40 format(\' \',10i3)     
      stop
      end

추천 비추천

0

고정닉 0

0

원본 첨부파일 1

댓글 영역

전체 댓글 0
등록순정렬 기준선택
본문 보기

하단 갤러리 리스트 영역

왼쪽 컨텐츠 영역

갤러리 리스트 영역

갤러리 리스트
번호 제목 글쓴이 작성일 조회 추천
설문 연예인 안됐으면 어쩔 뻔, 누가 봐도 천상 연예인은? 운영자 24/06/17 - -
159582 아이폰 오늘쯤 받은 사람있음?? [2] Vita500갤로그로 이동합니다. 09.11.29 60 0
159581 횽들 제발 자비 좀.ㅜㅜ [1] 헐라갤로그로 이동합니다. 09.11.29 29 0
159578 ■ 한쿡에서 기술자를 키워야 한다고 하는 이유~~~ [2] 오라클설치갤로그로 이동합니다. 09.11.29 91 0
159575 ㅡㅡ 짜증나네 [6] 거참좋네갤로그로 이동합니다. 09.11.29 69 0
159573 형들 좀 도와줘 2시간째 매달리는데 이게 왜이러는지 모르것어 [3] 레알(116.121) 09.11.29 91 0
159572 ■ 횽들아~ 파견 회사에서 여자 조심해라 [10] 오라클설치갤로그로 이동합니다. 09.11.28 183 0
159569 IT계열 일하시는분있나요? [9] 피라(222.232) 09.11.28 191 0
159567 요즘 교양으로 C++책을 읽고 있는데 [2] IHF갤로그로 이동합니다. 09.11.28 98 0
159563 C잘하는 횽 없어? [1] 123(119.201) 09.11.28 62 0
159562 구글웨이브 초대권 4장 남았다 [6] ㅇㅇㅃ갤로그로 이동합니다. 09.11.28 116 0
159560 인공지능이나 알고리즘 수업 들었던 횽들 [2] 결정트리(121.133) 09.11.28 143 0
159559 부탁해 형님들 <컴사용지킴이> 이거 삭제하는 방법좀 알려줘 ㅠ For Kira(211.252) 09.11.28 53 0
159558 안녕??? [4] KernelPanic갤로그로 이동합니다. 09.11.28 51 0
159557 컴퓨터자격증 실용적인거 뭐있나요? [1] 하악(121.139) 09.11.28 220 0
159556 횽들 소셜 네트워킹 사이트 있자나 [1] 11(125.182) 09.11.28 73 0
159555 php vs asp vs jsp [13] 흐음...(124.153) 09.11.28 204 0
159554 고민이다. [3] 핫바리(124.198) 09.11.28 99 0
159553 횽들 이겜 해봄? [5] IHF갤로그로 이동합니다. 09.11.28 172 0
159552 횽들 이겜 해봄? [3] 연어갤로그로 이동합니다. 09.11.28 143 0
159551 다른프로그램에서 입력되는 키보드입력 후킹할려고 하는데용 [2] .ㅅ.(61.251) 09.11.28 95 0
159549 goto 는 억울하다. [7] 부시맨(121.139) 09.11.28 192 0
159546 프갤 처음 와보는데... [2] 볍신(220.67) 09.11.28 107 0
159545 헐.. 퀵소트 잘몼짯나... 왜케 느리게 나오지? [5] 성대아싸(121.137) 09.11.28 190 0
159543 그래! 결심했어! DMW(125.138) 09.11.28 103 0
159541 왜 사는지 고민 같은 거 하지 마라 [2] 플러(121.133) 09.11.28 138 0
159540 KT가 미친건가. 이 기사 믿을만한 기사여? [9] 씬입사원갤로그로 이동합니다. 09.11.28 251 0
159538 이 만화 뭐죠? [3] 연어갤로그로 이동합니다. 09.11.28 170 0
159537 64비트OS의위엄 [6] DMW(125.138) 09.11.28 299 0
159535 내가 왔다 [1] 연어갤로그로 이동합니다. 09.11.28 54 0
159534 오늘 참 많은거 배운듯. [3] URA!갤로그로 이동합니다. 09.11.28 178 0
159533 오늘따라 정전이 심하군.. [1] IHF갤로그로 이동합니다. 09.11.28 58 0
159531 임베디드쪽 관련 멘토 구합니다. [1] 전자(114.206) 09.11.28 108 0
159529 URA!는 봄미다. [6] ∫ 2t dt=t²+c갤로그로 이동합니다. 09.11.28 117 0
159528 나는 누군가요? [4] IHF갤로그로 이동합니다. 09.11.28 89 0
159526 아.. 진짜 프갤 정떨어진다 다신 안온다. [3] 씬입사원갤로그로 이동합니다. 09.11.28 169 0
159525 주현이는 쳐봅니다~ [1] Vita500갤로그로 이동합니다. 09.11.28 70 0
159524 아.. 진짜 프갤 정떨어진다 다신 안온다. [7] IHF갤로그로 이동합니다. 09.11.28 153 0
159523 그래서 뇌자알 인접리스트 그래프부분만 C++로 변형해봤어 [6] URA!갤로그로 이동합니다. 09.11.28 196 0
159522 밑에서 얘기한 뇌자알C코드->C++ 말야, [9] URA!갤로그로 이동합니다. 09.11.28 101 0
159520 소팅 알고리즘 짜고 있는데요 [5] 성대아싸(121.137) 09.11.28 151 0
159519 클래스 안에 구조체 선언했는데 [6] URA!갤로그로 이동합니다. 09.11.28 139 0
159518 일주일동안 $10도 채 안 쓰며 [5] algo갤로그로 이동합니다. 09.11.28 148 0
159517 비주얼 2008로 디버깅할때, [3] URA!갤로그로 이동합니다. 09.11.28 98 0
159516 C언어 과제좀 도와줄 가이있나요? [4] ㄷㄷ(222.236) 09.11.28 113 0
159512 뇌자알을 걸고 청소한다 [14] algo갤로그로 이동합니다. 09.11.28 185 0
159511 밥먹고 합시다 [1] DMW(125.138) 09.11.28 81 0
159509 뇌자알의 C알고리즘을 C++로 만들려고 하는데 [12] URA!갤로그로 이동합니다. 09.11.28 156 0
159508 뇌자일 질문입니다~ [3] 뉴비(220.66) 09.11.28 66 0
159507 왜.. 어째서..! 삭제당한거지!? [7] IHF갤로그로 이동합니다. 09.11.28 148 0
159506 좋은 게으름이다 [5] algo갤로그로 이동합니다. 09.11.28 87 0
갤러리 내부 검색
제목+내용게시물 정렬 옵션

오른쪽 컨텐츠 영역

실시간 베스트

1/8

뉴스

디시미디어

디시이슈

1/2