代码搜索：parameter
找到约 10,000 项符合「parameter」的源代码
代码结果 10,000
www.eeworm.com/read/155688/11853326
plg chess.plg
Build Log
--------------------Configuration: chess - Win32 Debug--------------------
Command Lines
Creating temporary file "C:\DOCUME~1\LIHONG~
www.eeworm.com/read/258562/11854002
f90 lagrange.f90
module INTERPOLATE_UTILITY
use sgl
implicit none
type point
real x,y
end type
real, parameter :: PI=3.14159
real, parameter :: xmin = 0.0, xmax = PI*3.0
integer, parameter ::
www.eeworm.com/read/258562/11854005
f90 least_square.f90
module datas
implicit none
integer, parameter :: N=5
real :: temperature(N) = (/5.0,10.0,15.0,20.0,25.0/) ! 记录温度
real :: length(N) = (/1.047,1.112,1.1152,1.191,1.252/)! 记录不同温度下的长度
real
www.eeworm.com/read/258562/11854025
f90 ex0703.f90
program ex0703
implicit none
integer, parameter :: classes = 5
integer, parameter :: students = 5
integer :: student(students, classes)
integer s ! 用来指定学生号码
integer c ! 用来指定班级号码
www.eeworm.com/read/258562/11854027
f90 ex0705.f90
program ex0705
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: matrix(row, col, 3)
integer m ! 用来指定第几个矩阵
integer r ! 用来指定row
integer c ! 用来指定col
www.eeworm.com/read/258562/11854029
f90 ex0709.f90
program ex0709
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: a(2,2)=(/ 1,2,3,4 /)
! a(1,1)=1, a(2,1)=2, a(1,2)=3, a(2,2)=4
integer :: b(4)=(/ 5,6
www.eeworm.com/read/258562/11854031
f90 ex0701.f90
program ex0701
implicit none
integer, parameter :: students = 5
integer :: student(students)
integer i
do i=1, students
write(*,"('Number ',I2)") i
read(*,*) student(i)
end
www.eeworm.com/read/258562/11854055
f90 ex0715.f90
program ex0715
implicit none
integer, parameter :: max = 1000
integer :: a(max) ! 先声明一个超大的数组
integer :: students
integer :: i
write(*,*) "How many students:"
read(*,*) student