代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/135438/13930922
txt vander.txt
procedure VANDER(X:array of real;var W:array of real;
Q:array of real; N:integer);
const
NMAX = 100; ZERO = 0;
ONE = 1;
var
C:array[0..100] of rea
www.eeworm.com/read/135438/13930929
txt lubksb.txt
procedure LUBKSB(var A:matrx2; N:integer; var INDX,B:array of real);
var
I,LL,J,II:integer;
SUM:real;
BEGIN
II:=0;
For I:=1 To N DO
begin
LL:=Trunc(INDX[I]);
www.eeworm.com/read/135438/13930934
txt chodcm.txt
procedure CHODCM(A:matrx2; N:integer;var D:array of real; T:array of real);
var
I,J,K:integer; SUM:real;
begin
For I:=1 To N do
begin
Sum:=A[I, I];
For J:=1 To I -
www.eeworm.com/read/135438/13931262
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,unit1, Controls, Forms, Dialogs;
Procedure AMOEBA(var P:matrx2;var Y:array of real; MP, NP:integer;
www.eeworm.com/read/135438/13931351
pas unit2.pas
unit Unit2;
interface
Procedure SORT(N:integer; var RA:array of real);
implementation
Procedure SORT(N:integer; var RA:array of real);
Label 99;
var
I,J,L,IR:integer;
RR,RRA:real;
www.eeworm.com/read/135438/13931515
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,unit1, Forms, Dialogs;
Function GASDEV:real;
Procedure LFIT(X, Y, SIG:array of real; NDATA:integer;var A:ar
www.eeworm.com/read/135438/13931538
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,unit1, Forms, Dialogs;
Function GASDEV:real;
Procedure FIT(X, Y:array of real; NDATA:integer; SIG:array o
www.eeworm.com/read/135438/13931614
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, unit1,Forms, Dialogs;
Function GASDEV:real;
Procedure FIT(X, Y:array of real; NDATA:integer; SIG:array o
www.eeworm.com/read/135438/13931636
pas unit2.pas
unit Unit2;
interface
uses
unit1;
Procedure COVSRT(var COVAR:matrx2; NCVM, MA:integer;
LISTA:array of integer; MFIT:integer);
implementation
Procedure COVSRT(var COV
www.eeworm.com/read/135438/13931674
txt splint.txt
procedure SPLINT(XA, YA, Y2A:array of real; N:integer; X:real;var Y:real);
label 1;
var
K,KLO,KHI:integer;
H,A,B,AAA,BBB,Q,QQ:real;
begin
KLO:=1;
KHI:=N;
1: If KHI - KLO > 1 T