Fortran编程去除字符中的空格

8828

请帮助一下初学者，Fortran编程去除字符中的空格，数组不匹配

霹雳电光鼠

根本不知道你的问题是什么，麻烦说清楚，读的什么数据，结果出什么问题！！！！！

8828

霹雳电光鼠 发表于 2016-5-19 21:53
根本不知道你的问题是什么，麻烦说清楚，读的什么数据，结果出什么问题！！！！！

对不起哈，是这样的
随机输入一行字符（该行中有空格，假设一行字符数最多为10），去除该行中的所有空格，将得到的新的一行字符输出。
我做的程序是第二幅图，运行结果是第一幅图，出现数组越界的问题

野田妹酱

感觉问题是你把Y定义为10*1的数值，但是你只是想把Y作为字符变量

8828

野田妹酱 发表于 2016-5-19 22:08
感觉问题是你把Y定义为10*1的数值，但是你只是想把Y作为字符变量

嗯，我试一下

8828

8828 发表于 2016-5-19 22:10
嗯，我试一下

还是数组越界啊

霹雳电光鼠

建议别使用整体操作，一个字符一个字符判断，给你一个简单示例，自己琢磨一下
PROGRAM qukge
      IMPLICIT NONE
      character*10 :: x,b
      integer :: i,j,n
      
      WRITE(*,*)'请输入带空格的字符串：'
      READ(*,'(A10)')x
      
      n=len(x)
      j=1
      
     DO i=1,n
        IF(x(i:i).ne.' ')THEN
          b(j:j )= X(i:i)
          j      = j + 1
        END IF
     END DO
      
     WRITE(*,'(a)')b(1:j-1)
     END
输入： 123 15
输出：12315

霹雳电光鼠

b(j:j )= X(i:i) 是 b(j:j )= x(i:i)，忘改了

8828

霹雳电光鼠 发表于 2016-5-19 22:54
b(j:j )= X(i:i) 是 b(j:j )= x(i:i)，忘改了

这个和上面的一样啊，改哪里啊
输出时的‘（a）’是什么意思

霹雳电光鼠

既然是初学者，就该要知道怎么去学。我都把程序写了，你至少应该自己运行一下！！！别做都不做就上来问这么低级的问题，大小写看不出来吗？  第二个问题可以理解你是初学者，‘（a）’是字符型的格式控制符，自己补基础。。。给你建议，多动手，光看不行。PS：从fortran菜鸟的过来人！！！！！！