代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/387489/8669938
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes,unit1, Graphics, Controls, Forms, Dialogs;
procedure RKDUMB(VSTART:array of real; NVAR:integer; X1, X2:real;
www.eeworm.com/read/387489/8669967
pas unit2.pas
unit Unit2;
interface
uses
unit1;
procedure RZEXTR(IEST:integer; XEST:real; YEST:array of real;
var YZ, DY:array of real; NV, NUSE:integer);
implementation
proced
www.eeworm.com/read/387489/8670109
pas unit2.pas
unit Unit2;
interface
uses
unit1;
procedure MDIAN1(var X:array of real; N:integer;var XMED:real);
Function GASDEV:real;
implementation
Function GASDEV:real;
var
V1,V2,FAC,R:real;
be
www.eeworm.com/read/387489/8670195
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
procedure CHSTWO(BINS1, BINS2:array of real;
NBINS, KNSTRN:intege
www.eeworm.com/read/387489/8670252
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
procedure CHSONE(BINS, EBINS:array of real; NBINS, KNSTRN:integer;
www.eeworm.com/read/387489/8670883
pas unit2.pas
unit Unit2;
interface
Function GAMMLN(xx:real):real;
Function T(Y:real):real;
procedure IAP(X, A:real; NMAX:integer; VAR F:array of real);
procedure BESIAN(X, A:real; NM, IH:integer; VAR F:arra
www.eeworm.com/read/387489/8671050
pas unit2.pas
unit Unit2;
interface
Function GAMMLN(xx:real):real;
Function T(Y:real):real;
procedure JAP(X, A:real; NMAX:integer; VAR F:array of real);
procedure BESJAN(X, A:real; NM, IH:integer; VAR FF:arr
www.eeworm.com/read/387489/8671173
txt frprmn.txt
Procedure FRPRMN(var P:array of real; N:integer;
FTOL:real;var ITER:integer; var FRET:real);
const
ITMAX = 200; EPS = 0.1e-9;
var
G:array[0..550] of real; H,XI
www.eeworm.com/read/387489/8671203
txt trapzd.txt
implementation
procedure TRAPZD(A, B:real;var S:real; N:integer);
var
J,IT:integer;
TNM,DEL,X,SUM:real;
begin
If N = 1 Then
begin
S:=0.5 * (B - A) * (FUNC(A) + FUNC(B))
www.eeworm.com/read/387489/8671206
txt midpnt.txt
procedure MIDPNT(A, B:real;var S:real; N:integer);
var
TNM,DEL,DDEL,X,SUM:real;
J,IT:integer;
begin
If N = 1 Then
begin
S:=(B - A) * FUNC(0.5 * (A + B));
IT:=1;