代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/391726/8387137
txt bsstep.txt
procedure BSSTEP(var Y, DYDX:array of real; NV:integer; var X1:real;
HTRY, EPS:real;YSCAL:array of real; var HDID, HEND:real);
label 1;
const
IMAX = 11; NUSE = 7; ONE = 1; S
www.eeworm.com/read/391726/8387203
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
Function PLGNDR(L, M:integer; X:real):real;
Procedure FLEG(X:real; var PL:array of real; N
www.eeworm.com/read/391726/8387246
pas unit2.pas
unit Unit2;
interface
uses
unit1;
Procedure SVDVAR(V:matrx2; MA, NP:integer; W:array of real;
var CVM:matrx2; NCVM:integer);
implementation
Procedure SVDVAR(V:matrx2; MA,
www.eeworm.com/read/391726/8387265
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, unit1,Forms, Dialogs;
Function GASDEV:real;
Procedure MRQMIN(var X,Y,SIG:array of real; NDATA:integer;var
www.eeworm.com/read/391726/8387298
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure FUNCS(X:real;var AFUNC:array of real; MA:integer);
type
TForm1
www.eeworm.com/read/391726/8387365
pas unit2.pas
unit Unit2;
interface
uses
unit1;
Function GASDEV:real;
Procedure MRQCOF(X,Y,SIG:array of real; NDATA:integer;var A:array of real;
MA:integer; LISTA:array of integer; MFIT:integer;var A
www.eeworm.com/read/391726/8387451
txt polcoe.txt
procedure POLCOE(X, Y:array of real; N:integer; var COF:array of real);
var
S:array[0..15] of real;
I,J,K:integer; PHI,FF,B:real;
begin
For I:=1 To N do
begin
S[I]:=0;
www.eeworm.com/read/391726/8387454
txt ratint.txt
procedure RATINT(XA, YA: array of real; N:integer; X:REAL; VAR Y, DY:real);
const
TINY=1E-25;
var
C,D:array[0..10] of real;
I,NS,M:integer;
HH,H,DD,DX,W,T:real;
begin
NS:=1
www.eeworm.com/read/391726/8387460
txt polin2.txt
procedure POLIN2(X1A,X2A:array of real;YA:matrx2; M, N:integer;
X1, X2:real;var Y, DY:real);
var
YNTMP,YMTMP:array[0..20] of real;
J,K:integer;
begin
www.eeworm.com/read/391726/8387463
txt polint.txt
procedure POLINT(XA, YA:array of real; N:integer; X:real; var Y, DY:real);
var
C,D:array[0..10] of real;
DIF,DIFT,HO,HP,W,DEN:real;
NS,I,M:integer;
begin
NS:=1;
DIF:=Abs(X -