代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/164050/10134221
src dydzzy.src
DYDZZY:=proc(f)
# DYDZZY(f) is used to get the derivate of
# an implicit function
local Eq,deq,imderiv;
Eq:='Eq';
Eq:=f;
deq:=diff(Eq,x);
readlib(isolate);
imderiv:=isolate(deq,diff(y(x),
www.eeworm.com/read/358844/10178014
f90 ans0701.f90
program main
implicit none
integer, parameter :: max = 10
integer i
integer :: a(max) = (/ (2*i, i=1,10) /)
integer :: t
! sum()是fortran库函数
write(*,*) real(sum(a))/real(max)
www.eeworm.com/read/358844/10178016
f90 ans0704.f90
program main
implicit none
integer, parameter :: size=10
integer :: a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /)
integer :: i,j
integer :: t
do i=1, size-1
do j=i+1, size
if (
www.eeworm.com/read/358843/10178026
f90 ans0601.f90
program main
implicit none
integer i
do i=1,5
write(*,*) "Fortran"
end do
stop
end program
www.eeworm.com/read/358843/10178028
f90 ans0604.f90
program main
implicit none
integer, parameter :: max=10
integer i
real item
real ans
ans = 1.0
item = 1.0
do i=2,max
item = item/real(i)
ans = ans+item
end d
www.eeworm.com/read/358843/10178032
f90 ans0602.f90
program main
implicit none
integer i,sum
sum = 0
do i=1,99,2
sum = sum+i
end do
write(*,*) sum
stop
end program
www.eeworm.com/read/358842/10178043
f90 ans0502.f90
program main
implicit none
integer day
character(len=20) :: tv
write(*,*) "请输入星期几"
read(*,*) day
select case(day)
case(1,4)
tv = "新闻"
case(2,5)
tv = "电视剧"
case
www.eeworm.com/read/358841/10178047
f90 ans0402.f90
program main
implicit none
real, parameter :: PI=3.14159
real radius
write(*,*) "请输入半径长"
read(*,*) radius
write(*,"(' 面积='f8.3)") radius*radius*PI
end program
www.eeworm.com/read/358841/10178049
f90 ans0401.f90
program main
implicit none
write(*,*) "Have a good time."
write(*,*) "That's not bad."
write(*,*) '"Mary" isn''t my name.'
end program
www.eeworm.com/read/358841/10178051
f90 ans0403.f90
program main
implicit none
real grades
write(*,*) "请输入成绩"
read(*,*) grades
write(*,"(' 调整后成绩为 'f8.3)") SQRT(grades)*10.0
end program