求fortran中如何把小写字母转换为大写字母的编程？

用fortran95怎样将小写字母的转变为大写字母~

PROGRAM excercise5
implicit none
character(len=40)::string,string2
integer::num1,num,i
string="aadsfew DEFSD SDFsdfwe "
num1=len_trim(string)
do i=1,num1
num=iachar(string(i:i))
if(num>96.and.num<123) then
string2(i:i)=achar(iachar(string(i:i))-32)
else
string2(i:i)=string(i:i)
endif
enddo
print*, string2
END

这个是一个很有趣的问题，也是常常加密中会采取的一个思路 。
方法如下：假如是要把abcd变成ABCD
program 1
implicit none
integer i
integer strlen
integer,parameter::key=4
character(len=20)::string
write(*,*)"string:"
read(*,*)string
strlen=len_trim(string)
do i=1,strlen
string(i:i)=char(ichar(string(i:i))+key) !因为小写字母的ascii码要比大写的小4 所 以key=4
write(*,"('string:',a20)")string
end do
stop
end

此子程序是一 .f 文件，可以将一个字符串中的小写字母转换为大写字母。FORTRAN中并没有直接转换字母大小写的内部函数，必须使用内码转换，即先把字母的ACSII码读出，然后减去32，再转换为字母，就达到目的了
c
c
c ###############################################################
c ## ##
c ## subroutine upcase -- convert string to all upper case ##
c ## ##
c ###############################################################
c
c
c "upcase" converts a text string to all upper case letters
c
c
subroutine upcase (string)
implicit none
integer i,size,len
integer code,ichar
character*1 char
character*1 letter
character*(*) string
c
c
c convert lower case to upper case one letter at a time
c
size = len(string)
do i = 1, size
letter = string(i:i)
code = ichar(letter)
if (letter.ge.'a' .and. letter.le.'z')
& string(i:i) = char(code-32)
end do
return
end

---

武冈市17596757260： FORTRAN大小写字母如何转换 - ？
卢狠葛根： 此子程序是一 .f 文件,可以将一个字符串中的小写字母转换为大写字母.fortran中并没有直接转换字母大小写的内部函数,必须使用内码转换,即先把字母的acsii码读出,然后减去32,再转换为字母,就达到目的了 c c c ###################...

武冈市17596757260： 用fortran95怎样将小写字母的转变为大写字母 - ？
卢狠葛根： PROGRAM excercise5 implicit none character(len=40)::string,string2 integer::num1,num,i string=＂aadsfew DEFSD SDFsdfwe ＂ num1=len_trim(string) do i=1,num1 num=iachar(string(i:i)) if(num>96.and.num<123) then string2(i:i)=achar(iachar(string(i:i))-32) else string2(i:i)=string(i:i) endif enddo print*, string2 END

武冈市17596757260： 输入一个小写字母d,将其转换为大写字输出,怎样用fortran95语言编写程序 - ？
卢狠葛根： program main implicit none character*20 str integer i print*,'input the string:' read*,str do i=1,len_trim(str) if(str(i:i)>='a'.and.str(i:i)<='z') str(i:i)=char(ichar(str(i:i))-32) end do print*,'the inverted string:' print*,str end

武冈市17596757260： FORTRAN大小写字母如何转换 - ？
卢狠葛根： CHARACTER C! 此处略去字符型变量C的值的获得方式! 小写转换成大写IF (C.GE.'a'.AND.C.LE.'z') C = CHAR(ICHAR(C) - ICHAR('a') + ICHAR('A'))! 大写转小写思路一样,从略

武冈市17596757260： 用for把从键盘输入的字符中所有的小写字母转换成大写字母,其他字符不变原样输出.以换行符作为字符输入结束？
卢狠葛根： 去查下ASCII,找出大写和小写的差值,然后在你定义的字符后边加上就可以了. 你把那个for循环中的i<10改成i<你输入的字符串的长度.

武冈市17596757260： 请编写完整的程序实现将某字符串中所有的小写字母转换成大写字母.要求所编写程序 - ？
卢狠葛根： void main(){ char str[80],*s=str; gets(str); while(*s!='\0'){ if (*s<='z' && *s>='a') *s-=32; s++; } puts(str); }

武冈市17596757260： Fortran分别在两行输出所有的大小写字母 - ？
卢狠葛根： 小写字母包括a到z,一共26个英文字母. 区分字符串中的字符属于特殊符号,或者是小写字母和大写字母,其本质是每个字符在Unicode编码中对应一个数字.a对应数字编码为97,z对应数字的编码为122. 判断一个字符char1为小写字母的条件为'a'

武冈市17596757260： 请各位高手用Fortran 帮我编写一道题目 题目:输入一个字母,显示它是大写还是小写字母. 感激不尽. - ？
卢狠葛根： IMPLICT NONE CHARACTER ::C WRITE(*,*) '请输入一个字符' READ(*,'(A1)') C IF ( C.GE.'A' .AND. C.LE.'Z') THNE WRITE(*,*) '输入的字母', C, '是大写字母' ELSEIF ( C.GE.'a' .AND. C.LE.'z') THNE WRITE(*,*) '输入的字母', C, '是小写字母' ENDIF END

武冈市17596757260： for做把从键盘输入的字符中所有的小写字母转换成大写字母,其他字符不变原样输出.以换行符作为字符输入结束 - ？
卢狠葛根： #include<stdio.h> int main() {char string[100];gets(string);for(char *c=string,*c!='\0';++c){if((*c)>='a' && (*c)<='z'){*c = *c -32;}}printf(＂%s＂,string); }

武冈市17596757260： C语言从键盘输入一个字符串,将小写字母全部转换成大写字母,然后输出到一个磁盘文件“test”中保存输入 - ？
卢狠葛根： #include ＂stdio.h＂ void main() { char s[100]; int i; printf(＂输入字符串:＂); gets(s); for(i=0;s[i];i++) if(s[i]>='a'&&s[i]<='z')s[i]+=32; else if(s[i]>='a'&&s[i]<='z')s[i]-=32; puts(s); }