代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/192256/8394135
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/192256/8394159
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/192256/8394186
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/192256/8394268
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/192256/8394356
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/192256/8394360
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/192256/8394366
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/192256/8394369
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 -
www.eeworm.com/read/192256/8394375
txt locate.txt
procedure LOCATE(XX:array of real; N:integer; X:real; var J:integer);
label 10;
var
JL,JU,JM:INTEGER;
begin
JL:=0;
JU:=N + 1;
10: If JU - JL > 1 Then
begin
JM:=(JU + J
www.eeworm.com/read/192256/8394512
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,unit1, Dialogs;
procedure POLINT(XA, YA:array of real; N:integer; X:real; var Y, DY:real);
procedure