有程序:CHARACTER*4STR1,STR2,STR3OPEN(UNIT=15,FILE=‘INPUT.DAT’,STATUS=‘OLD’)READ(15,10)STR1,STR2,STR310FORMAT(A6,1x,A5,1x,A4)WRITE(*,’(1x,3A)’)STR1,STR2,STR3CLOSE(15)END用此程序从文件INPUT.DAT中读出字符串’FORMAT
A
NEW
DISK’,程序运行结果是:()A:FORMA
NEWDISKB:RMAT
NEWDISKC:FORMATA
NEWD:MATA
NEWDISK
出自:基础知识