题目

fortran题求解,急,
7、求3×4矩阵中的最大元素和最小元素,及其位置.
8、下列程序功能是：从键盘输入一个正整数,如果该数为素数,则输出该素数,否则输出该数的所有因子（除去1与其自身）.
LOGICAL P
READ(*,*) N
P=.TRUE.
K=2
DO WHILE( (1) )
IF (MOD(N,K)==0) THEN
WRITE(*,*) K
(2)
ENDIF
K=K+1
END DO
IF( (3) ) WRITE(*,*) N
END

提问时间：2021-03-16

答案

哎,怎么不好好学,先给分再详细点
将其中的字符转化为相应的数据等等,简单一句话就是：解析
从文件读入内容,然后把内容中的数字字符转换为数据,
program test
character(len=100)::str_temp,str_temp2
integer::x,y
open(100,file='1.txt')
!----------------
read(100,*),str_temp
i=index(str_temp,'=')
ilen=len(trim(str_temp))
str_temp2=str_temp(i+1:ilen)
read(str_temp2,*),x
!----------------
read(100,*),str_temp
i=index(str_temp,'*')
ilen=len(trim(str_temp))
str_temp2=str_temp(i+1:ilen)
read(str_temp2,*),y
!----------------
print*,x*y
end program test