ex0613.f90

来自「经典的fortran95编程书,知名作者彭国伦 书的配套原程序,」· F90 代码 · 共 20 行

program ex0613
implicit none
  integer i
  integer strlen
  integer, parameter :: key = 2
  character(len=20) :: string

  write(*,*) "Encoded string:"
  read(*,*) string
  strlen = len_trim(string)

  do i = 1, strlen
    string(i:i) = char( ichar(string(i:i)) - key )
  end do

  write(*,"('String:',A20)") string

  stop
end