program aaa
implicit none

integer::i,N
real::X1,X2,dx,b
real,allocatable::y(:)

write(*,*)"nitial value:"
read(*,*)X1
write(*,*)
program aaa
implicit none

integer::i,N
real::X1,X2,dx,b
real,allocatable::y(:)

write(*,*)"nitial value:"
read(*,*)X1
program aaa
implicit none

integer::i,N
real::X1,X2,dx,b
real,allocatable::y(:)

write(*,*)"nitial value:"
read(*,*)X1
write(*,*)
write(*,*)"end value:"
read(*,*)X2
write(*,*)
write(*,*)"number:"
read(*,*)N
write(*,*)

dx=X2-X1
b=dx/(N-1)
y(1)=X1

do i=2,N
y(i)=y(i-1)+b
end do

open(12,file="1.dat")
write(12,*)"x"
do i=1,N
write(12,*)y(i)
end do
close(12）
end

3楼: Originally posted by 1014511134 at 2018-01-26 14:29:18
你的y没有分配内存

4楼: Originally posted by 1175704118 at 2018-01-26 15:50:48
大神，该怎么改呢？谢谢！...