fortran题求解,急,7、求3×4矩阵中的最大元素和最小元素,及其位置.8、下列程序功能是:从键盘输入一个正整数,如果该数为素数,则输出该素数,否则输出该数的所有因子(除去1与其自身).LOGICA

来源:学生作业学帮网 编辑:学帮网 时间:2024/04/29 05:55:04

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

哎,怎么不好好学,先给分再详细点
将其中的字符转化为相应的数据等等,简单一句话就是:解析
从文件读入内容,然后把内容中的数字字符转换为数据,
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