有关Fortran编程问题1
发布网友
发布时间：2023-10-23 15:52
共1个回答
热心网友
时间：2024-09-19 11:16
1. k=0
2. if(i<100)
3. k=k+1
2.......
program getxy
implicit none
integer x,y,sum
do x=0,100
y=0
sum=0
do while(sum<10000)
sum=x**2+y**2
if(sum .eq. 10000)then
write(*,'(2i5)')x,y
endif
y=y+1
enddo
enddo
stop
end program
3...............
program div37
implicit none
integer i,n,a,b
n=0
do i=100,300
a=mod(i,3)
b=mod(i,7)
if(a .eq. 0 .and. b .eq.0)then
n=n+1
endif
enddo
write(*,*)n
stop
end program
热心网友
时间：2024-09-19 11:16
1. k=0
2. if(i<100)
3. k=k+1
2.......
program getxy
implicit none
integer x,y,sum
do x=0,100
y=0
sum=0
do while(sum<10000)
sum=x**2+y**2
if(sum .eq. 10000)then
write(*,'(2i5)')x,y
endif
y=y+1
enddo
enddo
stop
end program
3...............
program div37
implicit none
integer i,n,a,b
n=0
do i=100,300
a=mod(i,3)
b=mod(i,7)
if(a .eq. 0 .and. b .eq.0)then
n=n+1
endif
enddo
write(*,*)n
stop
end program
