代码搜索：implicit

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

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

f90 mouse.f90

! 处理鼠标事件的函数 module MouseEvent use DFLIB implicit none Contains ! 鼠标在窗口中每移动一次,就会调用这个函数 subroutine ShowLocation(iunit, ievent, ikeystate, ixpos, iypos) implicit none integer :: iunit
·
www.eeworm.com/read/376037/9335664

f90 menu.f90

! 使用菜单范例 ! By Perng 1997/9/22 program Menu_Demo use DFLIB implicit none type(windowconfig) :: wc integer :: result integer :: i,ix,iy wc.numxpixels=200 ! 窗口的宽 wc.numypixels=200 !
·
www.eeworm.com/read/376037/9335702

f90 dialog.f90

! ! 使用菜单及对话窗的范例 ! By Perng 1997/9/22 program Menu_Demo use DFLIB implicit none type(windowconfig) :: wc integer :: result integer :: i,ix,iy wc.numxpixels=200 ! 窗口的宽 wc.numypix
·
www.eeworm.com/read/376037/9335738

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/376037/9335739

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/376037/9335740

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/376037/9335745

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/376037/9335750

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/376037/9335756

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
·
www.eeworm.com/read/376037/9335760

f90 ex0501.f90

program ex0501 implicit none real(kind=4) :: speed write(*,*) "speed:" read(*,*) speed if ( speed > 100.0 ) then ! speed > 100 时才会执行下面这一行程序 write(*,*) "Slow down." end if
·