代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/182368/9206705
pas magic.pas
unit Magic;
interface
uses
Windows,Classes,Grobal2,ObjBase,SDK;
type
TMagicManager = class
private
function MagBigHealing(PlayObject:TBaseObject;nPower,nX,nY:integer): Boolean;
www.eeworm.com/read/182343/9206925
frm form1.frm
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Transfer FlexGrid to Word
www.eeworm.com/read/182296/9207997
frm 启动.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form 启动
Caption = "启动"
ClientHeight = 8400
ClientLeft = 60
Client
www.eeworm.com/read/182293/9208181
bas 测试模块.bas
Attribute VB_Name = "Module1"
Option Explicit
Dim I As Integer
Public Const IP_STATUS_BASE = 11000
Public Const IP_SUCCESS = 0
Public Const IP_BUF_TOO_SMALL = (11000 + 1)
Public Const IP_DEST_NE
www.eeworm.com/read/378913/9213242
f90 balanc.f90
SUBROUTINE balanc(a,n)
INTEGER n
REAL a(n,n),RADIX,SQRDX
PARAMETER (RADIX=2.,SQRDX=RADIX**2)
INTEGER i,j,last
REAL c,f,g,r,s
do
last=1
do i=1,n
c=0.
r=0.
do j=1,n
if(
www.eeworm.com/read/378913/9213248
f90 fleg.f90
SUBROUTINE fleg(x,pl,nl)
INTEGER nl
REAL x,pl(nl)
INTEGER j
REAL d,f1,f2,twox
pl(1)=1.
pl(2)=x
if(nl>2) then
twox=2.*x
f2=x
d=1.
do j=3,nl
f1=d
f2=f2+twox
d=d+1.
www.eeworm.com/read/378913/9213301
f90 piksrt.f90
SUBROUTINE piksrt(n,arr)
INTEGER n
REAL arr(n)
INTEGER i,j
REAL a
do j=2,n
a=arr(j)
do i=j-1,1,-1
if(arr(i)
www.eeworm.com/read/378913/9213334
f90 qrdcmp.f90
SUBROUTINE qrdcmp(a,m,n,q)
REAL a(n,n),q(m,m)
INTEGER i,k,j
REAL s,t,f,h
do i=1,m
do j=1,m
q(i,j)=0.
end do
q(i,i)=1.
end do
do k=1,m-1
s=0.
do i=k,m
s=s+abs(a(i,k))
www.eeworm.com/read/378913/9213406
f90 splint.f90
SUBROUTINE splint(xa,ya,y2a,n,x,y)
INTEGER n
REAL aaa,x,y,xa(n),y2a(n),ya(n)
INTEGER k,khi,klo
REAL a,b,h
klo=1
khi=n
do
aaa=0
if (khi-klo>1) then
aaa=2.
k=(khi+klo)/2
if(x
www.eeworm.com/read/378913/9213453
f90 bessi.f90
FUNCTION bessi(n,x)
INTEGER n,IACC
REAL bessi,x,BIGNO,BIGNI
PARAMETER (IACC=40,BIGNO=1.0e10,BIGNI=1.0e-10)
!USES bessi0
INTEGER j,m
REAL bi,bim,bip,tox,bessi0
if (n