fortran简单程序集.pdfVIP

Fortran 简单程序集 杨洋1 !大小写转换 program ex39 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 !将字符串转化为整数 program ex104 implicit none external f character*10 str integer f print*,输入由数字组成的字符串: read*,str print*,转化后的整数: print*,f(str) end function f(str) implicit none character*(*) str integer f,k,i f=0 k=len_trim(str) do i=1,k f=f+(ichar(str(i:i))-ichar(0))*10**(k-i) end do end function !将十进制数转化为二进制数（用字符串保存） program ex110 1 作者简介：杨洋，南京信息工程大学大气科学学院海洋科学系2008 级 1 program ex110 implicit none integer a character*8::b= print*,输入一个十进制整数: read*,a do while(a0) if (mod(a,2)==1) then b=1//b else b=0//b end if a=a/2 end do print*,对应的二进制数为: print*,b end !将二进制数（用字符串保存）转化为十进制数 program ex111 implicit none character*8 a integer::b=0,k,i print*,输入一个二进制数: read*,a k=len_trim(a) do i=1,k b=b+(ichar(a(i:i))-ichar(0))*2**(k-i) end do print*,对应的十进制数为: print*,b end !统计大写、小写、数字及其他字符的个数 program ex51 implicit none character*20 str integer::i,n1=0,n2=0,n3=0,n4=0 print*,输入字符串: read*,str do i=1,len_trim(str) select case(str(i:i)) case(a:z) n1=n1+1 2 case(A:Z) n2=n2+1 case(0:9) n3=n3+1 case default