代码搜索：implicit

找到约 5,250 项符合「implicit」的源代码

代码结果 5,250
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/183624/9147299

for ex0602.for

PROGRAM ex0602 IMPLICIT NONE INTEGER limit PARAMETER(limit=10) INTEGER counter INTEGER ans DATA ans /0/ DO 100, counter=2, limit, 2 100 ans = ans + counter WRITE(*,*) ans
·
www.eeworm.com/read/183624/9147303

f90 ex0610.f90

program ex0610 implicit none integer counter integer :: ans = 0 do counter = 1, 100 ans = ans + counter end do write(*,*) ans stop end
·
www.eeworm.com/read/183624/9147314

f90 ex0611.f90

program ex0611 implicit none integer counter integer :: fn_1 = 1 integer :: fn_2 = 0 integer :: fn = 0 write(*,*) fn_2 write(*,*) fn_1 do counter = 3, 10 fn = fn_2 + fn
·
www.eeworm.com/read/183624/9147326

f90 ex0604.f90

program ex0604 implicit none integer, parameter :: limit=10 ! 计数器的上限 integer counter ! 计数器 integer :: ans = 0 ! 拿来累加使用 counter = 2 ! 设定计数器初值 do while( counter
·
www.eeworm.com/read/183623/9147341

for ex0503.for

PROGRAM ex0503 IMPLICIT NONE INTEGER rain, windspeed WRITE(*,*) "Rain:" READ (*,*) rain WRITE(*,*) "Wind Speed:" READ (*,*) windspeed IF ( rain .GT. 150 .OR. windspeed .GT. 10 ) THE
·
www.eeworm.com/read/183623/9147344

for ex0515.for

PROGRAM ex0515 IMPLICIT NONE INTEGER I INTEGER N PARAMETER(N=10) DATA I /0/ 10 WRITE(*, '(1X,A3,I2)' ) 'I=',I I=I+1 IF ( I .LT. N ) GO
·
www.eeworm.com/read/183623/9147348

f90 ex0502.f90

program ex0502 implicit none real(kind=4) :: height ! 记录身高 real(kind=4) :: weight ! 记录体重 write(*,*) "height:" read(*,*) height ! 读入身高 write(*,*) "weight:" read(*,*) weight
·
www.eeworm.com/read/183623/9147358

f90 ex0512.f90

program ex0512 implicit none integer score character grade write(*,*) "Score:" read(*,*) score select case(score) case(90:100) ! 90到100分之间 grade='A' case(80:89) ! 80到89
·
www.eeworm.com/read/183623/9147367

f90 ex0504.f90

program ex0504 implicit none integer rain, windspeed logical r,w write(*,*) "Rain:" read(*,*) rain write(*,*) "Wind:" read(*,*) windspeed r = (rain>=500) ! 如果rain>=150, r
·
www.eeworm.com/read/183623/9147376

f90 ex0503.f90

program ex0503 implicit none integer rain, windspeed write(*,*) "Rain:" read(*,*) rain write(*,*) "Wind:" read(*,*) windspeed if ( rain>=500 .or. windspeed >=10 ) then writ
·