发布网友 发布时间:2022-05-15 09:53
共2个回答
热心网友 时间:2023-10-19 01:03
IMPLICITNONEREAL::A(1000,6)CHARACTER(LEN=80)CCINTEGER::IOPEN(11,FILE='DATA.TXT')I=0DOWHILE(.NOT.EOF(11))READ(11,*)CCIF(CC(1:1)'9')CYCLEI=I+1READ(CC,*)A(I,1:6)ENDDOCLOSE(11)!END热心网友 时间:2023-10-19 01:03
这个比较难。