|
CHARACTER(len=10) :: string_1,string_2
CHARACTER(len=5) :: string_3
CHARACTER(len=15) :: string_4,string_5
READ (*,'(A)') string_1
READ (*,'(A10)') string_2
READ (*,'(A10)') string_3
READ (*,'(A10)') string_4
READ (*,'(A)') string_5
这是书上的一个例题,要将abcdefghijklmno同时赋给这5个值,来看差异。单输入时就要输5遍,有没有什么简单的方法?
|
|