Операционная система: Windows 10 Компилятор: Xstart
Способ, которым я запрограммировал:
program popo
implicit none
CHARACTER(10) :: Alpha, Beta*5, Gamma*1 &
Label_1*4, Label_2*3, Str_1*3, Str_2*4
Str_1 ="For"
Str_2 = " tran"
Label_1 ="foot"
Label_2 ="lbs"
Str_2(3:1) = Str(3:1)
print *, Str_2
end program popo
Суть проблемы в том, что Str (: 2) = Str_1 (3: ) должен быть доволен. Чтобы удовлетворить это, я запрограммировал, как указано выше. Я думал, что левая и правая стороны выведут r соответственно.
Но это не выходит. Как мы можем удовлетворить Str (: 2) = Str_1 (3:)?