포트란에서 문자인식
글쓴이: dpple03 / 작성시간: 월, 2009/11/30 - 9:21오후
문자를 입력하면 지정된 숫자를 나오게 해서 그 숫자들을 비교하고 싶은데요.
문자를 숫자로 지정해서 비교 할 수 있는 방법이 있나요?
예를 들면,
c=12이고 h=1이고 br=17라고 지정해줄때 (아 그리구요 br은 두자인데 이것도 하나로 인식할 수 있는 방법이 있을까요?)
c를 입력하면 data문을 이용해서 c=12 라고 나타내는 거 까지는 할 수 있는데요
만약에 chhh라고 입력을 했을 때에도 c=12 라고 인식하게 할수는없나요?
그리구 c다음에 hhh는 h=1로써 3개를 더하고 싶은데요
이렇게 하려면 어떻게 하면 될까요 ㅠㅠ
Forums:
character string integer
character string
integer i,ind,answer
ind=index(string,' ') -1
do i=1,ind
if(string(i:i).eq.'c') then
answer=12
elseif(string(i:i).eq.'h') then
answer=1
endif
write(*,*) answer
enddo
이런식으로 하면 되지않을까요?