Question

Fortran 将一个字符串中的前导空格,后置空格以及中间空格去掉,得到一个新的字符串后输出

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

program main
implicit none
character(len=100) :: string,string1
integer :: strlen, i,k=0

write(*,*) "请输入一个字符串（长度从1到100）："
read(*,*) string
strlen=len_trim(string)
ms:do i=1,strlen,1
if(string(i:i) == '') then
cycle ms
else
k=k+1
string1(k:k)=string(i:i)
end if
end do ms

write(*,*) strlen,string1

stop
END

Answer 2

给你个例子，我没有声明implicit none，所以缺省的I-N是整型，其它是实型。

program main
character a*30,b*30

a=' ddd cccc '

n = len(a)

j = 1

do i = 1,n
if (a(i:i) .ne. ' ') then
b(j:j) = a(i:i)
j = j + 1 !最后的 j = len(b) + 1
end if
end do

write (*,'(a)') b(1: j -1)

end

望采纳。