代码搜索：implicit

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

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

f90 ex1110.f90

module rational_util implicit none private public :: rational, & operator(+), operator(-), operator(*),& operator(/), assignment(=),& output type :
·
www.eeworm.com/read/360543/10088637

f90 ex1107.f90

module time_util implicit none type :: time integer :: hour,minute end type time interface operator(+) ! 让type(time)类型变量能够相加 module procedure add end interface contains
·
www.eeworm.com/read/360542/10088645

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/360542/10088647

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/360542/10088649

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/360542/10088655

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/360542/10088660

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/360542/10088666

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/360542/10088672

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
·
www.eeworm.com/read/360506/10089906

js ro.js

// I18N constants // LANG: "ro", ENCODING: UTF-8 // Author: Mihai Bazon, http://dynarch.com/mishoo // FOR TRANSLATORS: // // 1. PLEASE PUT YOUR CONTACT INFO IN THE ABOVE LINE // (at least a v
·